Z updated JCL files on PROD Env
This commit is contained in:
@ -31,6 +31,28 @@
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,DISP=SHR
|
||||
//*
|
||||
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=LSEQ,LRECL=80)
|
||||
//*********************************************************************
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT' +
|
||||
ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
Reference in New Issue
Block a user