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

Z updated JCL files on PROD Env

Browse Source
This commit is contained in:
Manoj Patel
2025-11-03 12:05:56 -05:00
parent 8fca292a50
commit 6537588163
71 changed files with 3899 additions and 857 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
JCL/DTSBX305.jcl
View File

@ -2,7 +2,7 @@
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
@ -35,7 +35,7 @@
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//STEP0100 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
@ -51,7 +51,7 @@
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
@ -68,7 +68,7 @@
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
//* 00001700
//********************************************************************
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS
//STEP0300 EXEC PGM=SORT SORT FTP RECORDS
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,DISP=SHR
@ -79,10 +79,31 @@
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//*********************************************************************
//*STEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//*STEP0400 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)',freq='DAILY'
//*****
//STEP0200 EXEC DTSBX305
//STEP0500 EXEC DTSBX305
//** 00001700
//STEP0300 EXEC DTSBX306
//STEP0600 EXEC DTSBX306
//** 00001700
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0700 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'DOESTAX.PROD.FTP.REFUND.X305EXP' +
DOESTAX.PROD.FTP.REFUND.X305EXP
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X306' +
ECNTSUP.DOESTAX.PROD.FTP.X306
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//