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

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Procs/DTSRERPT
View File

@ -5,20 +5,27 @@
//DTSRQRPT PROC LDEST='LOCAL',
// LVDHOLD='YES'
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
//DOESLBL1 EXEC PGM=IEBDG, 00001806
// COND=(3,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.CONV.USER.PARMLIB(DTSLBL01), 00002506
// DISP=SHR 00002606
//*DOESLBL1 EXEC PGM=IEBDG, 00001806
//* COND=(3,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.DEVL.PARMLIB(DTSLBL01), 00002506
//* DISP=SHR
//DOESLBL1 EXEC PGM=GENT350,
// COND=(4,LT)
//SYSOUT DD SYSOUT=*
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,1),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002606
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003206
// COND=(3,LT) 00003306
//SYSPRINT DD SYSOUT=* 00003405
//FILEIN DD DSN=&&TMP901, 00003505
//FILEIN DD DSN=TMP901, 00003505
// DISP=(OLD,DELETE,DELETE), 00003605
// UNIT=SYSDA 00003705
//DOESVRO1 DD DSN=&&LBL901, 00003805