         PROC  &P,0,&F1=,&F2=,&F3=,&F4=,&F5=,&F6=,&FCB=,&ERB=,&VOL1=,&PXVTO00010
               AD=,&SAT=,&PCA=,                                        XVTO00020
               &EXT=,&FMT1=                                             VTO00030
VTOC     NAME                                                           VTO00040
         DO    1-(('&VOL1'='YES')++('&VOL1'=''))                        VTO00050
         ORG   &VOL1                                                    VTO00060
         ENDO                                                           VTO00070
         DO    1-('&VOL1'='')                                           VTO00080
*                                                                       VTO00090
         DO    '&VOL1'='YES'                                            VTO00100
DL$VOL1  DSECT                                                          VTO00110
         ENDO                                                           VTO00120
*                         DIRECT ACCESS VOLUME 1 LABEL                  VTO00130
DL$VL    DS    CL4                      4 BYTE KEY 'VOL1'               VTO00140
DL$VL1   DS    CL4                      4 BYTE IDENTIFIER - 'VOL1'      VTO00150
DL$VSN   DS    CL6                      VOLUME SERIAL NUMBER            VTO00160
DL$VSB   DS    CL1                      VOLUME SECURITY BYTE            VTO00170
DL$VTC   DS    CL10                     VTOC ADDRESS - CCHHR            VTO00180
         DS    CL20                     RESERVED                        VTO00190
DL$ONR   DS    CL10                     OPTIONAL OWNER NAME/ADDRESS     VTO00200
         DS    CL29                     RESERVED                        VTO00210
         DO    '&PAD'='YES'                                             VTO00220
         DS    CL172                    PAD FOR 256 BYTE BLOCK          VTO00230
         ENDO                                                           VTO00240
*                                                                       VTO00250
         ENDO                                                           VTO00260
         DO    '&VOL1'='YES'                                            VTO00270
&SYSECT  CSECT                                                          VTO00280
         ENDO                                                           VTO00290
         DO    1-(('&F1'='YES')++('&F1'=''))                            VTO00300
         ORG   &F1                                                      VTO00310
         ENDO                                                           VTO00320
         DO    1-(('&FMT1'='YES')++('&FMT1'=''))                        VTO00330
         ORG   &FMT1                                                    VTO00340
         ENDO                                                           VTO00350
         DO    1-(('&FMT1'='')**('&F1'=''))                             VTO00360
         DO    '&FMT1'='YES'                                            VTO00370
DL$FMT1  DSECT                                                          VTO00380
         ENDO                                                           VTO00390
         DO    '&F1'='YES'                                              VTO00400
DL$F1    DSECT                                                          VTO00410
         ENDO                                                           VTO00420
*                       DIRECT ACCESS FORMAT 1 LABEL   90/30            VTO00430
DL$KEY1  DS    CL44                     KEY FIELD - FILE ID             VTO00440
DL$ID1   DS    CL1                      FORMAT IDENTIFIER - X'F1'       VTO00450
DL$FS1   DS    CL6                      FILE SERIAL NUMBER              VTO00460
DL$VS1   DS    CL2                      VOLUME SEQUENCE NUMBER          VTO00470
DL$CD1   DS    CL3                      CREATION DATE                   VTO00480
DL$ED1   DS    CL3                      EXPIRATION DATE                 VTO00490
DL$XC1   DS    CL1                      EXTENT COUNT                    VTO00500
DL$OC1   DS    CL1                      OPTION CODES                    VTO00510
DL$PC1   DS    CL1                      NUMBER OF PARTITIONS            VTO00520
DL$FT1   DS    CL2                      FILE TYPE                       VTO00530
DL$BL1   DS    CL2                      BLOCK LENGTH PCA1               VTO00540
DL$RL1   DS    CL2                      RECORD LENGTH PCA1              VTO00550
DL$RF1   DS    CL1                      RECORD FORMAT PCA1              VTO00560
         DS    6CL5                     PCA2 - PCA7 SPECIFICATIONS      VTO00570
DL$DS1   DS    CL1                     DATA SET INDICATORS              VTO00580
DL$KL1   DS    CL2                     KEY LOCATION  - ISAM FILES       VTO00590
DL$SA1   DS    CL1                     SECONDARY ALLOCATION INCREMENT   VTO00600
DL$LH1   DS    CL1                      FILE LOW HEAD                   VTO00610
DL$HH1   DS    CL1                      FILE HIGH HEAD                  VTO00620
DL$XT1   DS    CL1                      EXTENT TYPE - FIRST EXT         VTO00630
DL$XS1   DS    CL1                      EXTENT SEQ NUMBER - FIRST EXT   VTO00640
DL$XL1   DS    CL4                      EXTENT LOWER LIMIT - FIRST EXT  VTO00650
DL$XU1   DS    CL4                      EXTENT UPPER LIMIT - FIRST EXT  VTO00660
         DS    CL20                     2ND AND 3RD EXTENTS             VTO00670
DL$CP1   DS    CL5                      POINTER TO FORMAT 2 LABEL       VTO00680
         DO    '&PAD'='YES'                                             VTO00690
         DS    CL116                                                    VTO00700
         ENDO                                                           VTO00710
*                                                                       VTO00720
         ENDO                                                           VTO00730
         DO    '&FMT1'='YES'                                            VTO00740
&SYSECT  CSECT                                                          VTO00750
         ENDO                                                           VTO00760
         DO    '&F1'='YES'                                              VTO00770
&SYSECT  CSECT                                                          VTO00780
         ENDO                                                           VTO00790
         DO    1-(('&F2'='YES')++('&F2'=''))                            VTO00800
         ORG   &F2                                                      VTO00810
         ENDO                                                           VTO00820
         DO    1-('&F2'='')                                             VTO00830
*                                                                       VTO00840
         DO    '&F2'='YES'                                              VTO00850
DL$SATF2 DSECT            DIRECT ACCESS FORMAT 2 LABEL - (SAT)          VTO00860
         ENDO                                                           VTO00870
*                                                                       VTO00880
DL$SID2  DS    CL1                      KEY ID - X'02'                  VTO00890
DL$SPC2  DS    CL1                      NON-INDEXED LAST BLOCK CNTRL    VTO00900
DL$SLF2  DS    CL1                      KEY LEN/LACE FACTOR FIRST PCA   VTO00910
DL$SLA2  DS    CL1                     BLOCKS PER TRACK FIRST PCA       VTO00920
DL$SED2  DS    CL3                      EOD ID FIRST PCA                VTO00930
         DS    CL6                      DISCROPTOR FIELD FOR PCA2       VTO00940
DL$ILPD2 DS    CL5                      INDEXED - ID OF LAST PD RECORD  VTO00950
DL$IFC2  DS    CL2                      INDEXED - FULL PD CYL COUNT     VTO00960
         DS    CL1                      INDEXED - RESERVED              VTO00970
DL$ILTI2 DS    CL5                      INDEXED - ID OF LAST TOP INDEX  VTO00980
DL$IORC2 DS    CL2                      INDEXED - OVERFLOW RECORD CNT   VTO00990
         DS    CL1                      INDEXED - RESERVED              VTO01000
DL$ILBI2 DS    CL5                      INDEXED - ID LAST BLOCK INDEX   VTO01010
DL$IPDC2 DS    CL2                      INDEXED - PD RECORD COUNT       VTO01020
         DS    CL1                      INDEXED - RESERVED              VTO01030
DL$INMR2 DS    CL3                      INDEXED - OVFLD CHAIN RET CNT   VTO01040
DL$ITIC2 DS    CL2                      INDEXED - TOP INDEX BYTE CNT    VTO01050
DL$IDEL2 DS    CL2                      INDEXED - DELETE RECORD COUNT   VTO01060
         ORG   DL$IORC2+2                                               VTO01070
DL$DIRL2 DS    CL4                     LOADER DIRECTORY LACE FACTOR     VTO01080
DL$DIRF2 DS    CL4                     LOADER DIRECTORY LACE ADJUST     VTO01090
DL$TXTL2 DS    CL4                     LOADER TEXT LACE FACTOR          VTO01100
DL$TXTF2 DS    CL4                     LOADER TEXT LACE ADJUST FACTOR   VTO01110
         ORG   DL$ILPD2                                                 VTO01120
DL$PID2  DS    CL5                      LAST PD RECORD + 1              VTO01130
DL$NMA2  DS    CL2                      # OF FULL O/F CYL               VTO01140
DL$IOF2  DS    CL4                      NEXT INDEPENDENT O/F            VTO01150
DL$PDLC2 DS    CL2                      P.D.LOAD COUNT                  VTO01160
DL$NMO2  DS    CL2                      TOTAL # OF O/F RECORDS          VTO01170
         DS    CL1                      RESERVED                        VTO01180
DL$BID2  DS    CL5                      LAST BLOCK INDEX+1              VTO01190
DL$NMR2  DS    CL2                      # O/F RECS RTR NOT 1ST CHAIN    VTO01200
         DS    CL1                      RESERVED                        VTO01210
DL$NMP2  DS    CL3                      TOTAL # OF P.D.RECORDS          VTO01220
DL$NMS2  DS    CL2                      TOP INDX SIZE (BYTES)           VTO01230
DL$NMT2  DS    CL2                      # RECORDS TAGGED FOR DELETION   VTO01240
DL$BPC2  DS    CL2                      BLOCKS PER CYL                  VTO01250
DL$SBPT2 DS    CL2                      BLOCKS PER TRACK FIRST PCA ONLY VTO01260
DL$SXAR2 DS    20CL4                    RELATIVE EXTENTS - RTA1-RTA2    VTO01270
DL$TPC2  DS    CL2                     TRACKS/CYLENDER                  VTO01280
DL$SFLH2 DS    CL2                      FILE LOW HEAD                   VTO01290
DL$SXCT2 DS    CL2                      RELATIVE EXTENT COUNT           VTO01300
DL$SFL2  DS    CL1                      FLAGS                           VTO01310
DL$SCID2 DS    CL5                      F3 POINTER - CCHHR              VTO01320
         DO    '&PAD'='YES'                                             VTO01330
         DS    CL116                    PAD FOR 256 BYTE BLOCK          VTO01340
         ENDO                                                           VTO01350
*                                                                       VTO01360
         ENDO                                                           VTO01370
         DO    '&F2'='YES'                                              VTO01380
&SYSECT  CSECT                                                          VTO01390
         ENDO                                                           VTO01400
         DO    1-(('&F3'='YES')++('&F3'=''))                            VTO01410
         ORG   &F3                                                      VTO01420
         ENDO                                                           VTO01430
         DO    1-('&F3'='')                                             VTO01440
*                                                                       VTO01450
         DO    '&F3'='YES'                                              VTO01460
DL$F3    DSECT            DIRECT ACCESS FORMAT 3 LABEL                  VTO01470
         ENDO                                                           VTO01480
*                                                                       VTO01490
DL$ID3   DS    CL4                      KEY IDENTIFIER - X'03'          VTO01500
DL$XT3   DS    CL1                      EXTENT TYPE INDICATOR           VTO01510
DL$SN3   DS    CL1                      EXTENT SEQ NUMBER               VTO01520
DL$XL3   DS    CL4                      EXTENT LOWER LIMIT              VTO01530
DL$XU3   DS    CL4                      EXTENT UPPER LIMIT              VTO01540
         DS    3CL10                    EXTENTS 2-4                     VTO01550
DL$FI3   DS    CL1                      FORMAT ID - X'F3'               VTO01560
DL$XS3   DS    9CL10                    EXTENTS 5-13                    VTO01570
DL$CP3   EQU   *                                                        VTO01580
DL$XC3   DS    CL1                      EXTENT COUNT FOR SPLIT FILE     VTO01590
DL$GID3  DS    CL2                      GROUP ID FOR SPLIT FILE         VTO01600
         DS    CL2                      RESERVED                        VTO01610
         DO    '&PAD'='YES'                                             VTO01620
         DS    CL116                    PAD FOR 256 BYTE BLOCK          VTO01630
         ENDO                                                           VTO01640
*                                                                       VTO01650
         ENDO                                                           VTO01660
         DO    '&F3'='YES'                                              VTO01670
&SYSECT  CSECT                                                          VTO01680
         ENDO                                                           VTO01690
         DO    1-(('&F4'='YES')++('&F4'=''))                            VTO01700
         ORG   &F4                                                      VTO01710
         ENDO                                                           VTO01720
         DO    1-('&F4'='')                                             VTO01730
*                                                                       VTO01740
         DO    '&F4'='YES'                                              VTO01750
DL$F4    DSECT            DIRECT ACCESS FORMAT 4 LABEL                  VTO01760
         ENDO                                                           VTO01770
*                                                                       VTO01780
DL$KY4   DS    CL44                    FORMAT 4 KEY                     VTO01790
DL$ID4   DS    CL1                      FORMAT IDENTIFIER - X'F4'       VTO01800
DL$LF4   DS    CL5                      LAST ACTIVE FORMAT 1            VTO01810
DL$AF4   DS    CL2                      AVAILABLE FILE RECORDS          VTO01820
DL$HA4   DS    CL4                      HIGEST ALT TRACK                VTO01830
DL$AT4   DS    CL2                      NUMBER OF ALT TRACKS            VTO01840
DL$VI4   DS    CL1                      VTOC INDICATORS                 VTO01850
DL$XC4   DS    CL1                      NUMBER OF EXTENTS               VTO01860
         DS    CL2                      RESERVED                        VTO01870
DL$DS4   DS    CL4                      DEVICE SIZE - CCHH              VTO01880
DL$TL4   DS    CL2                      TRACK LENGTH                    VTO01890
DL$RO4   DS    CL3                      RECORD OVERHEAD                 VTO01900
DL$FG4   DS    CL1                      FLAG                            VTO01910
DL$TO4   DS    CL2                      TOLERANCE                       VTO01920
DL$LT4   DS    CL1                      LABELS/TRACK                    VTO01930
DL$BK4   DS    CL1                     LABEL BLOCKS/TRACK               VTO01940
DL$F04   DS    CL5                      POINTER TO FORMAT 0             VTO01950
         DS    CL19                                         *****       VTO01960
DL$F64   DS    CL5                                          *****       VTO01970
DL$VX4   DS    CL10                     VTOC EXTENT                     VTO01980
         DS    CL25                     RESERVED                        VTO01990
         DO    '&PAD'='YES'                                             VTO02000
         DS    CL116                    PAD FOR 256 BYTE BLOCK          VTO02010
         ENDO                                                           VTO02020
*                                                                       VTO02030
         ENDO                                                           VTO02040
         DO    '&F4'='YES'                                              VTO02050
&SYSECT  CSECT                                                          VTO02060
         ENDO                                                           VTO02070
         DO    1-(('&F5'='YES')++('&F5'=''))                            VTO02080
         ORG   &F5                                                      VTO02090
         ENDO                                                           VTO02100
         DO    1-('&F5'='')                                             VTO02110
*                                                                       VTO02120
         DO    '&F5'='YES'                                              VTO02130
DL$F5    DSECT            DIRECT ACCESS FORMAT 5 LABEL                  VTO02140
         ENDO                                                           VTO02150
*                                                                       VTO02160
DL$ID5   DS    CL4                      KEY IDENTIFICATION              VTO02170
DL$XT5   DS    CL2                      RELATIVE TRACK ADDRESS          VTO02180
DL$XC5   DS    CL2                      NUMBER OF CYL IN EXTENT         VTO02190
DL$XE5   DS    CL1                      NUMBER OF TRKS IN EXTENT        VTO02200
         DS    7CL5                     SEVEN MORE AVAILABLE EXTENTS    VTO02210
DL$FI5   DS    CL1                      FORMAT ID - X'F5'               VTO02220
DL$XS5   DS    18CL5                    EIGHTEEN MORE AVAILABLE EXTENTS VTO02230
DL$CP5   DS    CL5                      POINTER TO NEXT FORMAT5         VTO02240
         DO    '&PAD'='YES'                                             VTO02250
         DS    CL116                    PAD FOR 256 BYTE BLOCK          VTO02260
         ENDO                                                           VTO02270
*                                                                       VTO02280
         ENDO                                                           VTO02290
         DO    '&F5'='YES'                                              VTO02300
&SYSECT  CSECT                                                          VTO02310
         ENDO                                                           VTO02320
         DO    1-(('&F6'='YES')++('&F6'=''))                            VTO02330
         ORG   &F6                                                      VTO02340
         ENDO                                                           VTO02350
         DO    1-('&F6'='')                                             VTO02360
*                                                                       VTO02370
         DO    '&F6'='YES'                                              VTO02380
DL$F6    DSECT            DIRECT ACCESS FORMAT 6 LABEL                  VTO02390
         ENDO                                                           VTO02400
*                                                                       VTO02410
DL$ID6   DS    CL3                      KEY ID  - X'06'                 VTO02420
DL$HH6   DS    CL1                      DEVICE HIGH HEAD                VTO02430
DL$SET6  DS    CL2                      SPLIT ID                        VTO02440
DL$IDF36 DS    CL4                      ADDRESS OF COMMON F3 LABEL      VTO02450
DL$LHA6  DS    CL1                      LOW HEAD AVAILABLE              VTO02460
DL$HHA6  DS    CL1                      HIGH HEAD AVAILABLE             VTO02470
         DS    9CL2                     NINE MORE HEAD POOL             VTO02480
DL$IDF16 DS    CL4                     PRIMARY F1 DISC ADDRESS          VTO02490
         DS    19CL4                   19 ADDITIONAL F1 ADDRESSES       VTO02500
         DS    CL24                    RESERVED                         VTO02510
DL$FI6   DS    CL1                      FORMAT ID - X'F6'               VTO02520
DL$CP6   DS    CL5                      POINTER TO NEXT F6              VTO02530
         DO    '&PAD'='YES'                                             VTO02540
         DS    CL116                    PAD FOR 256 BYTE BLOCK          VTO02550
         ENDO                                                           VTO02560
*                                                                       VTO02570
         ENDO                                                           VTO02580
         DO    '&F6'='YES'                                              VTO02590
&SYSECT  CSECT                                                          VTO02600
         ENDO                                                           VTO02610
         DO    1-(('&FCB'='YES')++('&FCB'=''))                          VTO02620
         ORG   &FCB                                                     VTO02630
         ENDO                                                           VTO02640
         DO    1-('&FCB'='')                                            VTO02650
*                                                                       VTO02660
         DO    '&FCB'='YES'                                             VTO02670
DF$FCB   DSECT               FILE CONTROL BLOCK - DISC & TAPE.          VTO02680
         ENDO                                                           VTO02690
*                                                                       VTO02700
DF$FNM   DS    CL8                      FILE NAME                       VTO02710
DF$CBL   DS    CL2                      FCB LENGTH                      VTO02720
DF$DVC   DS    CL4                      DEVICE TYPE AND CHARASTICS      VTO02730
DF$PUB   DS    8CL2                     PUB ADDRESSES 1-8               VTO02740
DF$FIDB  DS    CL26                     BYTES 19-44 OF FILE IO          VTO02750
         ORG   DF$FIDB                                                  VTO02760
DF$TVQ   DS    CL4                      TAPE,VOL. SEQ. NUMBER.          VTO02770
DF$TFQ   DS    CL4                      TAPE, FILE SEQ. NUMBER.         VTO02780
DF$TGN   DS    CL4                      TAPE, GENERATION NUMBER.        VTO02790
DF$TVN   DS    CL2                      TAPE, VERSION NUMBER.           VTO02800
DF$TCD   DS    CL6                      TAPE,CREATION DATE( YYDDD).     VTO02810
DF$TED   DS    CL6                      TAPE,EXPIRATION DATE( YYDDD).   VTO02820
         ORG   DF$FIDB                                                  VTO02830
DF$PFLG  DS    XL1                 FLAGS                                VTO02840
DF$LCBW  EQU   (DF$PFLG-DF$FNM)*256+X'80'    LOAD CODE WRITTEN          VTO02850
DF$LCBSP EQU   (DF$PFLG-DF$FNM)*256+X'40'    LOAD CODE DISK ADDRESS     VTO02860
DF$LCBST EQU   (DF$PFLG-DF$FNM)*256+X'20'    LOAD CODE NAME             VTO02870
*                                                                       VTO02880
DF$VFBW  EQU   (DF$PFLG-DF$FNM)*256+X'08'    VERT.FORMAT WRITTEN        VTO02890
DF$VFBSP EQU   (DF$PFLG-DF$FNM)*256+X'04'    VFB DISK ADDRESS           VTO02900
DF$VFBST EQU   (DF$PFLG-DF$FNM)*256+X'02'    VFB NAME                   VTO02910
DF$FNMSP EQU   (DF$PFLG-DF$FNM)*256+X'01'    FORM NAME                  VTO02920
DF$URDVC DS    XL1                      DEVICE FOR UNIT RECORD          VTO02930
DF$PLCB  DS    CL6                      LCB ADDRESS OR NAME             VTO02940
DF$PVFB  DS    CL6                      VFB ADDRESS OR NAME             VTO02950
DF$FORM  DS    CL8                      FORM NAME                       VTO02960
DF$BNMA  DS    CL4                 FIRST HALF OF BAND NAME              VTO02970
         ORG   DF$FIDB+26                                               VTO02980
DF$FI    DS    CL1                      FORMAT ID FIELD                 VTO02990
DF$NOLC  EQU   DF$FI               SO OF SKIP CODES                     VTO03000
DF$FS    DS    CL6                      FILE SERIAL NUMBER              VTO03010
DF$VSN   DS    CL2                     VOLUME SEQ NUMBER                VTO03020
DF$CD    DS    CL3                      CREATION DATE                   VTO03030
DF$ED    DS    CL3                      EXPIRATION DATE                 VTO03040
DF$XC    DS    CL1                      EXTENT COUNT                    VTO03050
DF$MAXL  EQU   DF$XC               MAX LINES/1024                       VTO03060
DF$TRMID EQU   DF$CD               TERMINAL ID                          VTO03070
DF$SUBID EQU   DF$FS               SUBMITTING REMOTE ID                 VTO03080
DF$LES   DS    XL1                 NUMBER OF EXTENTS                    VTO03090
DF$NOCOP EQU   DF$LES                                                   VTO03100
DF$AES   DS    XL3                 NEG DISPLACEMENT TO EXTENT AREA      VTO03110
DF$FIDA  DS    CL18                     BYTES 1-18 OF FILE ID           VTO03120
         ORG   DF$FIDA                                                  VTO03130
DF$TFID  DS    CL17                     TAPE FILE I.D.                  VTO03140
DF$TPMD  DS    XL1                      MODE FOR TAPE OPERATIONS        VTO03150
DF$BNMB  EQU   DF$TPMD             SECOND HALF OF BAND NAME             VTO03160
DF$FT    DS    CL2                      FILE TYPE                       VTO03170
DF$TFS   DS    CL1                      RESERVED- DISC/ SECURITY- TAPE  VTO03180
DF$OC    DS    CL1                      OPTION CODES                    VTO03190
DF$SA    DS    CL2                     SECONDARY ALLOCATION INCREMENT   VTO03200
DF$NOSPB EQU   DF$SA+1             NUMBER OF BUFFERS                    VTO03210
DF$SPBSZ EQU   DF$SA               SIZE OF A BUFFER                     VTO03220
DF$RPW   DS    CL6                                                      VTO03230
DF$WPW   DS    CL6                                                      VTO03240
         DS    XL2                                                      VTO03250
DF$CAFL  DS    XL1                                                      VTO03260
DF$FLG   DS    CL1                      FLAGS                           VTO03270
DF$NOPUB DS    CL1                      NUMBER OF PUBS                  VTO03280
DF$NOVOL DS    CL1                      NUMBER OF VOLS                  VTO03290
DF$PERB  DS    CL6                      VOL1 VSN OR ERB POINTER         VTO03300
         DS    CL132                    VOL2-23 VSN OR ERB POINTERS     VTO03310
         ENDO                                                           VTO03320
         DO    '&FCB'='YES'                                             VTO03330
&SYSECT  CSECT                                                          VTO03340
         ENDO                                                           VTO03350
*                                                                       VTO03360
         DO    1-(('&ERB'='YES')++('&ERB'=''))                          VTO03370
         ORG   &ERB                                                     VTO03380
         ENDO                                                           VTO03390
         DO    1-('&ERB'='')                                            VTO03400
*                                                                       VTO03410
         DO    '&ERB'='YES'                                             VTO03420
DF$ERB   DSECT          DIRECT ACCESS EXTENT REQUEST BLOCK              VTO03430
         ENDO                                                           VTO03440
*                                                                       VTO03450
DF$ELINK DS    CL4                      LINK BACK TO FCB                VTO03460
DF$EXCNT DS    CL2                      EXTENT COUNT                    VTO03470
DF$EVSN  DS    CL6                     VOLUME SERIAL NUMBER             VTO03480
DF$ESET  DS    CL2                      SET ID FOR SPLIT CYL FILES      VTO03490
DF$EHD   DS    CL2                      NUMBER HEADS/CYL REQUIRED       VTO03500
DF$EXID  DS    CL1                      EXTENT ID                       VTO03510
DF$EFLG  DS    CL1                      FLAGS                           VTO03520
DF$EREQ  DS    CL2                      NUMBER OF TKS OR CYL            VTO03530
DF$EID   DS    CL4                      EXTENT ID - CCHH                VTO03540
         DS    15CL8                                                    VTO03550
         DS    CL105                                                    VTO03560
*                                                                       VTO03570
         ENDO                                                           VTO03580
         DO    '&ERB'='YES'                                             VTO03590
&SYSECT  CSECT                                                          VTO03600
         ENDO                                                           VTO03610
         DO    1-(('&SAT'='YES')++('&SAT'=''))                          VTO03620
         ORG   &SAT                                                     VTO03630
         ENDO                                                           VTO03640
         DO    1-('&SAT'='')                                            VTO03650
*                                                                       VTO03660
         DO    '&SAT'='YES'                                             VTO03670
ST$DTF   DSECT                   SAT DTF TABLE                          VTO03680
         ENDO                                                           VTO03690
*                                                                       VTO03700
ST$DCCB  DS    CL1                      CCB - CONTROL 1                 VTO03710
         DS    CL1                      I/O ERROR COUNT                 VTO03720
ST$DTRAN DS    CL1                      TRANSMISSION BYTE               VTO03730
         DS    CL1                      CONTROL 2                       VTO03740
         DS    CL4                      NEXT CAW / TCB ADDRS            VTO03750
ST$DRBC  DS    CL2                      RESIDUAL BYTE COUNT             VTO03760
         DS    CL2                      RESERVED                        VTO03770
ST$DACCW DS    CL4                     CCW ADDRESS                      VTO03780
ST$DPUBA DS    CL4                      PIOCB ADDRESS                   VTO03790
ST$DSENS DS    CL8                      SENSE BYTES                     VTO03800
ST$DFNM  DS    CL8                      FILE NAME                       VTO03810
ST$DMFLG DS    CL2                      MODULE FLAGS                    VTO03820
ST$DPUB  DS    CL2                      NUMBER OF VOLS/CURRENT VOL      VTO03830
ST$DAPCA DS    CL4                      ADDRESS OF ACTIVE PCA           VTO03840
ST$DIOCT DS    CL2                      I/O COUNT FOR MULTI BUFFERING   VTO03850
ST$DTYPE DS    CL3                     DTF TYPE                         VTO03860
ST$DFUNC DS    CL1                     FUNCTION FLAGS                   VTO03870
ST$DEFLG DS    CL2                      ERROR FLAGS                     VTO03880
ST$DMODA DS    CL4                      IOCS MODULE ADDRESS             VTO03890
ST$DECOD DS    CL4                      ERROR CODE AND ERROR EXIT ADDRS VTO03900
ST$DCCW  DS    CL1                     OP CODE                          VTO03910
ST$DCCW1 DS    CL3                     I/O AREA ADDRESS                 VTO03920
ST$DCCW4 DS    CL2                     BLOCK SIZE                       VTO03930
ST$DCCW6 DS    CL1                     RESERVED                         VTO03940
ST$DCCW7 DS    CL1                     CURRENT SECTORS/BLOCK            VTO03950
ST$DCCW8 DS    CL2                     RESERVED                         VTO03960
ST$DCCWA DS    CL1                     CURRENT HEAD ADDRESS             VTO03970
ST$DCCWB DS    CL1                     RESERVED                         VTO03980
ST$DCCWC DS    CL2                     CURRENT CYLENDER ADDRESS         VTO03990
ST$DCCWE DS    CL1                     CURRENT SECTOR NUMBER            VTO04000
ST$DCCWF DS    CL1                     RESERVED                         VTO04010
ST$DXSTR DS    CL4                      LENGTH AND ADDRS OF EXTENT STG  VTO04020
ST$DPCNT DS    CL1                      PCA COUNT                       VTO04030
         DS    CL1                     RESERVED                         VTO04040
ST$DXCNT DS    CL2                     EXTENT COUNT REL EXTENTS         VTO04050
ST$DTPC  DS    CL4                      TRACKS/CYL                      VTO04060
ST$DFLH  DS    CL2                      FILE LOW HEAD                   VTO04070
ST$DFHH  DS    CL2                      FILE HIGH HEAD                  VTO04080
ST$DPCA1 DS    CL4                      ADDRESS OF PCA 1                VTO04090
ST$DPCA2 DS    CL4                      ADDRESS OF PCA 2                VTO04100
ST$DPCA3 DS    CL4                      ADDRESS OF PCA 3                VTO04110
ST$DPCA4 DS    CL4                      ADDRESS OF PCA 4                VTO04120
ST$DPCA5 DS    CL4                      ADDRESS OF PCA 5                VTO04130
ST$DPCA6 DS    CL4                      ADDRESS OF PCA 6                VTO04140
ST$DPCA7 DS    CL4                      ADDRESS OF PCA 7                VTO04150
*                                                                       VTO04160
         ENDO                                                           VTO04170
         DO    '&SAT'='YES'                                             VTO04180
&SYSECT  CSECT                                                          VTO04190
         ENDO                                                           VTO04200
         DO    1-(('&PCA'='YES')++('&PCA'=''))                          VTO04210
         ORG   &PCA                                                     VTO04220
         ENDO                                                           VTO04230
         DO    1-('&PCA'='')                                            VTO04240
*                                                                       VTO04250
         DO    '&PCA'='YES'                                             VTO04260
ST$DPCA  DSECT                   SAT PCA TABLE                          VTO04270
         ENDO                                                           VTO04280
*                                                                       VTO04290
ST$DCURR DS    CL4                      CURRENT ID                      VTO04300
ST$DMRB  DS    CL4                      MAX RELATIVE BLOCK              VTO04310
ST$DBPT  DS    CL4                      BLOCKS PER TRACK                VTO04320
ST$DEODI DS    CL4                      IOD ID                          VTO04330
ST$DIOA1 DS    CL4                      IOAREA ADDRESS                  VTO04340
ST$DBKSZ DS    CL2                      BLOCKSIZE                       VTO04350
         DS    CL1                      RESERVED                        VTO04360
ST$DSPB  DS    CL1                      SECTORS/BLOCK                   VTO04370
ST$DLACE DS    CL2                      LACE FACTOR                     VTO04380
ST$DUOS  DS    CL2                      UNIT OF STORE                   VTO04390
ST$DLAF  DS    CL4                      LACE ADJUSTMENT FACTOR          VTO04400
ST$DPFLG DS    CL1                      PARTITION FLAGS                 VTO04410
ST$DEODA EQU   ST$DPFLG                 EOD                             VTO04420
         DS    CL3                        ADDRESS                       VTO04430
*                                                                       VTO04440
         ENDO                                                           VTO04450
         DO    '&PCA'='YES'                                             VTO04460
&SYSECT  CSECT                                                          VTO04470
         ENDO                                                           VTO04480
         DO    '&EXT'='YES'                                             VTO04490
ST$EXTNT DSECT                          EXTENT TABLE ENTRY              VTO04500
ST$EPID  DS    CL1                      PCA ID                          VTO04510
ST$EVNX2 DS    CL1                      VOLUME NUMBER X 2               VTO04520
ST$ECYL  DS    CL2                      STARTING CYLENDER NUMBER        VTO04530
ST$EHEAD DS    CL2                      STARTING HEAD NUMBER            VTO04540
ST$EHRTN DS    CL2                      HIGEST PCA REL TRACK THIS ENTRY VTO04550
         ENDO                                                           VTO04560
         DO    '&EXT'='YES'                                             VTO04570
&SYSECT  CSECT                                                          VTO04580
         ENDO                                                           VTO04590
         END                                                            VTO04600
