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

25
JCL/DTSGACHD.jcl
View File

@ -28,25 +28,20 @@
//*-----------------------------------------------------
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*-----------------------------------------------------
//*STEPWF EXEC PGM=FTP,
//* PARM='-r TLS safetrans.wellsfargo.com'
//* PARM='-Sftp=TRUE 10.57.110.160'
//*-----------------------------------------------------
//*STEPWF EXEC PGM=SFTP,
//* PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
//*ENVVAR DD *
//* CLIENT=sftp
//* SFTP_AUTH=3
/*
//* SFTP_STRICTHOSTKEY=accept-new
//* SFTP_AUTH=5
//*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SFTPAUTH DD *
//* machine 10.57.110.160 user dutasrc pass Today728rc!
/*
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
//* DD *
//*FWFRIENDLY TRUE
//*SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
/*
//*
//********************************************************************
//*** COPY essp ach RETURNS to backup ach file.
//**
@ -68,7 +63,7 @@
//*** send email ach returns received from wells fargo.
//*
//********************************************************************
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
//ESSPMAIL EXEC PGM=IEBGENER,COND=(4,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -87,7 +82,7 @@
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=134,BLKSIZE=1340)
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)