21 lines
1017 B
Plaintext
21 lines
1017 B
Plaintext
//FTPTDEC01 JOB
|
|
//*
|
|
//********************************************************************
|
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
|
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
|
//**
|
|
//STEP001 EXEC PGM=SFTP,PARM='(EXIT'
|
|
//INPUT DD *
|
|
204.111.96.61
|
|
tdec_dcw_4
|
|
Y6Vf@KUnqA
|
|
BINARY
|
|
GET DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS +
|
|
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
|
|
//*
|