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

42
JCL/DTSRQ335.jcl
View File

@ -16,7 +16,7 @@
//* 00122099
//* ADDED BACKUP STEP FOR PAYDIST FILE -10/09 ZL1 00123099
//* 00124099
//**** 00130090
//**** RAINCODE TESTED 08/30/25 ZL1 00130090
// SET LVLNODE='PROD' 00140099
// SET MSTNODE='PROD' 00150099
// SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199
@ -28,7 +28,9 @@
//*TEP0100 EXEC DTSUTVSM, 00191099
//* BKUPGEN='(+1)' 00192099
//* 00193099
//STEP0100 EXEC DTSBX340 MASTER FILE DATA 00200099
//STEP0100 EXEC DTSBX340
//*
//*STEP0100 EXEC DTSZX340
//* 00250099
//STEP0100.DTSFBTCO DD DUMMY 00260061
//STEP0100.DTSFVRO1 DD DUMMY 00270099
@ -45,13 +47,20 @@
//STEP0600 EXEC PGM=IDCAMS 00292099
//SYSPRINT DD SYSOUT=* 00293099
//INDD09 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.PAYDIST,DISP=SHR 00294099
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1), 00295099
// UNIT=CART, 00296099
// VOLUME=(,RETAIN), 00296199
// LABEL=(1,SL,,,EXPDT=99000), 00297099
// DISP=(,CATLG,DELETE), 00298099
// SPACE=(31552,(200,200),RLSE), 00299099
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1),
//* DISP=SHR
// DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE), 00190017
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000)
//*
//SYSPRINT DD SYSOUT=(*)
//* 00295099
//* UNIT=CART, 00296099
//* VOLUME=(,RETAIN), 00296199
//* LABEL=(1,SL,,,EXPDT=99000), 00297099
//* DISP=(,CATLG,DELETE), 00298099
//* SPACE=(31552,(200,200),RLSE), 00299099
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199
//**** 00299299
REPRO INFILE(INDD09) OUTFILE(OUTDD01) 00299399
/* 00299499
@ -61,12 +70,15 @@
//SYSOUT DD SYSOUT=* 00299899
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00299999
// AMP=('BUFNI=5,BUFND=30') 00300099
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1), 00301099
// DISP=(,CATLG,DELETE), 00302099
// UNIT=CART, 00303099
// VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099
// LABEL=(2,SL,,,EXPDT=99000), 00305099
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1),
// DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA, 00190017
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600) 00301099
//* DISP=(,CATLG,DELETE), 00302099
//* UNIT=CART, 00303099
//* VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099
//* LABEL=(2,SL,,,EXPDT=99000), 00305099
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00307099
//**** 00310099
//* 00470099