Files
DUTAS/Procs/JIMLBL02
2025-07-21 11:20:11 -04:00

27 lines
2.1 KiB
Plaintext

//* 00001600
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
//DOESLBL1 EXEC PGM=IEBDG, 00001806
// COND=(0,LT) 00001906
//SYSPRINT DD SYSOUT=* 00002006
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106
// UNIT=SYSDA, 00002206
// SPACE=(TRK,1), 00002306
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00002506
// DISP=SHR 00002606
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003206
// COND=(0,LT) 00003306
//SYSPRINT DD SYSOUT=* 00003405
//FILEIN DD DSN=&&TMP901, 00003505
// DISP=(OLD,DELETE,DELETE), 00003605
// UNIT=SYSDA 00003705
//DOESVRO1 DD DSN=&&LBL901, 00003805
// DISP=(NEW,PASS,DELETE), 00003905
// UNIT=SYSDA, 00004005
// SPACE=(8192,(1000,1000),RLSE), 00004105
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00004305
// DISP=SHR 00004405
//** 00004705