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

62
JCL/FTPESSP01.jcl Normal file
View File

@ -0,0 +1,62 @@
//FTPESSP01 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
BINARY
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X102 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X102 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X104 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X104 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X106 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X108 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X108 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X120 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X140 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X140 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X144 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X144 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X145 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X145 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X147 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X147 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X999 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X999 (replace
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//
//* ZL1 10/19/25.
//* WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
ASCII
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*