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/DTSGSID1.jcl
View File

@ -23,24 +23,24 @@
//**** 00003325
//STEP0100 EXEC DTSUXGSI /*EXTRACT AND UPDATE CHARGE FILE 00003963
//**** 00005461
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
// LDEST=U@PRT65, 00005660
// LHOLD='YES' 00005760
//*STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
//* LDEST=U@PRT65, 00005660
//* LHOLD='YES' 00005760
//** 00005860
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
//*STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
//*DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
//* 00001749
//* DAILY BENEFIT CHARGE BACKUP 00002003
//*********************************************************************
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
//********************************************************************
//*
//STEP0100 EXEC DTSUTCHG,
// BKUPGEN='(+1)' 00002425
//*STEP0100 EXEC DTSUTCHG,
//* BKUPGEN='(+1)',freq='DAILY'
//*
// IF (STEP0100.STEP0100.RC NE 0) THEN
//EMAIL EXEC PGM=IEBGENER,
//EMAIL001 EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -55,7 +55,7 @@
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ELSE
//EMAIL EXEC PGM=IEBGENER,
//EMAIL002 EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -70,4 +70,23 @@
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.CHARGE' +
ECNTSUP.DOESTAX.PROD.FTP.CHARGE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//