67 lines
3.1 KiB
Plaintext
67 lines
3.1 KiB
Plaintext
//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
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X104 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X104
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X106
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X108 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X108
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X110
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X120
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X140 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X140
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X144 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X144
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X145 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X145
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X147 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X147
|
|
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X999 +
|
|
ECNTSUP.DOESTAX.CONV.FROMESSP.X999
|
|
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
|
|
//*
|