&FILE    PROC  &P,0,&ERROR=,&FWRITE=,&LACE=,&VERIFY=,&WAIT=,&PCA1=,&PCAXDTF00010
               2=,&PCA3=,&PCA4=,&SEPASMB=,                             XDTF00020
               &LOCK=,&LCA=,&TCA=,&DCA=,&CDCA=,                        XDTF00030
               &PCA5=,&PCA6=,&PCA7=,&LIBUP=,&EXTENTS=,&ALINE=,&FCB=     DTF00040
DTFPF3   NAME                                                           DTF00050
DTFPF    NAME                                                           DTF00060
SAT      NAME                                                           DTF00070
         LCL   &FLGS                                                    DTF00080
         LCL   &MFLG                                                    DTF00090
         LCL   &PCNT                                                    DTF00100
&MFLG    SET   X'0000'                                                  DTF00110
&FLGS    SET   0000                                                     DTF00120
         DO    1-('&LACE'='NO')                                         DTF00130
&FLGS    SET   &FLGS+0001                                               DTF00140
&MFLG    SET   &MFLG+0001                                               DTF00150
         ENDO                                                           DTF00160
         DO    1-('&FWRITE'='NO')                                       DTF00170
&FLGS    SET   &FLGS+0010                                               DTF00180
&MFLG    SET   &MFLG+0010                                               DTF00190
         ENDO                                                           DTF00200
         DO    1-('&VERIFY'='NO')                                       DTF00210
&FLGS    SET   &FLGS+0100                                               DTF00220
&MFLG    SET   &MFLG+0100                                               DTF00230
         ENDO                                                           DTF00240
         ENTRY &FILE                                                    DTF00250
         DO    1-('&SEPASMB'='NO')                                      DTF00252
         DO    1-('&ERROR'='')                                          DTF00260
         EXTRN &ERROR                                                   DTF00270
         ENDO                                                           DTF00280
         DO    1-('&PCA1'='')                                           DTF00290
         EXTRN &PCA1                                                    DTF00300
         ENDO                                                           DTF00310
         DO    1-('&PCA2'='')                                           DTF00320
         EXTRN &PCA2                                                    DTF00330
         ENDO                                                           DTF00340
         DO    1-('&PCA3'='')                                           DTF00350
         EXTRN &PCA3                                                    DTF00360
         ENDO                                                           DTF00370
         DO    1-('&PCA4'='')                                           DTF00380
         EXTRN &PCA4                                                    DTF00390
         ENDO                                                           DTF00400
         DO    1-('&PCA5'='')                                           DTF00410
         EXTRN &PCA5                                                    DTF00420
         ENDO                                                           DTF00430
         DO    1-('&PCA6'='')                                           DTF00440
         EXTRN &PCA6                                                    DTF00450
         ENDO                                                           DTF00460
         DO    1-('&PCA7'='')                                           DTF00470
         EXTRN &PCA7                                                    DTF00480
         ENDO                                                           DTF00490
         DO    1-('&DCA'='')                                            DTF00500
         EXTRN &DCA                                                     DTF00510
         ENDO                                                           DTF00520
         DO    1-('&TCA'='')                                            DTF00530
         EXTRN &TCA                                                     DTF00540
         ENDO                                                           DTF00550
         DO    1-('&LCA'='')                                            DTF00560
         EXTRN &LCA                                                     DTF00570
         ENDO                                                           DTF00580
         DO    1-('&CDCA'='')                                           DTF00590
         EXTRN &CDCA                                                    DTF00600
         ENDO                                                           DTF00610
         ENDO                                                           DTF00612
         CNOP  0,8                                                      DTF00620
&FILE    DC    XL4'00008008'                                            DTF00630
         DC    2F'0'                                                    DTF00640
         DC    A(*+48)                                                  DTF00650
         DC    A(*+22)                                                  DTF00660
         DC    2F'0'                                                    DTF00670
         DC    CL8'&FILE'                                               DTF00680
&PCNT    SET   00                                                       DTF00690
         DO    '&WAIT'='YES'                                            DTF00700
&PCNT    SET   &PCNT+32                                                 DTF00710
         ENDO                                                           DTF00720
         DC    YL1(&PCNT)                                               DTF00730
&PCNT    SET   00                                                       DTF00740
         DO    (('&LIBUP'='YES')++('&LOCK'='YES'))                      DTF00750
&PCNT    SET   &PCNT+8                                                  DTF00760
         ENDO                                                           DTF00770
         DO    '&ALINE'='YES'                                           DTF00780
&PCNT    SET   &PCNT+64                                                 DTF00790
         ENDO                                                           DTF00800
         DO    '&FCB'='YES'                                             DTF00810
&PCNT    SET   &PCNT+4                                                  DTF00820
         ENDO                                                           DTF00830
         DC    YL1(&PCNT)                                               DTF00840
         DC    4H'0'                                                    DTF00850
         DC    XL1'02'                                                  DTF00860
         DC    XL2'&MFLG'                                               DTF00870
         DC    XL1'00'                                                  DTF00880
         DC    H'0'                                                     DTF00890
         DC    A(0)                                                     DTF00900
         DO    1-('&ERROR'='')                                          DTF00910
         DC    A(&ERROR)                                                DTF00920
         GOTO  .PP                                                      DTF00930
         ENDO                                                           DTF00940
         DC    A(0)                                                     DTF00950
.PP      LABEL                                                          DTF00960
         DC    4F'0'                                                    DTF00970
&PCNT    SET   00                                                       DTF00980
         DO    1-(('&PCA1'='')**('&DCA'='')**('&TCA'='')**('&LCA'='')**XDTF00990
               ('&CDCA'=''))                                            DTF01000
&PCNT    SET   &PCNT+1                                                  DTF01010
         ENDO                                                           DTF01020
         DO    1-('&PCA2'='')                                           DTF01040
&PCNT    SET   &PCNT+1                                                  DTF01050
         ENDO                                                           DTF01060
         DO    1-('&PCA3'='')                                           DTF01070
&PCNT    SET   &PCNT+1                                                  DTF01080
         ENDO                                                           DTF01090
         DO    1-('&PCA4'='')                                           DTF01100
&PCNT    SET   &PCNT+1                                                  DTF01110
         ENDO                                                           DTF01120
         DO    1-('&PCA5'='')                                           DTF01130
&PCNT    SET   &PCNT+1                                                  DTF01140
         ENDO                                                           DTF01150
         DO    1-('&PCA6'='')                                           DTF01160
&PCNT    SET   &PCNT+1                                                  DTF01170
         ENDO                                                           DTF01180
         DO    1-('&PCA7'='')                                           DTF01190
&PCNT    SET   &PCNT+1                                                  DTF01200
         ENDO                                                           DTF01210
&FLGS    SET   &PCNT*4                                                  DTF01220
&FLGS    SET   &FLGS+16                                                 DTF01230
         DO    1-('&EXTENTS'='')                                        DTF01240
         DC    A(*+&FLGS)                                               DTF01250
         GOTO  .E                                                       DTF01260
         ENDO                                                           DTF01270
         DC    A(0)                                                     DTF01280
.E       LABEL                                                          DTF01290
         DC    XL1'&PCNT'                                               DTF01300
         DC    XL1'00'                                                  DTF01310
         DO    1-('&EXTENTS'='')                                        DTF01320
         DC    H'&EXTENTS'                                              DTF01330
         GOTO  .EE                                                      DTF01340
         ENDO                                                           DTF01350
         DC    H'0'                                                     DTF01360
         GOTO  .EX                                                      DTF01370
.EE      LABEL                                                          DTF01380
&PCNT    SET   &EXTENTS                                                 DTF01390
&PCNT    SET   &PCNT*8                                                  DTF01400
&PCNT    SET   &PCNT+56                                                 DTF01410
.EX      LABEL                                                          DTF01420
         DC    2F'0'                                                    DTF01430
         DO    1-('&DCA'='')                                            DTF01440
         DC    XL1'1'                                                   DTF01450
         DC    AL3(&DCA)                                                DTF01460
         GOTO  .EXX                                                     DTF01470
         ENDO                                                           DTF01480
         DO    1-('&TCA'='')                                            DTF01490
         DC    XL1'1'                                                   DTF01500
         DC    AL3(&TCA)                                                DTF01510
         GOTO  .EXX                                                     DTF01520
         ENDO                                                           DTF01530
         DO    1-('&LCA'='')                                            DTF01540
         DC    XL1'1'                                                   DTF01550
         DC    AL3(&LCA)                                                DTF01560
         GOTO  .EXX                                                     DTF01570
         ENDO                                                           DTF01580
         DO    1-('&CDCA'='')                                           DTF01590
         DC    XL1'1'                                                   DTF01600
         DC    AL3(&CDCA)                                               DTF01610
         GOTO  .EXX                                                     DTF01620
         ENDO                                                           DTF01630
         DO    1-('&PCA1'='')                                           DTF01640
         DC    XL1'1'                                                   DTF01650
         DC    AL3(&PCA1)                                               DTF01660
         ENDO                                                           DTF01670
.EXX     LABEL                                                          DTF01680
         DO    1-('&PCA2'='')                                           DTF01690
         DC    XL1'2'                                                   DTF01700
         DC    AL3(&PCA2)                                               DTF01710
         ENDO                                                           DTF01720
         DO    1-('&PCA3'='')                                           DTF01730
         DC    XL1'3'                                                   DTF01740
         DC    AL3(&PCA3)                                               DTF01750
         ENDO                                                           DTF01760
         DO    1-('&PCA4'='')                                           DTF01770
         DC    XL1'4'                                                   DTF01780
         DC    AL3(&PCA4)                                               DTF01790
         ENDO                                                           DTF01800
         DO    1-('&PCA5'='')                                           DTF01810
         DC    XL1'5'                                                   DTF01820
         DC    AL3(&PCA5)                                               DTF01830
         ENDO                                                           DTF01840
         DO    1-('&PCA6'='')                                           DTF01850
         DC    XL1'6'                                                   DTF01860
         DC    AL3(&PCA6)                                               DTF01870
         ENDO                                                           DTF01880
         DO    1-('&PCA7'='')                                           DTF01890
         DC    XL1'7'                                                   DTF01900
         DC    AL3(&PCA7)                                               DTF01910
         ENDO                                                           DTF01920
         DO    1-('&EXTENTS'='')                                        DTF01930
&PCNT    SET   &EXTENTS*8                                               DTF01940
&PCNT    SET   &PCNT+56                                                 DTF01950
         DS    CL(&PCNT)                                                DTF01960
         ENDO                                                           DTF01970
         END                                                            DTF01980
