Files
DUTAS/JCL/FTPTDEC01.jcl

21 lines
995 B
Plaintext

//FTPTDEC01 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
50.76.21.195
tdec_dcw_5
14cw0d8Y
BINARY
GET 'DOES_payments.txt' +
DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*