&FNAME   PROC  &PI,0,&BOFM=,&BFM1=,&BFM2=,&BFM3=,    DM SYSTEM         *DTF00010
               &BKSZ=,&BLKSIZE=,&INSZ=,&OUSZ=,&OVBLKSZ=,               *DTF00020
               &RECSIZE=,&RCSZ=,                                       *DTF00030
               &CHNL=,&DEVA=,&DEVICE=,&DEVADDR=,&ATTN=,                *DTF00040
               &DEL1=,&DEL2=,&DEL3=,&DELCHAR=,                         *DTF00050
               &EOFA=,&EOFADDR=,&EOTA=,                                *DTF00060
               &EOFM=,&EORM=,&EORCHAR=,                                *DTF00070
               &ERROR=,&ERRO=,&ERROPT=,&WLRERR=,                       *DTF00080
               &FIGS=,&FTRANS=,&FSCAN=,&LTRS=,&LTRANS=,&LSCAN=,        *DTF00090
               &TRANS=,&ITBL=,&OTBL=,&SCAN=,                           *DTF00100
               &IOAREA1=,&IOAREA2=,&IOA1=,&IOA2=,&INAR=,&OUAR=,        *DTF00110
               &IOREG=,&IORG=,                                         *DTF00120
               &MODE=,&MODNAME=,&SEPASMB=,                             *DTF00130
               &OPTION=,&PARY=,                                        *DTF00140
               &SAVAREA=,&RDONLY=,                                     *DTF00150
               &TYPEFLE=,&TYPE=,&TYPF=,                                *DTF00160
               &RCFM=,&RECFORM=,&INFM=,&OUFM=,                         *DTF00170
               &WORK=,&WORKA=                                           DTF00180
DTFPT    NAME  1                                                        DTF00190
DTFPI    NAME  0                                                        DTF00200
         GBL   &DM$C1                                                   DTF00210
         LCL   &STYP,&SWOR,&SPAR,&SMDE,&SSAV                            DTF00220
         LCL   &SBOF,&SBF1,&SBF2,&SBF3,&SOP                             DTF00230
         LCL   &SSCAN,&SCDE,&SERA                                       DTF00240
         LCL   &SEFA,&SEFC,&SERM,&SFORM                                 DTF00250
         LCL   &SIO2,&SIO1,&SIRG,&SIR                                   DTF00260
         LCL   &STAB,&STABF,&STABL,&SFIG,&SLET                          DTF00270
         LCL   &SF1,&SF2,&SF3,&SF4,&SF5,&SRFM,&SF6,&SFAC                DTF00280
         LCL   &SDE1,&SDE2,&SDE3                                        DTF00290
         LCL   &SBKS,&SRC,&SRCR                                         DTF00300
         LCL   &SR                                                      DTF00310
         LCL   &FNAM                                                    DTF00320
         LCL   &SIRGR                                                   DTF00330
&FNAM    SET   '&FNAME'                                                 DTF00340
&SCDE    SET   0                                                        DTF00350
&SSAV    SET   0                                                        DTF00360
&SIR     SET   0                                                        DTF00370
&SF1     SET   0                                                        DTF00380
&SF2     SET   0                                                        DTF00390
&SF3     SET   0                                                        DTF00400
&SF4     SET   0                                                        DTF00410
&SF5     SET   0                                                        DTF00420
&SF6     SET   0                                                        DTF00430
&SFAC    SET   1                                                        DTF00440
&SBKS    SET   0                                                        DTF00450
&SRFM    SET   0                                                        DTF00460
*                                                                       DTF00470
&SOP     SET   0                                                        DTF00480
&SRC     SET   0                                                        DTF00490
*        DTFPT                          76/8/30                         DTF00500
*                                                                       DTF00510
.*                                                                      DTF00520
.*       SECTION ONE: VALIDITY CHECK AND VERIFICATION OF THE SPECIFIED  DTF00530
.*       KEYWORD PARAMETERS. SETTING OF THE LOCAL SYMBOLS AND FLAGS.    DTF00540
.*                                                                      DTF00550
.*                                                                      DTF00560
.*       FILENAME VERIFICATION.                                         DTF00570
.*                                                                      DTF00580
         DO    '&FNAM'=''                                               DTF00590
         PNOTE 'P','FILENAME NOT SPECIFIED.'                            DTF00600
         GOTO  .UL                                                      DTF00610
         ENDO                                                           DTF00620
         DM$FNC &FNAM                                                   DTF00630
         DO    &DM$C1                                                   DTF00640
         PNOTE 'P','FIRST CHARACTER OF FILENAME NOT ALPHABETIC.'        DTF00650
         ENDO                                                           DTF00660
         DO    '&FNAM'>'Z999999'                                        DTF00670
         PNOTE 'P','FILENAME MORE THAN 7 CHARACTERS. TRUNCATED TO 7.'   DTF00680
&FNAM    SET   '&FNAME'(1,7)                                            DTF00690
         ENDO                                                           DTF00700
.UL      LABEL                                                          DTF00710
.*                                                                      DTF00720
.*       TYPE VERIFICATION. SET UP STYP                                 DTF00730
.*                                                                      DTF00740
         DO    '&TYPEFLE'>''                                            DTF00750
&STYP    SET   '&TYPEFLE'                                               DTF00760
         GOTO  .UL01                                                    DTF00770
         ENDO                                                           DTF00780
         DO    '&TYPE'>''                                               DTF00790
&STYP    SET   '&TYPE'                                                  DTF00800
         GOTO  .UL01                                                    DTF00810
         ENDO                                                           DTF00820
&STYP    SET   '&TYPF'                                                  DTF00830
.UL01    LABEL                                                          DTF00840
         DO    '&STYP'=''                                               DTF00850
         DO    &PI(0)                                                   DTF00860
         PNOTE *,'FILE TYPE NOT SPECIFIED. SET TO INPUT.'               DTF00870
         ENDO                                                           DTF00880
         GOTO  .UL01B                                                   DTF00890
         ENDO                                                           DTF00900
         DO    '&STYP'='OUTPUT'                                         DTF00910
         DO    &PI(0)=0                                                 DTF00920
         GOTO  .UL01A                                                   DTF00930
         ENDO                                                           DTF00940
&SF3     SET   &SF3+128                                                 DTF00950
         GOTO  .UL02                                                    DTF00960
         ENDO                                                           DTF00970
         DO    '&STYP'='INPUT'=0                                        DTF00980
.UL01A   LABEL                                                          DTF00990
         PNOTE 'P','TYPEFLE SPECIFICATION ERROR. SET TO INPUT.'         DTF01000
.UL01B   LABEL                                                          DTF01010
&STYP    SET   'INPUT'                                                  DTF01020
         ENDO                                                           DTF01030
&SF3     SET   &SF3+64                                                  DTF01040
.UL02    LABEL                                                          DTF01050
.*                                                                      DTF01060
.*       VERIFICATION OF WORKA. SET UP SWOR                             DTF01070
.*                                                                      DTF01080
&SWOR    SET   '&WORK'                                                  DTF01090
         DO    '&WORKA'>''                                              DTF01100
&SWOR    SET   '&WORKA'                                                 DTF01110
         ENDO                                                           DTF01120
         DO    '&SWOR'>''                                               DTF01130
         DO    '&SWOR'='YES'=0                                          DTF01140
         PNOTE *,'WORKA SPECIFICATION MISSPELLED.'                      DTF01150
         PNOTE *,'PARAMETER ACCEPTED AS WORKA=YES.'                     DTF01160
         ENDO                                                           DTF01170
&SF4     SET   &SF4+128                                                 DTF01180
         ENDO                                                           DTF01190
.*                                                                      DTF01200
.*       OPTION VERIFICATION. SET OPTION-BIT                            DTF01210
.*                                                                      DTF01220
         DO    '&OPTION'>''                                             DTF01230
         DO    '&OPTION'='YES'=0                                        DTF01240
         PNOTE *,'OPTION SPECIFICATION MISSPELLED.'                     DTF01250
         PNOTE *,'PARAMETER ACCEPTED AS OPTION=YES.'                    DTF01260
         ENDO                                                           DTF01270
&SF3     SET   &SF3+16                                                  DTF01280
         ENDO                                                           DTF01290
.*                                                                      DTF01300
.*       VERIFICATION OF PARITY CHECK SPECIFICATION. SET UP SPAR        DTF01310
.*                                                                      DTF01320
         DO    &PI(0)=0                 DTFPI                           DTF01330
         DO    '&PARY'>''                                               DTF01340
         DO    (('&PARY'='EVEN')++('&PARY'='ODD'))=0                    DTF01350
         PNOTE 'P','PARY SPECIFICATION MISSPELLED. MUST BE EVEN OR ODD' DTF01360
         PNOTE *,'PARAMETER IGNORED.'                                   DTF01370
         GOTO  .UL04                                                    DTF01380
         ENDO                                                           DTF01390
&SPAR    SET   '&PARY'                                                  DTF01400
&SF6     SET   &SF6+16                                                  DTF01410
         ENDO                                                           DTF01420
         ENDO                           END DTFPI                       DTF01430
.UL04    LABEL                                                          DTF01440
.*                                                                      DTF01450
.*       MODE VALIDITY CHECK. SET UP SMDE                               DTF01460
.*                                                                      DTF01470
&SMDE    SET   '&MODE'                                                  DTF01480
         DO    '&SMDE'>''                                               DTF01490
         DO    '&SMDE'='BINARY'                                         DTF01500
&SF1     SET   &SF1+2                                                   DTF01510
         GOTO  .UL05                                                    DTF01520
         ENDO                                                           DTF01530
         DO    '&SMDE'='STD'=0                                          DTF01540
         PNOTE 'P','MODE SPECIFICATION MISSPELLED. MUST BE BINARY OR'   DTF01550
         PNOTE *,'STD. SET TO STD.'                                     DTF01560
&SMDE    SET   'STD'                                                    DTF01570
         ENDO                                                           DTF01580
         GOTO  .UL05                                                    DTF01590
         ENDO                                                           DTF01600
&SMDE    SET   'STD'                                                    DTF01610
         DO    &PI(0)=1                 DTFPT                           DTF01620
         PNOTE *,'MODE NOT SPECIFIED.  SET TO STD.'                     DTF01630
         ENDO                                                           DTF01640
.UL05    LABEL                                                          DTF01650
.*                                                                      DTF01660
.*       VERIFICATION OF THE BEGIN OF FILE MARKER. SET UP SBOF,SBF1,    DTF01670
.*       SBF2,SBF3 AND SOP                                              DTF01680
.*                                                                      DTF01690
         DO    &PI(0)=0                 DTFPI                           DTF01700
         DO    '&BOFM&BFM1&BFM2&BFM3'>''                                DTF01710
         DO    '&BOFM'=''                                               DTF01720
         PNOTE *,'BFM SPECIFIED BUT NOT BOFM. BFM IGNORED.'             DTF01730
         GOTO  .UL06                                                    DTF01740
         ENDO                                                           DTF01750
&SBOF    SET   '&BOFM'                                                  DTF01760
&SF6     SET   &SF6+8                                                   DTF01770
         DO    '&BFM1&BFM2&BFM3'>''                                     DTF01780
         DO    '&BFM1'=''                                               DTF01790
         PNOTE *,'BFM2/3 SPECIFIED BUT NOT BFM1. BFM2/3 IGNORED.'       DTF01800
         GOTO  .UL06                                                    DTF01810
         ENDO                                                           DTF01820
&SBF1    SET   '&BFM1'                                                  DTF01830
         DO    '&BFM2&BFM3'>''                                          DTF01840
         DO    '&BFM2'=''                                               DTF01850
         PNOTE *,'BFM3 SPECIFIED BUT NOT BFM2. BFM3 IGNORED.'           DTF01860
         GOTO  .UL06                                                    DTF01870
         ENDO                                                           DTF01880
&SBF2    SET   '&BFM2'                                                  DTF01890
&SBF3    SET   '&BFM3'                                                  DTF01900
         ENDO                                                           DTF01910
         ENDO                                                           DTF01920
         ENDO                                                           DTF01930
.UL06    LABEL                                                          DTF01940
&SOP     SET   ('&SBOF'>'')*1+('&SBF1'>'')*2+('&SBF2'>'')*4+('&SBF3'>'')DTF01950
               )*8                                                      DTF01960
         ENDO                           END DTFPI                       DTF01970
.*                                                                      DTF01980
.*       VERIFICATION OF SCANTABLE                                      DTF01990
.*                                                                      DTF02000
         DO    '&SCAN'>''                                               DTF02010
         DM$FNC &SCAN                                                   DTF02020
         DO    &DM$C1                                                   DTF02030
         PNOTE 'P','FIRST CHARACTER OF SCANTABLE IS NOT ALPHABETIC.'    DTF02040
         PNOTE *,'PARAMETER IS IGNORED.'                                DTF02050
         GOTO  .UL07                                                    DTF02060
         ENDO                                                           DTF02070
&SSCAN   SET   '&SCAN'                                                  DTF02080
         ENDO                                                           DTF02090
.UL07    LABEL                                                          DTF02100
.*                                                                      DTF02110
.*       VERIFICATION OF DELETECHARACTERS. SET UP SSCDE AND S           DTF02120
.*                                                                      DTF02130
         DO    &PI(0)=0                 DTFPI                           DTF02140
         DO    '&DEL1&DEL2&DEL3'>''                                     DTF02150
         DO    '&SSCAN'>''                                              DTF02160
         PNOTE *,'SCAN AND DEL-CHARACTERS SPECIFIED. DEL IGNORED.'      DTF02170
         GOTO  .UL08                                                    DTF02180
         ENDO                                                           DTF02190
         DO    '&DEL1'=''                                               DTF02200
         PNOTE *,'DEL2/3 SPECIFIED BUT NOT DEL1. DEL2/3 IGNORED.'       DTF02210
         GOTO  .UL08                                                    DTF02220
         ENDO                                                           DTF02230
&SDE1    SET   '&DEL1'                                                  DTF02240
&SCDE    SET   1                                                        DTF02250
         DO    '&DEL2&DEL3'>''                                          DTF02260
         DO    '&DEL2'=''                                               DTF02270
         PNOTE *,'DEL3 SPECIFIED BUT NOT DEL2. DEL3 IGNORED.'           DTF02280
         GOTO  .UL08                                                    DTF02290
         ENDO                                                           DTF02300
&SDE2    SET   '&DEL2'                                                  DTF02310
&SDE3    SET   '&DEL3'                                                  DTF02320
         ENDO                                                           DTF02330
         ENDO                                                           DTF02340
         ENDO                           END DTFPI                       DTF02350
.UL08    LABEL                                                          DTF02360
.*                                                                      DTF02370
.*       SAVEAREA VERIFICATION                                          DTF02380
.*                                                                      DTF02390
         DO    '&SAVAREA'>''                                            DTF02400
         DM$FNC &SAVAREA                                                DTF02410
         DO    &DM$C1                                                   DTF02420
         PNOTE 'P','FIRST CHARACTER OF SAVAREA NOT ALPHABETIC.'         DTF02430
         PNOTE *,'PARAMETER IGNORED.'                                   DTF02440
         GOTO  .UL09                                                    DTF02450
         ENDO                                                           DTF02460
&SF2     SET   &SF2+128                                                 DTF02470
&SSAV    SET   '&SAVAREA'                                               DTF02480
         ENDO                                                           DTF02490
.UL09    LABEL                                                          DTF02500
.*                                                                      DTF02510
.*       RECORD FORMAT VERIFICATION. SET UP SFORM AND SRFM              DTF02520
.*                                                                      DTF02530
         DO    '&RECFORM'>''                                            DTF02540
&SFORM   SET   '&RECFORM'                                               DTF02550
         GOTO  .UL10                                                    DTF02560
         ENDO                                                           DTF02570
         DO    '&RCFM'>''                                               DTF02580
&SFORM   SET   '&RCFM'                                                  DTF02590
         GOTO  .UL10                                                    DTF02600
         ENDO                                                           DTF02610
         DO    '&INFM'>''                                               DTF02620
         DO    '&STYP'='INPUT'                                          DTF02630
&SFORM   SET   '&INFM'                                                  DTF02640
         GOTO  .UL10                                                    DTF02650
         ENDO                                                           DTF02660
         PNOTE *,'INFM FOR OUTPUT FILE IGNORED.'                        DTF02670
         ENDO                                                           DTF02680
         DO    '&OUFM'>''                                               DTF02690
         DO    '&STYP'='OUTPUT'                                         DTF02700
&SFORM   SET   '&OUFM'                                                  DTF02710
         GOTO  .UL10                                                    DTF02720
         ENDO                                                           DTF02730
         PNOTE *,'OUFM IGNORED FOR INPUT FILES.'                        DTF02740
         ENDO                                                           DTF02750
         PNOTE *,'NO RECORD FORMAT SPECIFIED. RECFORM SET TO FIXUNB.'   DTF02760
         GOTO  .UL11                                                    DTF02770
.UL10    LABEL                                                          DTF02780
         DO    (&PI(0)=0)**('&SFORM'='VARUNB')                          DTF02790
&SFORM   SET   'UNDEF'                                                  DTF02800
         ENDO                                                           DTF02810
         DO    '&SFORM'='UNDEF'                                         DTF02820
&SRFM    SET   &SRFM+1                                                  DTF02830
         GOTO  .UL12                                                    DTF02840
         ENDO                                                           DTF02850
         DO    '&SFORM'='FIXUNB'=0                                      DTF02860
         PNOTE 'P','RECFORM MISSPELLED. MUST BE FIXUNB OR UNDEF.'       DTF02870
         PNOTE *,'SET TO FIXUNB.'                                       DTF02880
         ENDO                                                           DTF02890
.UL11    LABEL                                                          DTF02900
&SFORM   SET   'FIXUNB'                                                 DTF02910
&SRFM    SET   &SRFM+4                                                  DTF02920
.UL12    LABEL                                                          DTF02930
.*                                                                      DTF02940
.*       VERIFICATION OF IOAREA1. SET UP SIO1                           DTF02950
.*                                                                      DTF02960
         DO    '&IOAREA1'>''                                            DTF02970
&SIO1    SET   '&IOAREA1'                                               DTF02980
         GOTO  .UL13                                                    DTF02990
         ENDO                                                           DTF03000
         DO    '&IOA1'>''                                               DTF03010
&SIO1    SET   '&IOA1'                                                  DTF03020
         GOTO  .UL13                                                    DTF03030
         ENDO                                                           DTF03040
         DO    '&INAR'>''                                               DTF03050
         DO    '&STYP'='INPUT'                                          DTF03060
&SIO1    SET   '&INAR'                                                  DTF03070
         GOTO  .UL13                                                    DTF03080
         ENDO                                                           DTF03090
         PNOTE *,'INAR IGNORED FOR OUTPUT FILES.'                       DTF03100
         ENDO                                                           DTF03110
         DO    '&OUAR'>''                                               DTF03120
         DO    '&STYP'='OUTPUT'                                         DTF03130
&SIO1    SET   '&OUAR'                                                  DTF03140
         GOTO  .UL13                                                    DTF03150
         ENDO                                                           DTF03160
         PNOTE *,'OUAR IGNORED FOR INPUT FILES.'                        DTF03170
         ENDO                                                           DTF03180
         GOTO  .UL14                                                    DTF03190
.UL13    LABEL                                                          DTF03200
         DM$FNC &SIO1                                                   DTF03210
         DO    &DM$C1=0                                                 DTF03220
         GOTO  .UL15                                                    DTF03230
         ENDO                                                           DTF03240
         PNOTE 'P','FIRST CHARACTER OF IOAREA1 NOT ALPHABETIC.'         DTF03250
.UL14    LABEL                                                          DTF03260
         PNOTE 'P','IOAREA1 NOT SPECIFIED.'                             DTF03270
&SIO1    SET   0                                                        DTF03280
.UL15    LABEL                                                          DTF03290
.*                                                                      DTF03300
.*       VERIFICATION OF IOAREA2. SET UP SIO2.                          DTF03310
.*                                                                      DTF03320
         DO    '&IOAREA2'>''                                            DTF03330
&SIO2    SET   '&IOAREA2'                                               DTF03340
         GOTO  .UL16                                                    DTF03350
         ENDO                                                           DTF03360
&SIO2    SET   '&IOA2'                                                  DTF03370
         DO    '&SIO2'>''                                               DTF03380
.UL16    LABEL                                                          DTF03390
         DM$FNC &SIO2                                                   DTF03400
         DO    &DM$C1                                                   DTF03410
         PNOTE 'P','FIRST CHARACTER OF IOAREA2 NOT ALPHABETIC.'         DTF03420
         PNOTE *,'PARAMETER IGNORED.'                                   DTF03430
&SIO2    SET    ''                                                      DTF03440
         ENDO                                                           DTF03450
         ENDO                                                           DTF03460
.*                                                                      DTF03470
.*       VERIFICATION OF THE END OF FILE ROUTINE. SET UP SEFA.          DTF03480
.*                                                                      DTF03490
&SEFA    SET   '&EOTA'                                                  DTF03500
         DO    '&EOFA'>''                                               DTF03510
&SEFA    SET   '&EOFA'                                                  DTF03520
         ENDO                                                           DTF03530
         DO    '&EOFADDR'>''                                            DTF03540
&SEFA    SET   '&EOFADDR'                                               DTF03550
         ENDO                                                           DTF03560
         DO    '&SEFA'>''                                               DTF03570
         DO    '&STYP'='OUTPUT'                                         DTF03580
         PNOTE *,'EOFADDR IGNORED FOR OUTPUT FILES.'                    DTF03590
         GOTO  .UL17                                                    DTF03600
         ENDO                                                           DTF03610
         DM$FNC &SEFA                                                   DTF03620
         DO    &DM$C1=0                                                 DTF03630
         GOTO  .UL18                                                    DTF03640
         ENDO                                                           DTF03650
         PNOTE 'P','FIRST CHARACTER OF EOFADDR IS NOT ALPHABETIC.'      DTF03660
&SEFA    SET   ''                                                       DTF03670
         ENDO                                                           DTF03680
         DO    '&STYP'='INPUT'                                          DTF03690
         PNOTE 'P','EOFADDR REQUIRED FOR INPUT FILES.'                  DTF03700
         ENDO                                                           DTF03710
.UL17    LABEL                                                          DTF03720
&SEFA    SET   0                                                        DTF03730
.UL18    LABEL                                                          DTF03740
.*                                                                      DTF03750
.*       ERROR RETURN VERIFICATION. SET UP SERA                         DTF03760
.*                                                                      DTF03770
         DO    '&ERROR'=''=0                                            DTF03780
&SERA    SET   '&ERROR'                                                 DTF03790
         GOTO  .UL18A                                                   DTF03800
         ENDO                                                           DTF03810
         DO    '&ERRO'=''=0                                             DTF03820
&SERA    SET   '&ERRO'                                                  DTF03830
         ENDO                                                           DTF03840
.UL18A   LABEL                                                          DTF03850
         DO    '&SERA'=''=0                                             DTF03860
         DM$FNC  &SERA                                                  DTF03870
         DO    &DM$C1=0                                                 DTF03880
&SF1     SET   &SF1+64                                                  DTF03890
         GOTO  .UL19                                                    DTF03900
         ENDO                                                           DTF03910
         PNOTE 'P','FIRST CHARACTER OF ERROR SPECIFICATION IS'          DTF03920
         PNOTE *,'NOT ALPHABETIC.'                                      DTF03930
         ENDO                                                           DTF03940
         PNOTE *,'NO ERROR ROUTINE.  ERRORS RETURN INLINE.'             DTF03950
&SERA    SET   0                                                        DTF03960
.UL19    LABEL                                                          DTF03970
.*                                                                      DTF03980
.*       VERIFICATION OF IOREG. SET UP SIR AND SIRG.                    DTF03990
.*                                                                      DTF04000
         DO    '&IOREG'>''                                              DTF04010
&SIR     SET   1                                                        DTF04020
&SIRG    SET   '&IOREG'                                                 DTF04030
&SIRGR   SET   '&IOREG(1)'                                              DTF04040
         GOTO  .UL20                                                    DTF04050
         ENDO                                                           DTF04060
         DO    '&IORG'>''                                               DTF04070
&SIR     SET   1                                                        DTF04080
&SIRG    SET   '&IORG'                                                  DTF04090
&SIRGR   SET   '&IORG(1)'                                               DTF04100
         ENDO                                                           DTF04110
.UL20    LABEL                                                          DTF04120
         DO    &SIR                                                     DTF04130
         DO    '&SIRG'(1,1)='('=0                                       DTF04140
         PNOTE 'P','I/O REGISTER IS NOT ENCLOSED IN PARENTHESIS.'       DTF04150
         GOTO  .UL21                                                    DTF04160
         ENDO                                                           DTF04170
&SIRG    SET   &SIRGR                                                   DTF04180
         DO    (&SIRG<2)++(&SIRG>13)                                    DTF04190
         PNOTE 'P','I/O REGISTER IS NOT 2 THROUGH 13.'                  DTF04200
         GOTO  .UL21                                                    DTF04210
         ENDO                                                           DTF04220
         DO    (&SIRG=13)**('&SSAV'='0')                                DTF04230
         PNOTE 'P','SAVAREA KEYWORD NOT SPECIFIED FOR I/O REGISTER=13.' DTF04240
.UL21    LABEL                                                          DTF04250
         PNOTE *,'I/O REGISTER SPECIFICATION IS NOT ACCEPTED.'          DTF04260
&SIR     SET   0                                                        DTF04270
&SIRG    SET   0                                                        DTF04280
         GOTO  .UL22                                                    DTF04290
         ENDO                                                           DTF04300
&SIRG    SET   &SIRG*4+20                                               DTF04310
&SF4     SET   &SF4+16                                                  DTF04320
         DO    '&SWOR'>''                                               DTF04330
         PNOTE 'P','I/O REGISTER AND WORK AREA SPECIFIED.'              DTF04340
         PNOTE *,'WORK AREA IGNORED.'                                   DTF04350
&SWOR    SET   ''                                                       DTF04360
&SF4     SET   &SF4-128                                                 DTF04370
         ENDO                                                           DTF04380
         ENDO                                                           DTF04390
.UL22    LABEL                                                          DTF04400
         DO    '&SIO2'>''                                               DTF04410
         DO    &SIR++('&SWOR'>'')                                       DTF04420
&SF4     SET   &SF4+64                                                  DTF04430
         GOTO  .UL23                                                    DTF04440
         ENDO                                                           DTF04450
         PNOTE 'P','I/O REGISTER NOT SPECIFIED.  I/O AREA 2 IGNORED.'   DTF04460
         ENDO                                                           DTF04470
&SIO2    SET   0                                                        DTF04480
.UL23    LABEL                                                          DTF04490
.*                                                                      DTF04500
.*       END OF FILE CONDITION VERIFICATION                             DTF04510
.*                                                                      DTF04520
         DO    '&EOFM'=''                                               DTF04530
         DO    &PI(0)=0                                                 DTF04540
         PNOTE 'P','END OF FILE CONDITION REQUIRED.'                    DTF04550
         ENDO                                                           DTF04560
&SEFC    SET   0                                                        DTF04570
         GOTO  .UL24                                                    DTF04580
         ENDO                                                           DTF04590
&SEFC    SET   '&EOFM'                                                  DTF04600
.UL24    LABEL                                                          DTF04610
.*                                                                      DTF04620
.*       END OF RECORD MARKER VERIFICATION. SET UP SERM AND SCDE        DTF04630
.*                                                                      DTF04640
         DO    '&EORCHAR'>''                                            DTF04650
&SERM    SET   '&EORCHAR'                                               DTF04660
         GOTO  .UL25                                                    DTF04670
         ENDO                                                           DTF04680
&SERM    SET   '&EORM'                                                  DTF04690
         DO    '&SERM'>''                                               DTF04700
.UL25    LABEL                                                          DTF04710
         DO    ('&SFORM'='FIXUNB')++(&PI(0)**('&STYP'='INPUT'))         DTF04720
         PNOTE *,'END OF RECORD CHARACTER IGNORED.'                     DTF04730
&SERM    SET   0                                                        DTF04740
         GOTO  .UL26                                                    DTF04750
         ENDO                                                           DTF04760
&SCDE    SET   1                                                        DTF04770
         GOTO  .UL26                                                    DTF04780
         ENDO                                                           DTF04790
&SERM    SET   0                                                        DTF04800
         DO    (((&PI(0)=0)**('&SCAN'=''))++('&STYP'='OUTPUT'))**('&SFO*DTF04810
               RM'='UNDEF')                                             DTF04820
         PNOTE 'P','END OF RECORD CHARACTER REQUIRED FOR'               DTF04830
         PNOTE *,'OUTPUT FILES WITH UNDEFINED RECORDS.'                 DTF04840
         DO    &PI(0)                                                   DTF04850
         PNOTE *,'RECORD FORMAT SET TO FIXUNB.'                         DTF04860
&SFORM   SET   'FIXUNB'                                                 DTF04870
&SRFM    SET   &SRFM+3                                                  DTF04880
         ENDO                                                           DTF04890
         ENDO                                                           DTF04900
.UL26    LABEL                                                          DTF04910
.*                                                                      DTF04920
.*       VERIFICATION OF TRANSLATION. SET UP STAB,STABF,STABL,SFIG,SLET DTF04930
.*                                                                      DTF04940
         DO    '&TRANS'>''                                              DTF04950
&STAB    SET   '&TRANS'                                                 DTF04960
         GOTO  .UL27                                                    DTF04970
         ENDO                                                           DTF04980
         DO    '&ITBL'>''                                               DTF04990
         DO    '&STYP'='INPUT'                                          DTF05000
&STAB    SET   '&ITBL'                                                  DTF05010
         GOTO  .UL27                                                    DTF05020
         ENDO                                                           DTF05030
         PNOTE *,'ITBL IGNORED FOR OUTPUT FILES.'                       DTF05040
         ENDO                                                           DTF05050
         DO    '&OTBL'>''                                               DTF05060
         DO    '&STYP'='OUTPUT'                                         DTF05070
&STAB    SET   '&OTBL'                                                  DTF05080
         GOTO  .UL27                                                    DTF05090
         ENDO                                                           DTF05100
         PNOTE *,'OTBL IGNORED FOR INPUT FILES.'                        DTF05110
         ENDO                                                           DTF05120
         GOTO  .UL28                                                    DTF05130
.UL27    LABEL                                                          DTF05140
         DM$FNC &STAB                                                   DTF05150
         DO    &DM$C1                                                   DTF05160
         PNOTE 'P','FIRST CHARACTER OF TRANS NOT ALPHABETIC.'           DTF05170
&STAB    SET   ''                                                       DTF05180
         GOTO  .UL28                                                    DTF05190
         ENDO                                                           DTF05200
&SF2     SET   &SF2+64                                                  DTF05210
.UL28    LABEL .                                                        DTF05220
         DO    '&FIGS&LTRS&FTRANS&LTRANS'>''                            DTF05230
         DO    ('&FIGS'='')--('&LTRS'='')                               DTF05240
         PNOTE *,'NOT BOTH FIGS AND LTRS SPECIFIED. IGNORED.'           DTF05250
         GOTO  .UL29                                                    DTF05260
         ENDO                                                           DTF05270
         DO    ('&FIGS'>'')**('&SSCAN'>'')                              DTF05280
         PNOTE *,'SCAN AND FIGS/LTRS SPECIFIED. FIGS/LTRS IGNORED.'     DTF05290
         GOTO  .UL29                                                    DTF05300
         ENDO                                                           DTF05310
&SFIG    SET   '&FIGS'                                                  DTF05320
&SLET    SET   '&LTRS'                                                  DTF05330
.UL29    LABEL                                                          DTF05340
         DO    '&FTRANS'>''                                             DTF05350
         DM$FNC &FTRANS                                                 DTF05360
         DO    &DM$C1                                                   DTF05370
         PNOTE 'P','FIRST CHARACTER OF FTRANS NOT ALPHABETIC.'          DTF05380
         PNOTE *,'PARAMETER IGNORED.'                                   DTF05390
         GOTO  .UL29A                                                   DTF05400
         ENDO                                                           DTF05410
&STABF   SET   '&FTRANS'                                                DTF05420
         ENDO                                                           DTF05430
.UL29A   LABEL                                                          DTF05440
         DO    '&LTRANS'>''                                             DTF05450
         DM$FNC &LTRANS                                                 DTF05460
         DO    &DM$C1                                                   DTF05470
         PNOTE 'P','FIRST CHARACTER OF LTRANS NOT ALPHABETIC.'          DTF05480
         PNOTE *,'PARAMETER IGNORED.'                                   DTF05490
         GOTO  .UL29B                                                   DTF05500
         ENDO                                                           DTF05510
&STABL   SET   '&LTRANS'                                                DTF05520
         ENDO                                                           DTF05530
.UL29B   LABEL                                                          DTF05540
         DO    ('&FTRANS'='')--('&LTRANS'='')                           DTF05550
         PNOTE *,'NOT BOTH FTRANS AND LTRANS SPECIFIED. IGNORED.'       DTF05560
         GOTO  .UL30                                                    DTF05570
         ENDO                                                           DTF05580
         DO    '&STABF'>''                                              DTF05590
         DO    ('&SFIG'='')**('&SSCAN'='')                              DTF05600
         PNOTE 'P','SCAN KEYWORD OMITTED FOR SHIFT CODE TRANSLATION.'   DTF05610
         PNOTE *,'FTRANS AND LTRANS ARE IGNORED.'                       DTF05620
.UL30    LABEL                                                          DTF05630
&STABF   SET   ''                                                       DTF05640
&STABL   SET   ''                                                       DTF05650
         GOTO  .UL31                                                    DTF05660
         ENDO                                                           DTF05670
&SF2     SET   &SF2+16                                                  DTF05680
         GOTO  .UL31                                                    DTF05690
         ENDO                                                           DTF05700
         DO    '&SFIG'>''                                               DTF05710
         PNOTE 'P','SHIFT CHARACTERS BUT NO TRANSLATETABLES SPECIFIED.' DTF05720
         PNOTE *,'FIGS AND LTRS IGNORED.'                               DTF05730
&SFIG    SET   ''                                                       DTF05740
&SLET    SET   ''                                                       DTF05750
         ENDO                                                           DTF05760
.UL31    LABEL                                                          DTF05770
         DO    ('&STABF'>'')**('&STAB'>'')                              DTF05780
         PNOTE 'P','BOTH NONSHIFT AND SHIFT TRANSLATION ARE SPECIFIED.' DTF05790
         PNOTE *,'FTRANS, LTRANS AND TRANS ARE IGNORED.'                DTF05800
&STAB    SET   ''                                                       DTF05810
&STABL   SET   ''                                                       DTF05820
&STABF   SET   ''                                                       DTF05830
&SFIG    SET   ''                                                       DTF05840
&SLET    SET   ''                                                       DTF05850
&SF2     SET   &SF2-80                                                  DTF05860
         ENDO                                                           DTF05870
         DO    '&SFIG'>''                                               DTF05880
&SCDE    SET   1                                                        DTF05890
         ENDO                                                           DTF05900
         ENDO                                                           DTF05910
.*                                                                      DTF05920
.*       BLOCKSIZE AND RECSIZE VERIFICATION. SET UP SBKS,SRC,SRCR       DTF05930
.*                                                                      DTF05940
         DO    &PI(0)=0                 DTFPI                           DTF05950
         DO    '&BKSZ'>''                                               DTF05960
&SBKS    SET   '&BKSZ'                                                  DTF05970
         ENDO                                                           DTF05980
         DO    '&BLKSIZE'>''                                            DTF05990
&SBKS    SET   '&BLKSIZE'                                               DTF06000
         ENDO                                                           DTF06010
         DO    ('&SBKS'<'5')++('&SBKS'>'4095')                          DTF06020
         PNOTE 'P','BLOCKSIZE SPECIFICATION NOT 5 THROUGH 4095.'        DTF06030
&SBKS    SET   0                                                        DTF06040
         ENDO                                                           DTF06050
&SRC     SET   '&RCSZ'                                                  DTF06060
&SRCR    SET   '&RCSZ(1)'                                               DTF06070
&SR      SET   '&RCSZ'(1,1)                                             DTF06080
         DO    '&RECSIZE'>''                                            DTF06090
&SRC     SET   '&RECSIZE'                                               DTF06100
&SRCR    SET   '&RECSIZE(1)'                                            DTF06110
&SR      SET   '&RECSIZE'(1,1)                                          DTF06120
         ENDO                                                           DTF06130
         DO    '&SFORM'='FIXUNB'                                        DTF06140
         DO    '&SR'='('                                                DTF06150
         PNOTE *,'RECSIZE MUST NOT BE A REGISTER FOR RECFORM=FIXUNB.'   DTF06160
&SRCR    SET   ''                                                       DTF06170
         GOTO  .UL32                                                    DTF06180
         ENDO                                                           DTF06190
         DO    '&SRC'>''                                                DTF06200
         DO    ('&SRC'>'&SBKS')++('&SRC'<'1')                           DTF06210
         PNOTE 'P','RECSIZE SPECIFICATION MISSPELLED.'                  DTF06220
         GOTO  .UL32                                                    DTF06230
         ENDO                                                           DTF06240
         GOTO  .UL34                                                    DTF06250
         ENDO                                                           DTF06260
.UL32    LABEL                                                          DTF06270
         PNOTE *,'NO RECSIZE SPECIFIED. SET EQUAL TO BLKSIZE.'          DTF06280
         GOTO  .UL33A                                                   DTF06290
         ENDO                                                           DTF06300
         DO    '&SRCR'>''                                               DTF06310
         DO    (&SRCR<2)++(&SRCR>13)                                    DTF06320
         PNOTE 'P','RECSIZE NOT 2 THROUGH 13 OR PARENTHESIS OMITTED.'   DTF06330
         GOTO  .UL33                                                    DTF06340
         ENDO                                                           DTF06350
         DO    (&SRCR=13)**('&SSAV'='0')                                DTF06360
         PNOTE 'P','RECSIZE=(13), BUT NO SAVEAREA. RECSIZE IGNORED.'    DTF06370
         GOTO  .UL33                                                    DTF06380
         ENDO                                                           DTF06390
&SRCR    SET   &SRCR*4+20                                               DTF06400
&SF4     SET   &SF4+8                                                   DTF06410
         GOTO  .UL33A                                                   DTF06420
         ENDO                                                           DTF06430
.UL33    LABEL                                                          DTF06440
&SRCR    SET   ''                                                       DTF06450
         PNOTE *,'NO RECSIZEREGISTER FOR RECFORM=UNDEF SPECIFIED.'      DTF06460
.UL33A   LABEL                                                          DTF06470
&SRC     SET   &SBKS                                                    DTF06480
.UL34    LABEL                                                          DTF06490
         ENDO                                                           DTF06500
         DO    &PI(0)=1                 DTFPT                           DTF06510
         DO    '&BKSZ'=''=0                                             DTF06520
&SBKS    SET   '&BKSZ'                                                  DTF06530
         GOTO  .UL35                                                    DTF06540
         ENDO                                                           DTF06550
         DO    '&BLKSIZE'=''=0                                          DTF06560
&SBKS    SET   '&BLKSIZE'                                               DTF06570
         GOTO  .UL35                                                    DTF06580
         ENDO                                                           DTF06590
         PNOTE 'P','BLOCK SIZE NOT SPECIFIED.  BLOCK SIZE IS REQUIRED.' DTF06600
&SBKS    SET   0                                                        DTF06610
         GOTO  .UL36                                                    DTF06620
.UL35    LABEL                                                          DTF06630
         DO    (&SBKS<1)++(&SBKS>4095)                                  DTF06640
         PNOTE 'P','BLOCK SIZE NOT 1 TO 4095.'                          DTF06650
&SBKS    SET   0                                                        DTF06660
         ENDO                                                           DTF06670
.UL36    LABEL                                                          DTF06680
&SRC     SET   '&RCSZ'                                                  DTF06690
&SRCR    SET   '&RCSZ(1)'                                               DTF06700
&SR      SET   '&RCSZ'(1,1)                                             DTF06710
         DO    '&RECSIZE'=''=0                                          DTF06720
&SRC     SET   '&RECSIZE'                                               DTF06730
&SRCR    SET   '&RECSIZE(1)'                                            DTF06740
&SR      SET   '&RECSIZE'(1,1)                                          DTF06750
         ENDO                                                           DTF06760
         DO    '&SRC'=''=0              RECSIZE SPEC                    DTF06770
         DO    '&SFORM'='FIXUNB'                                        DTF06780
         PNOTE 'P','RECORD SIZE REGISTER SPECIFIED FOR RECFORM=FIXUNB.' DTF06790
         GOTO  .UL37                                                    DTF06800
         ENDO                                                           DTF06810
         DO    '&SR'='('=0                                              DTF06820
         PNOTE 'P','RECORD SIZE REGISTER IS NOT ENCLOSED IN'            DTF06830
         PNOTE *,'PARENTHESIS.'                                         DTF06840
         GOTO  .UL37                                                    DTF06850
         ENDO                                                           DTF06860
         DO    (&SRCR<2)++(&SRCR>13)                                    DTF06870
         PNOTE 'P','RECORD SIZE REGISTER IS NOT 2 THROUGH 13.'          DTF06880
         GOTO  .UL37                                                    DTF06890
         ENDO                                                           DTF06900
         DO    (&SRCR=13)**('&SSAV'='')                                 DTF06910
         PNOTE 'P','SAVAREA KEYWORD NOT SPECIFIED FOR RECORD'           DTF06920
         PNOTE *,'SIZE REGISTER=13.'                                    DTF06930
         GOTO  .UL37                                                    DTF06940
         ENDO                                                           DTF06950
&SRCR    SET   &SRCR*4+20                                               DTF06960
&SF4     SET   &SF4+8                                                   DTF06970
         GOTO  .UL39                                                    DTF06980
.UL37    LABEL                                                          DTF06990
         PNOTE *,'RECORD SIZE REGISTER IS NOT ACCEPTED.'                DTF07000
         GOTO  .UL38                                                    DTF07010
         ENDO                                                           DTF07020
&SRC     SET   0                                                        DTF07030
         DO    ('&SFORM'='UNDEF')**('&STYP'='OUTPUT')    NO RECSIZE     DTF07040
         PNOTE 'P','RECORD SIZE REGISTER IS NOT SPECIFIED FOR'          DTF07050
         PNOTE *,'UNDEFINED RECORDS.'                                   DTF07060
         GOTO  .UL38                                                    DTF07070
         ENDO                                                           DTF07080
&SRCR    SET   0                                                        DTF07090
         GOTO  .UL39                                                    DTF07100
.UL38    LABEL                                                          DTF07110
         DO    '&SFORM'='UNDEF'                                         DTF07120
         PNOTE *,'RECORDS WILL BE TREATED AS FIXED-UNBLOCKED DUE'       DTF07130
         PNOTE *,'TO PREVIOUS ERROR.'                                   DTF07140
&SRFM    SET   &SRFM**X'FB'                                             DTF07150
&SRFM    SET   &SRFM+1                                                  DTF07160
         ENDO                                                           DTF07170
&SRCR    SET   0                                                        DTF07180
.UL39    LABEL                                                          DTF07190
         ENDO                           END DTFPT                       DTF07200
.*                                                                      DTF07210
.*       SET UP FACILITY CODE                                           DTF07220
.*                                                                      DTF07230
         DO    '&STYP'='OUTPUT'                                         DTF07240
&SFAC    SET   2                                                        DTF07250
         ENDO                                                           DTF07260
         DO    '&FTRANS&FSCAN&LTRANS&LSCAN&SCAN'=''=0                   DTF07270
&SFAC    SET   &SFAC+4                                                  DTF07280
         ENDO                                                           DTF07290
         DO    ('&SSCAN'>'')++&SCDE                                     DTF07300
&SF2     SET   &SF2+32                                                  DTF07310
         ENDO                                                           DTF07320
.*                                                                      DTF07330
.*       SECTION TWO: GENERATING OF TABLE                               DTF07340
.*                                                                      DTF07350
         CNOP  0,8                                                      DTF07360
&FNAME   EQU   *                                                        DTF07370
         DS    7F                       DC$CCB                          DTF07380
         DC    CL7'&FNAM'               DC$NME                          DTF07390
         DC    C' '                                                     DTF07400
         DC    H'0'                     DU$MFLG                         DTF07410
         DS    H                        RESERVED                        DTF07420
         DC    H'0'                     DU$LGTH                         DTF07430
         DC    H'0'                     DU$DISP                         DTF07440
         DC    YL1(0&SIRG)              DU$IRG                          DTF07450
         DC    YL1(0&SRCR)              DU$RCR                          DTF07460
         DO    &PI(0)                                                   DTF07470
         DC    XL2'0140'                DU$DTF                          DTF07480
         ENDO                                                           DTF07490
         DO    &PI(0)=0                                                 DTF07500
         DC    XL2'0120'                DU$DTF                          DTF07510
         ENDO                                                           DTF07520
         DC    AL1(&SFAC)                                               DTF07530
         DC    X'0'                     DU$REQ                          DTF07540
&FNAM.C  EQU   *                                                        DTF07550
         DO    '&SEPASMB'='NO'=0                                        DTF07552
         ENTRY &FNAM.C                                                  DTF07560
         ENDO                                                           DTF07562
         DC    H'0'                     DU$ERFLG                        DTF07570
         DO    &PI(0)=0                                                 DTF07580
         DC    A(DU$PII1)                                               DTF07590
         EXTRN DU$PII1                                                  DTF07600
         ENDO                                                           DTF07610
         DO    &PI(0)=1                                                 DTF07620
         DC    A(DU$PT&SFAC)            DU$IOCS                         DTF07630
         EXTRN DU$PT&SFAC                                               DTF07640
         ENDO                                                           DTF07650
&FNAM.E  EQU   *                                                        DTF07660
         ENTRY &FNAM.E                                                  DTF07670
         DC    A(&SERA)                 DU$ERCD,DU$ERR                  DTF07680
         DO    '&SERA'='0'=0                                            DTF07690
         DO    '&SEPASMB'='NO'=0                                        DTF07692
         EXTRN &SERA                                                    DTF07700
         ENDO                                                           DTF07702
         ENDO                                                           DTF07710
&FNAM.D  EQU   *                                                        DTF07720
         DO    '&SEPASMB'='NO'=0                                        DTF07722
         ENTRY &FNAM.D                                                  DTF07730
         ENDO                                                           DTF07732
         DC    X'0'                     DU$BCW                          DTF07740
         DC    AL3(&SIO1)               DU$IOB                          DTF07750
         DC    H'0'                     DU$CWF                          DTF07760
         DC    Y(&SBKS)                 DU$CWCT                         DTF07770
         DO    '&SSCAN'>''                                              DTF07780
         DC    A(&SSCAN)                DU$SCAN                         DTF07790
         DO    '&SEPASMB'='NO'=0                                        DTF07792
         EXTRN &SSCAN                                                   DTF07800
         ENDO                                                           DTF07802
         GOTO  .UG1                                                     DTF07810
         ENDO                                                           DTF07820
         DO    &PI(0)=1                                                 DTF07830
         DC    A(0)                                                     DTF07840
         GOTO  .UG1                                                     DTF07850
         ENDO                                                           DTF07860
         DC    A(&FNAM.S)                                               DTF07870
.UG1     LABEL                                                          DTF07880
         DO    '&STABF'>''                                              DTF07890
         DC    A(&STABL)                DU$TABL                         DTF07900
         DO    '&SEPASMB'='NO'=0                                        DTF07902
         EXTRN &STABL                                                   DTF07910
         ENDO                                                           DTF07912
         DC    A(&STABF)                DU$TABF                         DTF07920
         DO    '&SEPASMB'='NO'=0                                        DTF07922
         EXTRN &STABF                                                   DTF07930
         ENDO                                                           DTF07932
         GOTO  .UG2                                                     DTF07940
         ENDO                                                           DTF07950
         DC    2A(0)                                                    DTF07960
.UG2     LABEL                                                          DTF07970
         DC    X'01'                    DU$PCACT                        DTF07980
         DC    AL3(0)                                                   DTF07990
         DO    '&STAB'>''                                               DTF08000
         DC    A(&STAB)                 DU$TAB                          DTF08010
         DO    '&SEPASMB'='NO'=0                                        DTF08012
         EXTRN &STAB                                                    DTF08020
         ENDO                                                           DTF08022
         GOTO  .UG3                                                     DTF08030
         ENDO                                                           DTF08040
         DC    A(0)                                                     DTF08050
.UG3     LABEL                                                          DTF08060
         DC    A(0)                     DU$PUB                          DTF08070
         DC    X'01'                    DU$PCA1                         DTF08080
         DC    AL3(&FNAME+160)                                          DTF08090
         DO    &PI(0)=0                 DTFPI                           DTF08095
         DC    XL1'&SERM'               DU$EORM
         GOTO  .UG305
         ENDO
         DC    YL1(&SERM)               DU$EORM                         DTF08100
.UG305   LABEL                                                          DTF08105
         DC    5XL1'0&SEFC'             DU$EFCOM                        DTF08110
         DO    &PI(0)=0                                                 DTF08120
         DC    CL1'$'                   DU$MSG1                         DTF08130
         DC    HL2'1108'                                                DTF08140
         DC    CL1'/'                                                   DTF08150
         DC    CL8'&FNAM'                                               DTF08160
         DC    XL3'0'                                                   DTF08170
         DC    XL1'08'                                                  DTF08180
         DC    H'0'                                                     DTF08190
         GOTO  .UG31                                                    DTF08200
         ENDO                                                           DTF08210
         DC    H'0'                                                     DTF08220
         DC    4A(0)                                                    DTF08230
.UG31    LABEL                                                          DTF08240
         DC    YL1(&SF1)                DU$FG1                          DTF08250
         DC    YL1(&SF2)                DU$FG2                          DTF08260
         DC    YL1(&SF3)                DU$FG3                          DTF08270
         DC    YL1(0)                   DU$FCS                          DTF08280
         DO    &PI(0)=1                                                 DTF08290
         DC    A(0)                                                     DTF08300
         GOTO  .UG311                                                   DTF08310
         ENDO                                                           DTF08320
         DC    A(&FNAM.P)               DU$PAR                          DTF08330
.UG311   LABEL                                                          DTF08340
         DC    A(0)                                                     DTF08350
         DC    A(&SSAV)                 DU$SAVE                         DTF08360
         DO    '&SSAV'='0'=0                                            DTF08370
         DO    '&SEPASMB'='NO'=0                                        DTF08372
         EXTRN &SSAV                                                    DTF08380
         ENDO                                                           DTF08382
         ENDO                                                           DTF08390
         DC    A(0)                     DU$SAVR                         DTF08400
         DO    &PI(0)=0                                                 DTF08410
         DC    2A(0)                                                    DTF08420
         DC    CL1'$'                   DU$MSG2                         DTF08430
         DC    HL2'1107'                                                DTF08440
         DC    CL1'/'                                                   DTF08450
         DC    CL8'&FNAM'                                               DTF08460
         DC    XL3'0'                                                   DTF08470
         DC    XL1'08'                                                  DTF08480
         DC    2A(0)                                                    DTF08490
         GOTO  .UG32                                                    DTF08500
         ENDO                                                           DTF08510
         DC    8A(0)                                                    DTF08520
.UG32    LABEL                                                          DTF08530
         DC    A(0)                     DU$PID                          DTF08540
         DO    '&SIO1'='0'                                              DTF08550
         DC    XL1'F0'                                                  DTF08560
         DC    AL3(0)                                                   DTF08570
         GOTO  .UG4                                                     DTF08580
         ENDO                                                           DTF08590
         DC    A(&SIO1)                 DU$A1                           DTF08600
         DO    '&SEPASMB'='NO'=0                                        DTF08602
         EXTRN &SIO1                                                    DTF08610
         ENDO                                                           DTF08612
.UG4     LABEL                                                          DTF08620
         DC    Y(&SBKS)                 DU$BKS                          DTF08630
         DC    YL1(&SOP)                DU$OPS                          DTF08640
         DC    XL1'0&SBOF'              DU$BF0                          DTF08650
         DC    XL1'0&SBF1'              DU$BF1                          DTF08660
         DC    XL1'0&SBF2'              DU$BF2                          DTF08670
         DC    XL1'0&SBF3'              DU$BF3                          DTF08680
         DC    X'0'                                                     DTF08690
         DC    A(&FNAME)                DU$LADS                         DTF08700
         DO    '&SEFA'='0'                                              DTF08710
         DC    XL1'F0'                                                  DTF08720
         DC    AL3(0)                                                   DTF08730
         GOTO  .UG5                                                     DTF08740
         ENDO                                                           DTF08750
         DC    A(&SEFA)                 DU$EOD                          DTF08760
         DO    '&SEPASMB'='NO'=0                                        DTF08762
         EXTRN &SEFA                                                    DTF08770
         ENDO                                                           DTF08772
.UG5     LABEL                                                          DTF08780
         DC    A(0)                                                     DTF08790
         DC    Y(&SRC)                  DU$REC                          DTF08800
         DC    Y(0)                                                     DTF08810
         DC    YL1(&SF4)                DU$FG4                          DTF08820
         DC    YL1(&SF5)                DU$FG5                          DTF08830
         DC    YL1(&SRFM)               DU$RFM                          DTF08840
         DC    YL1(&SF6)                DU$FG6                          DTF08850
         DC    A(0)                                                     DTF08860
         DC    A(&SIO2)                 DU$A2                           DTF08870
         DO    '&SIO2'='0'=0                                            DTF08880
         DO    '&SEPASMB'='NO'=0                                        DTF08882
         EXTRN &SIO2                                                    DTF08890
         ENDO                                                           DTF08892
         ENDO                                                           DTF08900
         DO    &PI(0)=0                                                 DTF08910
&FNAM.S  EQU   *                                                        DTF08920
         DO    &SCDE                                                    DTF08930
         DC    XL256'0'                                                 DTF08940
         DO    '&SFIG'>''                                               DTF08950
         ORG   &FNAM.S+X'&SFIG'                                         DTF08960
         DC    X'04'                                                    DTF08970
         ORG   &FNAM.S+X'&SLET'                                         DTF08980
         DC    X'08'                                                    DTF08990
         ENDO                                                           DTF09000
         DO    '&SDE1'>''                                               DTF09010
         ORG   &FNAM.S+X'&SDE1'                                         DTF09020
         DC    X'0C'                                                    DTF09030
         ENDO                                                           DTF09040
         DO    '&SDE2'>''                                               DTF09050
         ORG   &FNAM.S+X'&SDE2'                                         DTF09060
         DC    X'0C'                                                    DTF09070
         ENDO                                                           DTF09080
         DO    '&SDE3'>''                                               DTF09090
         ORG   &FNAM.S+X'&SDE3'                                         DTF09100
         DC    X'0C'                                                    DTF09110
         ENDO                                                           DTF09120
         DO    '&SERM'>''                                               DTF09130
         ORG   &FNAM.S+X'&SERM'                                         DTF09140
         DC    X'10'                                                    DTF09150
         ENDO                                                           DTF09160
         ORG   &FNAM.S+256                                              DTF09170
         ENDO                                                           DTF09180
&FNAM.P  EQU   *                                                        DTF09190
         DO    '&PARY'='EVEN'                                           DTF09200
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09210
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09220
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09230
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09240
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09250
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09260
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09270
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09280
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09290
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09300
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09310
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09320
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09330
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09340
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09350
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09360
         ENDO                                                           DTF09370
         DO    '&PARY'='ODD'                                            DTF09380
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09390
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09400
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09410
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09420
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09430
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09440
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09450
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09460
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09470
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09480
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09490
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09500
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09510
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09520
         DC    X'00FFFF00FF0000FFFF0000FF00FFFF00'                      DTF09530
         DC    X'FF0000FF00FFFF0000FFFF00FF0000FF'                      DTF09540
         ENDO                                                           DTF09550
         ENDO                                                           DTF09560
         END                                                            DTF09570
