&TAG     PROC  &P,1,&ASCII=,&BKNO=,&VOL1=,&VOL2=,&HDR1=,&HDR2=,&EOF1=, XDTF00010
               &EOV1=,&EOF2=,&EOV2=                                     DTF00020
DTFLBL   NAME                                                           DTF00030
         GBL   &T$GBCM1,&T$GBCM2,&T$GBVL1,&T$GBVL2,&T$GBHD2             DTF00040
         LCL   &T$LCASC,&T$LCALL                                        DTF00050
&TAG     DS    0H                                                       DTF00060
*                                                                       DTF00070
* STANDARD SYSTEM LABEL DSECT FOR TAPE FILES.                           DTF00080
*                                                                       DTF00090
&T$LCASC SET   0                                                        DTF00092
&T$LCALL SET   0
DM$TDSCT DSECT                                                          DTF00100
*                                                                       DTF00110
         DO    ('&BKNO'='')**('&VOL1'='')**('&HDR1'='')**('&EOF1'='')**XDTF00120
               ('&EOV1'='')**('&VOL2'='')**('&HDR2'='')**('&EOF2'='')**X
               ('&EOV2'='')**('&ASCII'='')
&T$LCALL SET   1                                                        DTF00150
         ENDO                                                           DTF00160
         DO    ('&BKNO'='')**('&VOL1'='')**('&HDR1'='')**('&EOF1'='')**XDTF00170
               ('&EOV1'='')**('&VOL2'='')**('&HDR2'='')**('&EOF2'='')**X
               ('&EOV2'='')**('&ASCII'=''=0)
&T$LCALL SET   1                                                        DTF00200
&T$LCASC SET   1                                                        DTF00210
         ENDO                                                           DTF00220
         DO    '&T$GBCM1'=''                                            DTF00230
&T$GBCM1 SET   1                                                        DTF00240
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  DTF00242
*                                                                    *
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *
*                                                                    *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *
********************FORMAT OF PROC CALL LINE*************************** DTF00250
*   DTFLBL                   -ALL REQD.SYSTEM LABELS IN EBCDIC FORM.  * DTF00260
*   DTFLBL   ASCII=YES       -ALL REQD.SYSTEM LABELS IN ASCII  FORM.  * DTF00270
*   DTFLBL   ..=YES,..=YES,..-THE SPECIFIC LABELS ASKED IN THE CALL.  * DTF00280
*********************************************************************** DTF00290
         DO    '&ASCII'=''=0                                            DTF00300
* ALL GENERATED LABELS ARE IN ASCII FORMAT.                             DTF00310
         ENDO                                                           DTF00320
* ALL GENERATED LABELS ARE IN EBCDIC FORMAT.                            DTF00330
         DO    '&BKNO'=''=0                                             DTF00340
* ALL GENERATED LABELS HAVE BSN(EBCDIC) OR BSI(ASCII).                  DTF00350
         DO   ('&ASCII'=''=0)                                           DTF00360
DM$TBLBL DS    0CL81                    *COMN.BSI+LABEL FIELD - ASCII   DTF00370
T$BSI    DS    CL1                      *BLOCK SEQ. INDICATOR-ASCII     DTF00380
         GOTO  .L1                                                      DTF00390
         ENDO                                                           DTF00400
DM$TBLBL DS    0CL83                    *COMN.BSN+LABEL FIELD - EBCDIC  DTF00410
T$BSN    DS    CL3                      *BLOCK SERIAL NUMBER EBCDIC.    DTF00420
         ENDO                                                           DTF00430
.L1      LABEL                                                          DTF00440
DM$DUMMY EQU   *                                                        DTF00450
DM$TLBSZ DS    0CL80                    *COMN.LABEL FIELD-ASCII& EBCDIC DTF00460
         ENDO                                                           DTF00470
         DO   ('&VOL1'=''=0)++(&T$LCALL=1)                              DTF00480
*                                                                       DTF00490
* VOL1 LABEL                                                            DTF00500
*                                                                       DTF00510
         DO    '&T$GBVL1'=''                                            DTF00520
&T$GBVL1 SET   1                                                        DTF00530
         ORG   DM$DUMMY                                                 DTF00540
DM$TVOL1 DS    0CL80                    *VOL1 LABEL FIELD               DTF00550
T$VOL1ID DS    CL4                      *LABEL IDENTIFIER - VOL1        DTF00560
T$VSN    DS    CL6                      *VOLUME SERIAL NUMBER           DTF00570
T$VOLSEC DS    CL1                      *VOLUME SECURITY                DTF00580
         DS    CL26                     *RESERVED (BLANKS)              DTF00590
         DO   ('&ASCII'=''=0)++(&T$LCASC=1)                             DTF00600
T$VOLOID DS    CL14                     *OWNER  IDENTIFICATION -ASCII   DTF00610
         DS    CL28                     *RESERVED -ASCII (BLANKS)       DTF00620
T$VOLANS DS    CL1                      *LABEL STD. LEVEL FOR ANS.      DTF00630
         GOTO  .L2                                                      DTF00640
         ENDO                                                           DTF00650
         DS    CL4                      *RESERVED-EBCDIC (BLANKS)       DTF00660
T$VOLOID DS    CL10                     *OWNER IDENTIFICATION -EBCDIC   DTF00670
         DS    CL29                     *RESERVED-EBCDIC (BLANKS)       DTF00680
.L2      LABEL                                                          DTF00690
         ENDO                                                           DTF00700
         ENDO                                                           DTF00710
         DO    '&VOL2'=''=0                                             DTF00720
*                                                                       DTF00730
* VOL2 LABEL                                                            DTF00740
*                                                                       DTF00750
         DO    '&T$GBVL2'=''                                            DTF00760
* THE VOL2 LABEL STRUCTURE MAY BE USED FOR VOL3-8,HDR3-8,EOF3-8,EOV3-8. DTF00770
&T$GBVL2 SET   1                                                        DTF00780
         ORG   DM$DUMMY                                                 DTF00790
DM$TVOL2 DS    0CL80                    *VOL2 LABEL FIELD               DTF00800
T$VOL2ID DS    CL4                      *LABEL IDENTIFIER - VOL2.       DTF00810
         DS    CL76                     *USER SPECIFIED                 DTF00820
         ENDO                                                           DTF00830
         ENDO                                                           DTF00840
         DO    ('&HDR1'=''=0)++('&EOF1'=''=0)++('&EOV1'=''=0)++(&T$LCALXDTF00850
               L=1)                                                     DTF00860
*                                                                       DTF00870
* HDR1/EOF1/EOV1 LABELS                                                 DTF00880
*                                                                       DTF00890
         DO    '&T$GBCM2'=''                                            DTF00900
&T$GBCM2 SET   1                                                        DTF00910
         ORG   DM$DUMMY                                                 DTF00920
DM$THDR1 DS    0CL80                    *HDR1 LABEL FIELD               DTF00930
DM$TEOF1 EQU   DM$THDR1                 *EOF1 LABEL FIELD               DTF00940
DM$TEOV1 EQU   DM$THDR1                 *EOV1 LABEL FIELD               DTF00950
T$HDR1ID DS    CL4                      *LABEL I.D.- HDR1               DTF00960
T$EOF1ID EQU   T$HDR1ID                 *LABEL I.D. _EOF1               DTF00970
T$EOV1ID EQU   T$HDR1ID                 *LABEL I.D. _EOV1               DTF00980
*                                                                       DTF00990
* FOLLOWING FIELDS ARE COMMON TO HDR1,EOF1 AND EOV1 LABELS.             DTF01000
T$CFID   DS    CL17                     *FILE IDENTIFIER                DTF01010
T$CFSN   DS    CL6                      *FILE SERIAL NUMBER             DTF01020
T$CVSQ   DS    CL4                      *VOL SEQ. NUMBER                DTF01030
T$CFSQ   DS    CL4                      *FILE SEQ. NUMBER               DTF01040
T$CGEN   DS    CL4                      *FILE GENERATION NO(0000-9999)  DTF01050
T$CVERSN DS    CL2                      *VERSION NUMBER OF GENERATION   DTF01060
T$CCDATE DS    CL6                      *CREATION DATE( YYDDD)          DTF01070
T$CXDATE DS    CL6                      *EXPIRATION DATE( YYDDD)        DTF01080
T$CFSEC  DS    CL1                      *FILE SECURITY INDICATOR.       DTF01090
*                                        0=NO ADDL. QUALIFICATIONS REQD DTF01100
*                                        1=ADDL. QUALIFICATIONS REQD.   DTF01110
T$CBKCNT DS    CL6                      *HDR1-0'S;EOF1/EOV1-BLK.COUNT.  DTF01120
T$CSYSCD DS    CL13                     *SYSTEM CODE- OS IDENTIFICATION DTF01130
         DS    CL7                      *RESERVED (BLANKS)              DTF01140
         ENDO                                                           DTF01150
         ENDO                                                           DTF01160
         DO    ('&HDR2'=''=0)++('&EOF2'=''=0)++('&EOV2'=''=0)++(&T$LCALXDTF01170
               L=1)
* SECOND HEADER AND TRAILER LABELS _HDR2/EOF2/EOV2
*                                                                       DTF01200
         DO    '&T$GBHD2'=''                                            DTF01210
&T$GBHD2 SET   1                                                        DTF01220
         ORG   DM$DUMMY                                                 DTF01230
DM$THDR2 DS    0CL80                    *HDR2 LABEL FIELD               DTF01240
DM$TEOF2 EQU   DM$THDR2                 *EOF2 LABEL  FIELD              DTF01250
DM$TEOV2 EQU   DM$THDR2                 *EOV2 LABEL FIELD               DTF01260
T$HDR2ID DS    CL4                      *LABEL IDENTIFIER-HDR2          DTF01270
T$EOF2ID EQU   T$HDR2ID                 *LABEL IDENTIFIER -EOF2         DTF01280
T$EOV2ID EQU   T$HDR2ID                 *LABEL IDENTIFIER-EOV2          DTF01290
*                                                                       DTF01300
* FOLLOWING FIELDS ARE COMMON TO OPTIONAL HDR2,EOF2 AND EOV2 LABELS.    DTF01310
T$HT2RFM DS    CL1                      *RECORD FORMAT CHARACTER        DTF01320
*                                        D = VAR.LENGTH(ASCII)-DECIMAL  DTF01330
*                                        F = FIXED LENGTH               DTF01340
*                                        S = SPANNED                    DTF01350
*                                        U = UNDEFINED                  DTF01360
*                                        V = VAR.LENGTH-IN BINARY       DTF01370
T$HT2BSZ DS    CL5                      *BLOCK LENGTH.                  DTF01380
T$HT2RSZ DS    CL5                      *RECORD LENGTH FOR F FORMAT     DTF01390
*                                        LENGTH-FOR REC. FORMAT F ONLY  DTF01400
*                                        0'S - FOR ALL OTHER FORMATS.   DTF01410
         DS    CL21                     *RESERVED (BLANKS).             DTF01420
T$HT2CHR DS    CL1                      *EBCDIC-PRINTER CONTROL CHAR.   DTF01430
*                                        A=SPECIAL(ASA)CONTROL CHAR.    DTF01440
*                                        D=DEVICE IND. CONTROL CHAR.    DTF01450
*                                        M=IBM CONTROL CHAR.            DTF01460
*                                        U=UNIVAC CONTROL CHAR.         DTF01470
*                                        BLANK = NO CONTROL CHAR.       DTF01480
*                                       *ASCII -BLANK                   DTF01490
         DS    CL13                     *RESERVED (BLANKS).             DTF01500
T$HT2BUF DS    CL2                      *EBCDIC-X'40';ASCII-BUFOF FIELD DTF01510
         DS    CL28                     *RESERVED (BLANKS).             DTF01520
         ENDO                                                           DTF01530
         ENDO                                                           DTF01540
&SYSECT  CSECT                                                          DTF01550
         END                                                            DTF01560
