//* 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