&FNAME   PROC  &Z,0,&BLKSIZE=,&DEVICE=,&ERROR=,&INDEXED=,&INDAREA=,&INDXAA200010
               SIZE=,                                                  XAA200020
               &IOAREA1=,&IOAREA2=,&IOAREAL=,&IOAREAR=,&IOAREAS=,&IOREGXAA200030
               =,&IOROUT=,                                             XAA200040
               &KEYARG=,&KEYLEN=,&KEYLOC=,&PCYLOFL=,&CYLOFL=,&RECFORM=,XAA200050
               &RECSIZE=,                                              XAA200060
               &SAVAREA=,&TYPEFLE=,&UPDATE=,&VERIFY=,&WORK1=,&WORKL=,&WXAA200070
               ORKR=,&WORKS=,                                          XAA200080
               &BKSZ=,&ERRO=,&INDA=,&INDS=,&IOA1=,&IOA2=,&IORG=,&IORT=,XAA200090
               &KLEN=,&KLOC=,&PCYL=,                                   XAA200100
               &NRECDS=,&RTRVEX=,&SQCHEX=,&ADAREX=,&ALTREX=,&CYNDEX=,&DXAA200110
               ERREX=,&DPCRCD=,&DSKXTNT=,&DTAREX=,&DUPREX=,&EOFADDR=,&EXAA200120
               RRINF=,                                                 XAA200130
               &COFL=,&RCFM=,&RCSZ=,&SAVE=,&TYPF=,&VRFY=,&WRK1=,&UPDT=,XAA200140
               &KARG=,&LOCK=YES,&SEPASMB=                               AA200150
AA24     NAME  0                        DTFIS                           AA200160
DTFIS    NAME  1     CREAT FILE TABLE FOR ISAM FILE                     AA200170
         LCL   &KEYL,&W1,&FG1,&FG2,&FG3,&IOR,&KYLOC,&VFY,&TYP           AA200180
         LCL   &W2,&WKS,&CYL,&W3,&W4,&PFG1,&PFG2,&MXKLN,&IND3,&IND4     AA200190
         LCL   &IND1,&IND2,&ERR,&EOF,&REG,&SVE,&REC,&NRECS,&DVC,&BKZ    AA200200
&FG2     SET   0                                                        AA200210
&FG1     SET   0                                                        AA200220
&FG3     SET   0                                                        AA200230
&PFG1    SET   0                                                        AA200240
&PFG2    SET   0                                                        AA200250
&IND1    SET   0                                                        AA200260
&REG     SET   0                                                        AA200270
         CNOP  0,8                                                      AA200280
&W4      SET   10000                                                    AA200290
         DO    ('&FNAME'>'Z999999')++('&FNAME'='')                      AA200300
         PNOTE 'P','FILENAME UNDEFINED OR GREATER THAN 7 CHARACTERS'    AA200310
         ENDO                                                           AA200320
         ENTRY &FNAME                                                   AA200330
.L05     LABEL                                                          AA200340
&FNAME   DC    XL4'00008048'                                 DC$CCBCT   AA200350
         DC    2F'0'                                                    AA200360
         DC    A(*+48)                                                  AA200370
         DC    3F'0'                                                    AA200380
         DC    CL7'&FNAME'                                   DC$NME     AA200390
         DC    CL1' '                                        DC$NME+7   AA200400
         DO    '&LOCK'='NO'                                             AA200410
         DC    X'2040'                                       DC$MFLG    AA200420
         ENDO                                                           AA200430
         DO    '&LOCK'='NO'=0                                           AA200440
         DC    X'2048'                                       DC$MFLG    AA200450
         ENDO                                                           AA200460
         DC    H'0'                                  DC$NVOL DC$CVOL    AA200470
         DC    F'0'                                          DC$SPCA    AA200480
         DC    H'0'                                          DC$AIOCT   AA200490
         DC    X'800000'                                     DC$DTF     AA200500
         DC    X'FF'                                         DC$REQS    AA200510
         DC    H'0'                                          DC$ERFLG   AA200520
         DC    F'0'                                          DC$IOCS    AA200530
         DC    CL1' '                                        DC$ERCD    AA200540
         DC    XL3'00'                                       DC$ERIOC   AA200550
         DC    4F'0'                                         DC$CCW     AA200560
         DC    X'F0000000'                                   DC$EXT     AA200570
         DC    X'0200'                              DC$PCACT DC$CPID    AA200580
         DC    H'12'                                         DC$REXCT   AA200590
         DC    X'F0000000'                                   DC$TPC     AA200600
         DC    2H'0'                                DC$LOHD  DC$HIHD    AA200610
         DC    X'01'                                                    AA200620
         DC    AL3(&FNAME.X)                                            AA200630
         DC    X'02'                                                    AA200640
         DC    AL3(&FNAME.Y)                                            AA200650
         DO    ('&KLEN'='')++('&KEYLEN'='')=0  BOTH SPEC ?              AA200660
         PNOTE '*','KLEN AND KEYLEN SPECIFIED, KEYLEN USED'             AA200670
         GOTO  .L07A                                                    AA200680
         ENDO                                                           AA200690
         DO    '&KEYLEN'=''             KEYLEN BLANK                    AA200700
         GOTO  .L07B                                                    AA200710
         ENDO                                                           AA200720
.L07A    LABEL                                                          AA200730
&KEYL    SET   &KEYLEN                                                  AA200740
         GOTO  .L07C                                                    AA200750
.L07B    LABEL                                                          AA200760
         DO    '&KLEN'=''               KLEN BLANK                      AA200770
         DO    '&INDEXED'='NO'                                          AA200780
&KEYL    SET   0                                                        AA200790
&KYLOC   SET   0                                                        AA200800
         GOTO  .L09C                                                    AA200810
         ENDO                                                           AA200820
         PNOTE 'P','KEYLEN REQD WITH INDEXED FILE'                      AA200830
&KEYL    SET   3                                                        AA200840
         GOTO  .L09                                                     AA200850
         ENDO                                                           AA200860
&KEYL    SET   &KLEN                                                    AA200870
.L07C    LABEL                                                          AA200880
         DO    (&KEYL<3)++(&KEYL>253)                                   AA200890
         PNOTE 'P','KEYLEN SPEC., ERROR'                                AA200900
&KEYL    SET   3                                                        AA200910
         ENDO                                                           AA200920
.*                 INCR TO MAX KEYLEN FOR IDX SPACE COMP.               AA200930
&MXKLN   SET   &KEYL                                                    AA200940
         DO    (&KEYL>22)**(&KEYL<26)                                   AA200950
&MXKLN   SET   25                                                       AA200960
         ENDO                                                           AA200970
         DO    (&KEYL>25)**(&KEYL<30)                                   AA200980
&MXKLN   SET   29                                                       AA200990
         ENDO                                                           AA201000
         DO    (&KEYL>29)**(&KEYL<34)                                   AA201010
&MXKLN   SET   33                                                       AA201020
         ENDO                                                           AA201030
         DO    (&KEYL>33)**(&KEYL<40)                                   AA201040
&MXKLN   SET   39                                                       AA201050
         ENDO                                                           AA201060
         DO    (&KEYL>39)**(&KEYL<49)                                   AA201070
&MXKLN   SET   48                                                       AA201080
         ENDO                                                           AA201090
         DO    (&KEYL>48)**(&KEYL<62)                                   AA201100
&MXKLN   SET   61                                                       AA201110
         ENDO                                                           AA201120
         DO    (&KEYL>61)**(&KEYL<83)                                   AA201130
&MXKLN   SET   82                                                       AA201140
         ENDO                                                           AA201150
         DO    (&KEYL>82)**(&KEYL<126)                                  AA201160
&MXKLN   SET   125                                                      AA201170
         ENDO                                                           AA201180
         DO    (&KEYL>125)**(&KEYL<254)                                 AA201190
&MXKLN   SET   253                                                      AA201200
         ENDO                                                           AA201210
&FG2     SET   &FG2+128                                                 AA201220
.LO9     LABEL                                                          AA201230
         DO    ('&KLOC'='')++('&KEYLOC'='')=0   BOTH SPECIFIED ?        AA201240
         PNOTE '*','KLOC AND KEYLOC SPECIFIED, KEYLOC USED'             AA201250
         GOTO  .L09A                                                    AA201260
         ENDO                                                           AA201270
         DO    '&KEYLOC'=''             KEYLOC BLANK ?                  AA201280
         GOTO  .L09B                                                    AA201290
         ENDO                                                           AA201300
.L09A    LABEL                                                          AA201310
&KYLOC   SET   &KEYLOC                                                  AA201320
         GOTO  .L09C                                                    AA201330
.L09B    LABEL                                                          AA201340
         DO    '&KLOC'=''               KLOC BLANK ?                    AA201350
         PNOTE '*','KEYLOC OMITTED, MINIMUM VALUE ASSUMED'              AA201360
&KYLOC   SET   0                                                        AA201370
         GOTO  .L09C                                                    AA201380
         ENDO                                                           AA201390
&KYLOC   SET   &KLOC                                                    AA201400
.L09C    LABEL                                                          AA201410
         DO    ('&RCFM'='')++('&RECFORM'='')=0                          AA201420
         PNOTE '*','RECFORM AND RCFM SPEC., RECFORM USED'               AA201430
         GOTO  .L11                                                     AA201440
         ENDO                                                           AA201450
         DO    '&RCFM'=''=0                                             AA201460
&W1      SET   '&RCFM'                                                  AA201470
         GOTO  .L11A                                                    AA201480
         ENDO                                                           AA201490
.L11     LABEL                                                          AA201500
         DO    '&RECFORM'=''=0                                          AA201510
&W1      SET   '&RECFORM'                                               AA201520
         ENDO                                                           AA201530
.L11A    LABEL                                                          AA201540
         DO    '&W1'='FIXBLK'                                           AA201550
&FG3     SET   &FG3+32                                                  AA201560
         GOTO  .L13                                                     AA201570
         ENDO                                                           AA201580
         DO    '&W1'='VARBLK'                                           AA201590
         DO    &KYLOC=0                                                 AA201600
         PNOTE '*','KEYLOC INVALID, 2 ASSUMED FOR VARBLK'               AA201610
&KYLOC   SET   2                                                        AA201620
         ENDO                                                           AA201630
         GOTO  .L13                                                     AA201640
         ENDO                                                           AA201650
         PNOTE '*','RECFORM SPEC. ERROR, FIXBLK ASSUMED'                AA201660
&W1      SET   'FIXBLK'                                                 AA201670
         GOTO  .L11A                                                    AA201680
.L13     LABEL                                                          AA201690
         DO    ('&RECSIZE'='')++('&RCSZ'='')=0                          AA201700
         PNOTE '*','RECSIZE AND RCSZ SPEC., RECSIZE USED'               AA201710
         ENDO                                                           AA201720
         DO    '&RECSIZE'=''            NOT SPEC.                       AA201730
         GOTO  .L13B                                                    AA201740
         ENDO                                                           AA201750
&REC     SET   &RECSIZE                                                 AA201760
         GOTO  .L13C                                                    AA201770
.L13B    LABEL                                                          AA201780
         DO    '&RCSZ'=''                                               AA201790
         DO    ('&W1'='FIXUNB')++('&W1'='FIXBLK')                       AA201800
         PNOTE '*','RECSIZE REQUIRED FOR FIXED RECORDS'                 AA201810
         ENDO                                                           AA201820
&REC     SET   0                                                        AA201830
         GOTO  .L13H                                                    AA201840
         ENDO                                                           AA201850
&REC     SET   &RCSZ                                                    AA201860
.L13C    LABEL                                                          AA201870
         DO    &REC>0                                                   AA201880
         GOTO  .L13H                                                    AA201890
         ENDO                                                           AA201900
         PNOTE '*','RECORD SIZE INCORRECTLY SPECIFIED, 0 ASSUMED'       AA201910
&REC     SET   0                                                        AA201920
.L13H    LABEL                                                          AA201930
         DO    ('&BLKSIZE'='')++('&BKSZ'='')=0        BOTH SPEC         AA201940
         PNOTE '*','BLKSIZE && BKSZ BOTH SPECIFIED, BLKSIZE USED'       AA201950
         GOTO  .L13N                                                    AA201960
         ENDO                                                           AA201970
         DO    '&BKSZ'=''                                               AA201980
         GOTO  .L13L                                                    AA201990
         ENDO                                                           AA202000
&BKZ     SET   &BKSZ                                                    AA202010
         GOTO  .L13Z                                                    AA202020
.L13L    LABEL                                                          AA202030
         DO    '&BLKSIZE'=''                                            AA202040
         PNOTE 'P','BLKSIZE MISSING'                                    AA202050
&BKZ     SET   0                                                        AA202060
         GOTO  .L13Z                                                    AA202070
         ENDO                                                           AA202080
.L13N    LABEL                                                          AA202090
&BKZ     SET   &BLKSIZE                                                 AA202100
.L13Z    LABEL                                                          AA202110
         DO    &FG3<32                  IF VARIABLE                     AA202120
         DO    &BKZ<(&KYLOC+&KEYL+7)                                    AA202130
         PNOTE 'P','BLOCKSIZE IS LESS THAN MINIMUM RECSIZE'             AA202140
         ENDO                                                           AA202150
         GOTO  .L14A                                                    AA202160
         ENDO                                                           AA202170
         DO    &BKZ<(&REC+7)                                            AA202180
         PNOTE 'P','BLOCKSIZE LESS THAN RECORD SIZE'                    AA202190
         GOTO  .L14A                                                    AA202200
         ENDO                                                           AA202210
         DO    &REC>0                                                   AA202220
&IOR     SET   (((&BKZ-2)/(&REC+5))*(&REC+5))+2                         AA202230
         DO    &BKZ>&IOR                                                AA202240
         PNOTE 'P','BLKSIZE NOT MULITIPLE OF RECSIZE FOR FIXED RECORDS' AA202250
         PNOTE 'P','BLKSIZE ROUNDED DOWN TO &IOR'                       AA202260
&BKZ     SET   &IOR                                                     AA202270
         ENDO                                                           AA202280
         ENDO                                                           AA202290
.L14A    LABEL                                                          AA202300
         DO   ('&IOROUT'='')++('&IORT'='')=0        BOTH SPEC           AA202310
         PNOTE '*','IOROUT AND IORT SPECIFIED, IOROUT SELECTED'         AA202320
         ENDO                                                           AA202330
         DO    '&IOROUT'=''=0                                           AA202340
&IOR     SET   '&IOROUT'                                                AA202350
         GOTO  .L15A                                                    AA202360
         ENDO                                                           AA202370
         DO    '&IORT'=''=0                                             AA202380
&IOR     SET   '&IORT'                                                  AA202390
         GOTO  .L15A                                                    AA202400
         ENDO                                                           AA202410
.L15B    LABEL                                                          AA202420
&IOR     SET   'LOAD'                                                   AA202430
         PNOTE '*','IOROUT SPEC. ERROR, LOAD ASSUMED'                   AA202440
.L15A    LABEL                                                          AA202450
         DO    '&IOR'='LOAD'                                            AA202460
&W4      SET   &W4+1000                                                 AA202470
&FG2     SET   &FG2+16                                                  AA202480
&IOR     SET   0                                                        AA202490
         GOTO  .L19                                                     AA202500
         ENDO                                                           AA202510
.L17     LABEL                                                          AA202520
         DO    '&IOR'='ADD'                                             AA202530
&W4      SET   &W4+0002                                                 AA202540
&IOR     SET   1                                                        AA202550
&FG2     SET   &FG2+64                                                  AA202560
         GOTO  .L19                                                     AA202570
         ENDO                                                           AA202580
         DO    '&IOR'='ADDRTR'                                          AA202590
&W4      SET   &W4+0002                                                 AA202600
&IOR     SET   2                                                        AA202610
&FG2     SET   &FG2+96                                                  AA202620
         GOTO  .L19                                                     AA202630
         ENDO                                                           AA202640
         DO    '&IOR'='RETRVE'                                          AA202650
&IOR     SET   3                                                        AA202660
&FG2     SET   &FG2+32                                                  AA202670
         DC    X'F0000000'                                   DH$IOA1    AA202680
         GOTO  .L21                                                     AA202690
         ENDO                                                           AA202700
         PNOTE '*','IOROUT INCORRECTLY SPECIFIED, LOAD ASSUMED'         AA202710
         GOTO  .L15B                                                    AA202720
.L19     LABEL                                                          AA202730
         DO    ('&IOAREAL'='')**('&IOAREA1'='')**('&IOA1'='') {         AA202740
         PNOTE 'P','IOAREAL/IOAREA1 MISSING'                            AA202750
         DC    X'F0000000'                                   DH$IOA1    AA202760
         GOTO  .L21                                                     AA202770
         ENDO                                                           AA202780
         DO    '&IOAREAL'=''=0                                          AA202790
         DC    A(&IOAREAL)                                   DC$A1      AA202800
         DO    '&SEPASMB'='NO'=0                                        AA202802
         EXTRN &IOAREAL                                                 AA202810
         ENDO                                                           AA202812
&W2      SET   '&IOAREAL'                                               AA202820
         GOTO  .L19A                                                    AA202830
         ENDO                                                           AA202840
         DO    '&IOAREA1'=''=0          IOAREA1 SPEC                    AA202850
         DC    A(&IOAREA1)                                   DC$A1      AA202860
         DO    '&SEPASMB'='NO'=0                                        AA202862
         EXTRN &IOAREA1                                                 AA202870
         ENDO                                                           AA202872
&W2      SET   '&IOAREA1'                                               AA202880
         GOTO  .L19B                                                    AA202890
         ENDO                                                           AA202900
         DO    '&IOA1'=''=0                                             AA202910
         DC    A(&IOA1)                                      DC$A1      AA202920
         DO    '&SEPASMB'='NO'=0                                        AA202922
         EXTRN &IOA1                                                    AA202930
         ENDO                                                           AA202932
&W2      SET   '&IOA1'                                                  AA202940
         GOTO  .L21                                                     AA202950
         ENDO                                                           AA202960
.L19A    LABEL                                                          AA202970
         DO    ('&IOAREA1'=''=0)++('&IOA1'=''=0)                        AA202980
         PNOTE '*','IOAREAL SPEC ERROR, IOAREAL USED FOR ADD/LOAD'      AA202990
         GOTO  .L21                                                     AA203000
         ENDO                                                           AA203010
.L19B    LABEL                                                          AA203020
         DO    '&IOA1'=''=0                                             AA203030
         PNOTE '*','IOAREA1 AND IOA1 SPEC., IOAREA1 USED'               AA203040
         ENDO                                                           AA203050
.L21     LABEL                                                          AA203060
         DO    ('&VERIFY'='YES')++('&VRFY'='YES')                       AA203070
&FG1     SET   &FG1+4                   SET ON VERIFY                   AA203080
&VFY     SET   'YES'                                                    AA203090
         GOTO  .L21B                                                    AA203100
         ENDO                                                           AA203110
         DO    ('&VERIFY'=''=0)**('&VRFY'=''=0)                         AA203120
         PNOTE '*','VERIFY SPECIFICATION ERROR'                         AA203130
         ENDO                                                           AA203140
.L21B    LABEL                                                          AA203150
         DO    ('&UPDATE'='NO'=0)**('&UPDT'='NO'=0)                     AA203160
&FG1     SET   &FG1+2                                                   AA203170
         ENDO                                                           AA203180
         DO    ('&PCYLOFL'='')++('&PCYL'='')=0                          AA203190
         PNOTE '*','PCYLOFL && PCYL SPEC., PCYLOFL USED'                AA203200
         ENDO                                                           AA203210
         DO    '&PCYLOFL'=''=0                                          AA203220
&CYL     SET   &PCYLOFL                                                 AA203230
         GOTO  .L21A                                                    AA203240
         ENDO                                                           AA203250
         DO    '&PCYL'=''=0                                             AA203260
&CYL     SET   &PCYL                                                    AA203270
         GOTO  .L21A                                                    AA203280
         ENDO                                                           AA203290
         DO    ('&CYLOFL'=''=0)++('&COFL'=''=0)=1                       AA203300
         PNOTE '*','20 PERCENT ASSUMED FOR SPEC. OF CYLOFL OR COFL'     AA203310
&CYL     SET   20                                                       AA203320
         GOTO  .L21A                                                    AA203330
         ENDO                                                           AA203340
&CYL     SET   0                                                        AA203350
         DO    (&IOR=0)                                                 AA203360
         PNOTE '*','RECORDS MAY NOT BE ADDED, O/F UNAVAILABLE'          AA203370
         ENDO                                                           AA203380
         GOTO  .L23                                                     AA203390
.L21A    LABEL                                                          AA203400
         DO    &CYL=0                                                   AA203410
         GOTO .L23                                                      AA203420
         ENDO                                                           AA203430
         DO    (&CYL<1)++(&CYL>80)                                      AA203440
         PNOTE '*','PCYL SPECIFICATION ERROR'                           AA203450
&CYL     SET   20                                                       AA203460
         ENDO                                                           AA203470
&FG3     SET   &FG3+1                                                   AA203480
.L23     LABEL                                                          AA203490
         DO    &IOR<2                                                   AA203500
&TYP     SET   0                                                        AA203510
         GOTO  .L27                                                     AA203520
         ENDO                                                           AA203530
         DO    ('&TYPF'='')++('&TYPEFLE'='')=0                          AA203540
         PNOTE '*','TYPEFLE AND TYPF SPEC., TYPEFLE USED'               AA203550
         ENDO                                                           AA203560
         DO    '&TYPEFLE'=''=0                                          AA203570
&TYP     SET   '&TYPEFLE'                                               AA203580
         GOTO  .L25                                                     AA203590
         ENDO                                                           AA203600
         DO    '&TYPF'=''=0             TYPF SPECIFIED ?                AA203610
&TYP     SET   '&TYPF'                                                  AA203620
         GOTO  .L25                                                     AA203630
         ENDO                                                           AA203640
.L25B    LABEL                                                          AA203650
         PNOTE '*','TYPEFLE SPEC. ERROR, SEQUENTIAL ASSUMED'            AA203660
         GOTO  .L25C                                                    AA203670
.L25     LABEL                                                          AA203680
         DO    '&TYP'='RANDOM'                                          AA203690
&TYP     SET   1                                                        AA203700
&W4      SET   &W4+0100                                                 AA203710
&FG2     SET   &FG2+8                                                   AA203720
         GOTO  .L27                                                     AA203730
         ENDO                                                           AA203740
         DO    '&TYP'='RANSEQ'                                          AA203750
&TYP     SET   2                                                        AA203760
&W4      SET   &W4+0300                                                 AA203770
&FG2     SET   &FG2+12                                                  AA203780
         GOTO  .L27                                                     AA203790
         ENDO                                                           AA203800
         DO    '&TYP'='SEQNTL'=0                                        AA203810
         GOTO  .L25B                                                    AA203820
         ENDO                                                           AA203830
.L25C    LABEL                                                          AA203840
&TYP     SET   3                                                        AA203850
&W4      SET   &W4+0200                                                 AA203860
&FG2     SET   &FG2+4                                                   AA203870
.L27     LABEL                                                          AA203880
         DO    ('&IOAREA2'='')++('&IOA2'='')=0                          AA203890
         PNOTE '*','IOAREA2 && IOA2 SPEC., IOAREA2 USED'                AA203900
         ENDO                                                           AA203910
         DO    '&IOAREA2'=''=0                                          AA203920
         DC    A(&IOAREA2)                                   DH$IOA2    AA203930
         DO    '&SEPASMB'='NO'=0                                        AA203932
         EXTRN &IOAREA2                                                 AA203940
         ENDO                                                           AA203942
&FG2     SET   &FG2+2                                                   AA203950
         GOTO  .L27C                                                    AA203960
         ENDO                                                           AA203970
         DO    '&IOA2'=''=0                                             AA203980
         DC    A(&IOA2)                                      DH$IOA2    AA203990
         DO    '&SEPASMB'='NO'=0                                        AA203992
         EXTRN &IOA2                                                    AA204000
         ENDO                                                           AA204002
&FG2     SET   &FG2+2                                                   AA204010
         ENDO                                                           AA204020
         DC    X'F0000000'                                   DH$IOA2    AA204030
.L27C    LABEL                                                          AA204040
         DO    &IOR=3                   IF RTRV ONLY BYPASS WORKAREA    AA204050
         DC    X'F0000000'                                   DH$LWA     AA204060
         GOTO  .L29                                                     AA204070
         ENDO                                                           AA204080
         DO    '&WORKL'=''=0                                            AA204090
         DC    A(&WORKL)                                     DH$LWA     AA204100
         DO    '&SEPASMB'='NO'=0                                        AA204102
         EXTRN &WORKL                                                   AA204110
         ENDO                                                           AA204112
         GOTO  .L27A                                                    AA204120
         ENDO                                                           AA204130
         DO    '&WORK1'=''=0                                            AA204140
         DC    A(&WORK1)                                     DH$LWA     AA204150
         DO    '&SEPASMB'='NO'=0                                        AA204152
         EXTRN &WORK1                                                   AA204160
         ENDO                                                           AA204162
         GOTO  .L27B                                                    AA204170
         ENDO                                                           AA204180
         DO    '&WRK1'=''=0                                             AA204190
         DC    A(&WRK1)                                      DH$LWA     AA204200
         DO    '&SEPASMB'='NO'=0                                        AA204202
         EXTRN &WRK1                                                    AA204210
         ENDO                                                           AA204212
         GOTO  .L29                                                     AA204220
         ENDO                                                           AA204230
         PNOTE 'P','WORKL/WORK1 SPEC. MISSING'                          AA204240
         DC    F'0'                                          DH$LWA     AA204250
         GOTO  .L29                                                     AA204260
.L27A    LABEL                                                          AA204270
         DO    ('&WORK1'=''=0)++('&WRK1'=''=0)                          AA204280
         PNOTE '*','WORKL AND WORK1 SPEC., WORKL USED FOR LOAD/ADD'     AA204290
         GOTO  .L29                                                     AA204300
         ENDO                                                           AA204310
.L27B    LABEL                                                          AA204320
         DO    '&WRK1'=''=0                                             AA204330
         PNOTE '*','WORK1 AND WRK1 SPEC., WORK1 USED FOR LOAD/ADD'      AA204340
         ENDO                                                           AA204350
.L29     LABEL                                                          AA204360
         DO    &IOR<2                    IF ADD OR LOAD BYPASS IOREG    AA204370
         DC    H'0'                                          DH$IORG    AA204380
         GOTO  .L31B                                                    AA204390
         ENDO                                                           AA204400
.L29A    LABEL                                                          AA204410
         DO    ('&IOREG'='')++('&IORG'='')=0                            AA204420
         PNOTE '*','IOREG AND IORG SPEC., IOREG USED'                   AA204430
         ENDO                                                           AA204440
         DO    '&IOREG'=''=0                                            AA204450
&REG     SET   &IOREG(1)                                                AA204460
         GOTO  .L31                                                     AA204470
         ENDO                                                           AA204480
         DO    '&IORG'=''=0                                             AA204490
&REG     SET   &IORG(1)                                                 AA204500
         GOTO  .L31                                                     AA204510
         ENDO                                                           AA204520
         GOTO  .L31A                                                    AA204530
.L31     LABEL                                                          AA204540
         DO    (&REG<2)++(&REG>13)                                      AA204550
         PNOTE '*','I/O REGISTER INCORRECTLY SPECIFIED, 12 ASSUMED'     AA204560
&REG     SET   12                                                       AA204570
         ENDO                                                           AA204580
         DC    Y(&REG*/2+20)                                 DH$IORG    AA204590
&FG3     SET   &FG3+8                                                   AA204600
         GOTO  .L31B                                                    AA204610
.L31A    LABEL                                                          AA204620
         DC    H'0'                                          DH$IORG    AA204630
.L31B    LABEL                                                          AA204640
         DO    ('&WORKS'='NO')                                          AA204650
         GOTO  .L33                                                     AA204660
         ENDO                                                           AA204670
&FG1     SET   &FG1+16                                                  AA204680
         GOTO  .L33A                                                    AA204690
.L33     LABEL                                                          AA204700
         DO    &TYP>1                                                   AA204710
         DO    &REG<2                                                   AA204720
         PNOTE 'P','WORKS OR IOREG REQUIRED FOR SEQ RTRV'               AA204730
         ENDO                                                           AA204740
         ENDO                                                           AA204750
.L33A    LABEL                                                          AA204760
         DO    (&IOR=0)**('&INDEXED'='NO')                              AA204770
         GOTO  .L34                                                     AA204780
         ENDO                                                           AA204790
         DO    ('&INDAREA'='')++('&INDA'='')=0                          AA204800
         PNOTE '*','INDAREA AND INDA SPEC., INDAREA USED'               AA204810
         ENDO                                                           AA204820
         DO    '&INDAREA'=''                                            AA204830
         GOTO  .L33B                                                    AA204840
         ENDO                                                           AA204850
&IND1    SET   '&INDAREA'                                               AA204860
         DO    '&SEPASMB'='NO'=0                                        AA204862
         EXTRN &INDAREA                                                 AA204870
         ENDO                                                           AA204872
         GOTO  .L33C                                                    AA204880
.L33B    LABEL                                                          AA204890
         DO    '&INDA'=''=0                                             AA204900
&IND1    SET   '&INDA'                                                  AA204910
         DO    '&SEPASMB'='NO'=0                                        AA204912
         EXTRN &INDA                                                    AA204920
         ENDO                                                           AA204922
         GOTO  .L33C                                                    AA204930
         ENDO                                                           AA204940
         DO    (&IOR=0)**('&INDEXED'='NO'=0)                            AA204950
         PNOTE 'P','INDAREA MUST BE SPECIFIED FOR INDEXED LOAD'         AA204960
         ENDO                                                           AA204970
         GOTO  .L34                                                     AA204980
.L33C    LABEL                                                          AA204990
         DO    (&IOR=3)**(&TYP=3)                      SEQ. RTRV        AA205000
         PNOTE '*','INDAREA SHOULD NOT BE SPEC., PARAMETER IGNORED'     AA205010
         GOTO  .L34                                                     AA205020
         ENDO                                                           AA205030
         DO    ('&INDSIZE'='')++('&INDS'='')=0                          AA205040
         PNOTE '*','INDIZE AND INDS SPEC., INDSIZE USED'                AA205050
         ENDO                                                           AA205060
         DO    '&INDSIZE'=''                                            AA205070
         GOTO  .L33D                                                    AA205080
         ENDO                                                           AA205090
&IND2    SET   &INDSIZE                                                 AA205100
         GOTO  .L33E                                                    AA205110
.L33D    LABEL                                                          AA205120
         DO    '&INDS'=''                                               AA205130
         PNOTE '*','INSUFFICENT INDSIZE, RESIDENT CORE INDX NOT USED'   AA205140
         GOTO  .L34                                                     AA205150
         ENDO                                                           AA205160
&IND2    SET   &INDS                                                    AA205170
.L33E    LABEL                                                          AA205180
         DO    (&IOR=0)**(&IND2<256)                                    AA205190
         PNOTE '*','INSUFFICIENT INDSIZE, LOAD REQUIREMENT, 256 BYTES'  AA205200
         GOTO  .L34                                                     AA205210
         ENDO                                                           AA205220
&IND3    SET   ((256/(&KEYL+3))*(&KEYL+3))                              AA205230
&IND4    SET   ((&IND2/&IND3)*(&IND3))                                  AA205240
         DO    &IND4=0                  IND2 NOT SUFFICENT              AA205250
         PNOTE '*','INSUFFICENT INDSIZE, RESIDENT CORE INDX NOT USED'   AA205260
         GOTO  .L34                                                     AA205270
         ENDO                                                           AA205280
&IND2    SET   &IND4                                                    AA205290
         DC    H'&IND2'                                      DH$INDS    AA205300
         DC    A(&IND1)                                      DH$INDA    AA205310
&FG2     SET   &FG2+1                                                   AA205320
         GOTO  .L35                                                     AA205330
.L34     LABEL                                                          AA205340
         DC    H'0'                                          DH$INDS    AA205350
         DC    X'F0000000'                                   DH$INDA    AA205360
.L35     LABEL                                                          AA205370
         DO    ('&ERROR'='')++('&ERRO'='')=0      BOTH SPEC ?           AA205380
         PNOTE '*','ERROR AND ERRO SPECIFIED, ERROR USED'               AA205390
         ENDO                                                           AA205400
         DO    '&ERROR'=''                                              AA205410
         GOTO  .L35A                                                    AA205420
         ENDO                                                           AA205430
&ERR     SET   '&ERROR'                                                 AA205440
         DO    '&SEPASMB'='NO'=0                                        AA205442
         EXTRN &ERROR                                                   AA205450
         ENDO                                                           AA205452
&FG3     SET   &FG3+128                                                 AA205460
         GOTO  .L37                                                     AA205470
.L35A    LABEL                                                          AA205480
         DO    '&ERRO'=''=0                                             AA205490
&ERR     SET   '&ERRO'                                                  AA205500
         DO    '&SEPASMB'='NO'=0                                        AA205502
         EXTRN &ERRO                                                    AA205510
         ENDO                                                           AA205512
&FG3     SET   &FG3+128                                                 AA205520
         GOTO  .L37                                                     AA205530
         ENDO                                                           AA205540
         PNOTE '*','ERROR SPECIFICATION MISSING'                        AA205550
&ERR     SET   0                                                        AA205560
.L37     LABEL                                                          AA205570
         DO    ('&INDEXED'='NO')=0                                      AA205580
&FG1     SET   &FG1+8                                                   AA205590
&W4      SET   &W4+0010                                                 AA205600
         ENDO                                                           AA205610
         DC    YL1(&FG1)                                      DC$FG1    AA205620
         DC    YL1(&FG2)                                      DC$FG2    AA205630
         DC    YL1(&FG3)                                      DC$FG3    AA205640
         DC    X'00'                                          DC$FCS    AA205650
         DC    F'0'                                          DC$PADDR   AA205660
         DC    F'0'                                          DC$RELOC   AA205670
         DO    ('&SAVAREA'='')++('&SAVE'='')=0    BOTH SPEC. ?          AA205680
         PNOTE '*','SAVAREA AND SAVE SPEC., SAVAREA USED'               AA205690
         ENDO                                                           AA205700
         DO    '&SAVAREA'=''                                            AA205710
         GOTO  .L39B                                                    AA205720
         ENDO                                                           AA205730
         DC    A(&SAVAREA)                                   DC$SAV     AA205740
         DO    '&SEPASMB'='NO'=0                                        AA205742
         EXTRN &SAVAREA                                                 AA205750
         ENDO                                                           AA205752
&SVE     SET   1                                                        AA205760
         GOTO  .L41                                                     AA205770
.L39B    LABEL                                                          AA205780
         DO    '&SAVE'=''=0                                             AA205790
         DC    A(&SAVE)                                      DC$SAV     AA205800
         DO    '&SEPASMB'='NO'=0                                        AA205802
         EXTRN &SAVE                                                    AA205810
         ENDO                                                           AA205812
&SVE     SET   1                                                        AA205820
         GOTO  .L41                                                     AA205830
         ENDO                                                           AA205840
         DC    X'F0000000'                                   DC$SAV     AA205850
         DO    (&REG=13)**('&SVE'='')                                   AA205860
         PNOTE 'P','SAVAREA MUST BE SPEC.IF IOREG=13'                   AA205870
         ENDO                                                           AA205880
.L41     LABEL                                                          AA205890
         DC    X'F0000000'                                   DC$SAVR    AA205900
         DC    A(&ERR)                                        DC$ERR    AA205910
&FNAME.C EQU   *                                                        AA205920
         DO    '&SEPASMB'='NO'=0                                        AA205922
         ENTRY &FNAME.C                                                 AA205930
         ENDO                                                           AA205932
         DC    X'000000'                                     DC$NMC     AA205940
         DC    YL1(&CYL)                                     DH$COF     AA205950
         DO    (&TYP=1)++(&TYP=2)                                       AA205960
         DO    '&IOAREAR'=''                                            AA205970
         GOTO  .L41A                                                    AA205980
         ENDO                                                           AA205990
         DC    A(&IOAREAR)                                   DH$IOAR    AA206000
         DO    '&SEPASMB'='NO'=0                                        AA206002
         EXTRN &IOAREAR                                                 AA206010
         ENDO                                                           AA206012
         GOTO  .L41C                                                    AA206020
.L41A    LABEL                                                          AA206030
         DO    '&IOAREA1'=''            IOAREA1 = NULL                  AA206040
         GOTO  .L41B                                                    AA206050
         ENDO                                                           AA206060
         DC    A(&IOAREA1)                                   DH$IOAR    AA206070
         DO    '&SEPASMB'='NO'=0                                        AA206072
         EXTRN &IOAREA1                                                 AA206080
         ENDO                                                           AA206082
         GOTO  .L41D                                                    AA206090
.L41B    LABEL                                                          AA206100
         DO    '&IOA1'=''                                               AA206110
         PNOTE 'P','IOAREAR/IOAREA1 MISSING'                            AA206120
         DC    X'F0000000'                                   DH$IOAR    AA206130
         GOTO  .L43                                                     AA206140
         ENDO                                                           AA206150
         DC    A(&IOA1)                                      DH$IOAR    AA206160
         DO    '&SEPASMB'='NO'=0                                        AA206162
         EXTRN &IOA1                                                    AA206170
         ENDO                                                           AA206172
         GOTO  .L43                                                     AA206180
.L41C    LABEL                                                          AA206190
         DO    ('&IOAREA1'=''=0)++('&IOA1'=''=0)                        AA206200
         PNOTE '*','IOAREAR && IOA1 SPEC., IOAREAR USED'                AA206210
         GOTO  .L43                                                     AA206220
         ENDO                                                           AA206230
.L41D    LABEL                                                          AA206240
         DO    '&IOA1'=''=0                                             AA206250
         PNOTE '*','IOAREA1 AND IOA1 SPEC., IOAREA1 USED FOR RANDOM'    AA206260
         GOTO  .L43                                                     AA206270
         ENDO                                                           AA206280
         GOTO  .L43                                                     AA206290
         ENDO                                                           AA206300
         DC    X'F0000000'                                   DH$IOAR    AA206310
.L43     LABEL                                                          AA206320
         DO    (&TYP>1)=0                                               AA206330
         DC    X'F0000000'                                   DH$IOAS    AA206340
         GOTO  .L47                                                     AA206350
         ENDO                                                           AA206360
         DO    '&IOAREAS'=''                                            AA206370
         GOTO  .L43A                                                    AA206380
         ENDO                                                           AA206390
         DC    A(&IOAREAS)                                   DH$IOAS    AA206400
         DO    '&SEPASMB'='NO'=0                                        AA206402
         EXTRN &IOAREAS                                                 AA206410
         ENDO                                                           AA206412
         GOTO  .L43C                                                    AA206420
.L43A    LABEL                                                          AA206430
         DO    '&IOAREA1'=''                                            AA206440
         GOTO  .L43B                                                    AA206450
         ENDO                                                           AA206460
         DC    A(&IOAREA1)                                   DH$IOAS    AA206470
         DO    '&SEPASMB'='NO'=0                                        AA206472
         EXTRN &IOAREA1                                                 AA206480
         ENDO                                                           AA206482
         GOTO  .L43D                                                    AA206490
.L43B    LABEL                                                          AA206500
         DO    '&IOA1'=''                                               AA206510
         PNOTE 'P','IOAREAS MISSING, REQD WITH SEQ PROCESSING'          AA206520
         DC    X'F0000000'                                   DH$IOAS    AA206530
         GOTO  .L47                                                     AA206540
         ENDO                                                           AA206550
         DC    A(&IOA1)                                      DH$IOAS    AA206560
         DO    '&SEPASMB'='NO'=0                                        AA206562
         EXTRN &IOA1                                                    AA206570
         ENDO                                                           AA206572
         GOTO  .L47                                                     AA206580
.L43C    LABEL                                                          AA206590
         DO    ('&IOAREA1'=''=0)++('&IOA1'=''=0)                        AA206600
         PNOTE '*','IOAREAS && IOA1 SPEC., IOAREAS USED'                AA206610
         GOTO  .L47                                                     AA206620
         ENDO                                                           AA206630
.L43D    LABEL                                                          AA206640
         DO    '&IOA1'=''=0                                             AA206650
         PNOTE '*','IOAREA1 && IOA1 SPEC., IOAREA1 USED'                AA206660
         ENDO                                                           AA206670
.L47     LABEL                                                          AA206680
         DO    ((0<&TYP)**(&TYP<3))=0                                   AA206690
         DC    X'F0000000'                                   DH$RWA     AA206700
         GOTO  .L49                                                     AA206710
         ENDO                                                           AA206720
         DO    '&WORKR'=''              WORKR,WORK1 OR WRK1 REQD        AA206730
         GOTO  .L47A                                                    AA206740
         ENDO                                                           AA206750
         DC    A(&WORKR)                                     DH$RWA     AA206760
         DO    '&SEPASMB'='NO'=0                                        AA206762
         EXTRN &WORKR                                                   AA206770
         ENDO                                                           AA206772
         GOTO  .L47C                                                    AA206780
.L47A    LABEL                                                          AA206790
         DO    '&WORK1'=''                                              AA206800
         GOTO  .L47B                                                    AA206810
         ENDO                                                           AA206820
         DC    A(&WORK1)                                     DH$RWA     AA206830
         DO    '&SEPASMB'='NO'=0                                        AA206832
         EXTRN &WORK1                                                   AA206840
         ENDO                                                           AA206842
         GOTO  .L47D                                                    AA206850
.L47B    LABEL                                                          AA206860
         DO    '&WRK1'=''                                               AA206870
         DO    &REG<2                                                   AA206880
         PNOTE 'P','WORKR/WORK1 MISSING'                                AA206890
         ENDO                                                           AA206900
         DC    X'F0000000'                                   DH$RWA     AA206910
         GOTO  .L49                                                     AA206920
         ENDO                                                           AA206930
         DC    A(&WRK1)                                      DH$RWA     AA206940
         DO    '&SEPASMB'='NO'=0                                        AA206942
         EXTRN &WRK1                                                    AA206950
         ENDO                                                           AA206952
         GOTO  .L49                                                     AA206960
.L47C    LABEL                                                          AA206970
         DO    ('&WORK1'=''=0)++('&WRK1'=''=0)                          AA206980
         PNOTE '*','WORKR AND WORK1 SPEC., WORKR USED FOR RAN'          AA206990
         GOTO  .L49                                                     AA207000
         ENDO                                                           AA207010
.L47D    LABEL                                                          AA207020
         DO    '&WRK1'=''=0                                             AA207030
         PNOTE '*','WORK1 AND WRK1 SPEC., WORK1 USED FOR RAN'           AA207040
         ENDO                                                           AA207050
.L49     LABEL                                                          AA207060
&FNAME.X EQU   *                                             PCA-1PD    AA207070
         ORG   &FNAME+47                                                AA207080
&W4      SET   '&W4'(2,4)                                               AA207090
         DC    XL2'&W4'                  REQUIREMENTS BITS              AA207100
         DS    CL3                                                      AA207110
         DC    A(IS$&W4)                                                AA207120
         EXTRN IS$&W4                                                   AA207130
         ORG   &FNAME.X                                                 AA207140
         DC    F'0'                                          DC$CID2    AA207150
         DC    F'0'                                          DC$MBA2    AA207160
         DC    F'0'                                          DC$BPT2    AA207170
         DC    X'01'                                         DC$PID2    AA207180
         DC    3X'00'                                        DC$EID2    AA207190
         DO    &IOR=0                    SET FOR LOAD                   AA207200
         DC    A(&IND1)                                      DC$BUF2    AA207210
         GOTO  .L49A                                                    AA207220
         ENDO                                                           AA207230
         DC    F'0'                                          DC$BUF2    AA207240
.L49A    LABEL                                                          AA207250
         DC    H'256'                                        DC$BPB2    AA207260
         DC    X'0'                      RESERVED                       AA207270
         DC    X'0'                                          DC$SPB2    AA207280
         DC    Y(&KEYL)                                      DC$LCE2    AA207290
         DO    ('&INDEXED'='NO')=0                                      AA207300
&W3      SET   ((300+110*&MXKLN)/&BKZ)+1                                AA207310
&W3      SET   (&W3*(100-&CYL))//100                                    AA207320
         GOTO  .L49E                                                    AA207330
         ENDO                                                           AA207340
&W3      SET   0                                                        AA207350
.L49E    LABEL                                                          AA207360
         DC    Y(&W3)                                        DC$UOS2    AA207370
&PFG2    SET   &PFG2+6                  SET NO EXTENSION & KEYED FILE   AA207380
         DO    &IOR=0                                                   AA207390
&PFG2    SET   &PFG2+4                  CHANGE TO INIT ALOC & EXTEND    AA207400
         ENDO                                                           AA207410
         DC    X'00'                                                    AA207420
         DC    YL1(&W3)                                      DC$ADJ2    AA207430
         DC    H'0'                                                     AA207440
         DC    YL1(&PFG2)                                    DC$PFG2    AA207450
         DC    XL3'00'                                       DC$EOD2    AA207460
         DC    X'F0000000'                                   DH$BKA1    AA207470
         DC    X'F0000000'                                   DH$RPLY1   AA207480
         DC    X'03'                                         DH$FUN1    AA207490
         DC    X'00'                                         DH$COD1    AA207500
         DC    Y(&KEYL+3)                                    DH$SPB1    AA207510
         DC    Y(256-(&KEYL+3))                              DH$BSZ1    AA207520
         DC    H'0'                                          DH$RDS1    AA207530
         DC    H'0'                                          DH$BHB1    AA207540
&W4      SET   (&KEYL+3)                                                AA207550
         DC    Y((256-&W4)/&W4*&W4)                                     AA207560
         DC    Y(&KEYL-1)                                    DH$KSZ1    AA207570
         DC    H'0'                                          DH$KLC1    AA207580
&FNAME.Y EQU   *                                             PCA-2IX    AA207590
         DC    F'0'                                           DH$PCAID  AA207600
         DC    F'0'                                           DH$PMBA   AA207610
         DC    F'0'                                           DH$BPT    AA207620
         DC    X'02'                                         DH$PID     AA207630
         DC    3X'00'                                         DH$EODID  AA207640
         DO    &IOR=0                                                   AA207650
         DC    A(&W2)                                        DH$A1      AA207660
         GOTO  .L49C                                                    AA207670
         ENDO                                                           AA207680
         DC    F'0'                                           DH$A1     AA207690
.L49C    LABEL                                                          AA207700
         DC    H'&BKZ'                                       DH$PBKS    AA207710
         DC    X'00'                     RESERVED                       AA207720
         DC    X'00'                                         DH$PSPB    AA207730
         DC    H'0'                                          DH$LACE    AA207740
         DC    Y(100-&W3)                                    DH$UOS     AA207750
         DC    X'00'                                                    AA207760
         DC    YL1(100-&W3)                                  DH$LADJ    AA207770
         DC    H'0'                                                     AA207780
&PFG1    SET   (('&VFY'='YES')*16+8)                                    AA207790
         DC    YL1(&PFG1)                                   DH$PFG1     AA207800
         DC    XL3'00'                                       DH$EOD     AA207810
         DC    X'F0000000'                                   DH$BKA     AA207820
         DC    X'F0000000'                                   DH$RPLY    AA207830
         DC    X'00'                                         DH$FUN     AA207840
         DO    ('&W1'='FIXUNB')++('&W1'='FIXBLK')                       AA207850
         DC    X'00'                                         DH$COD     AA207860
         DC    H'&REC'                                       DH$SPB     AA207870
         GOTO  .L49D                                                    AA207880
         ENDO                                                           AA207890
         DC    X'01'                                         DH$COD     AA207900
         DC    H'0'                                          DH$SPB     AA207910
.L49D    LABEL                                                          AA207920
         DC    H'&BKZ'                                       DH$BSZ     AA207930
         DC    H'05'                                          DH$RDS    AA207940
         DC    X'0002'                                       DH$BHB     AA207950
         DC    H'0'                                          DH$CFB     AA207960
         DC    Y(&KEYL-1)                                     DH$KSZ    AA207970
         DC    Y(&KYLOC)                                      DH$KLC    AA207980
         DO    ('&KEYARG'='')++('&KARG'='')=0                           AA207990
         PNOTE '*','KEYARG AND KARG SPEC., KEYARG USED'                 AA208000
         ENDO                                                           AA208010
         DO    '&KEYARG'=''                                             AA208020
         GOTO  .L49B                                                    AA208030
         ENDO                                                           AA208040
         DC    A(&KEYARG)                                    DH$KARG    AA208050
         DO    '&SEPASMB'='NO'=0                                        AA208052
         EXTRN &KEYARG                                                  AA208060
         ENDO                                                           AA208062
         GOTO  .L51                                                     AA208070
.L49B    LABEL                                                          AA208080
         DO    '&KARG'=''                                               AA208090
         DO    (&TYP=1)++(&TYP=2)                                       AA208100
         PNOTE 'P','KEYARG MISSING'                                     AA208110
         ENDO                                                           AA208120
         DO    &TYP>1                                                   AA208130
         PNOTE '*','KEYARG REQD IF SETL KEY/GKEY/ID TO BE PERFORMED'    AA208140
         ENDO                                                           AA208150
         DC    X'F0000000'                                   DH$KARG    AA208160
         GOTO  .L51                                                     AA208170
         ENDO                                                           AA208180
         DC    A(&KARG)                                      DH$KARG    AA208190
         DO    '&SEPASMB'='NO'=0                                        AA208192
         EXTRN &KARG                                                    AA208200
         ENDO                                                           AA208202
.L51     LABEL                                                          AA208210
         DC    X'00'                                                    AA208220
         DC    XL5'00'                                       DH$PID     AA208230
&FNAME.A DC    H'0'                                          DH$NMA     AA208240
         DO    '&SEPASMB'='NO'=0                                        AA208242
         ENTRY &FNAME.A                                                 AA208250
         ENDO                                                           AA208252
         DC    F'0'                                          DH$IOF     AA208260
         DC    H'0'                      RESERVED                       AA208270
&FNAME.O DC    H'0'                                          DH$NMO     AA208280
         DC    X'00'                                                    AA208290
         DC    XL5'00'                                       DH$BID     AA208300
&FNAME.R DC    H'0'                                           DH$NMR    AA208310
         DO    '&SEPASMB'='NO'=0                                        AA208312
         ENTRY &FNAME.R,&FNAME.O                                        AA208320
         ENDO                                                           AA208322
         DC    X'00'                                                    AA208330
&FNAME.P DC    XL3'00'                                        DH$NMP    AA208340
&FNAME.S DC    H'0'                                          DH$NMS     AA208350
         DO    '&SEPASMB'='NO'=0                                        AA208352
         ENTRY &FNAME.S                                                 AA208360
         ENDO                                                           AA208362
&FNAME.T DC    H'0'                                          DH$NMT     AA208370
         DO    '&SEPASMB'='NO'=0                                        AA208372
         ENTRY &FNAME.T,&FNAME.G                                        AA208380
         ENDO                                                           AA208382
         DC    X'00'                                                    AA208390
&FNAME.G DC    XL5'00'                                       DH$NMG     AA208400
         DC    X'00'                                         DH$FG1     AA208410
         DC    X'00'                                         DH$FG2     AA208420
         DC    X'00'                                                    AA208430
&FNAME.H DC    XL5'00'                                       DH$NMH     AA208440
         DO    '&SEPASMB'='NO'=0                                        AA208442
         ENTRY &FNAME.P,&FNAME.H                                        AA208450
         ENDO                                                           AA208452
         DC    H'0'                                          DH$BPC     AA208460
         DO    &IOR>0                    IF NOT LOAD, CK RTRV           AA208470
         DO     &IOR<3                  IF NOT RTRV - SET FOR ADD       AA208480
         DC    XL64'00'                  ADD ALLOCATION                 AA208490
         GOTO  .L99                                                     AA208500
         ENDO                                                           AA208510
         DC    XL40'00'                 RETRIEVE ALLOCATION             AA208520
         ENDO                                                           AA208530
.L99     LABEL                                                          AA208540
         END                                                            AA208550
