giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Procs/JIMLBL02 Normal file
View File

@ -0,0 +1,26 @@
//* 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