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

27
JCL/DTSBX303.jcl
View File

@ -21,7 +21,8 @@
// DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
// SPACE=(7500,(10,20),RLSE),
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=750,BLKSIZE=7500)
//*
//******************************************************************
//* RAINCODE TESTED 08/20/25 ZL1 r
@ -31,13 +32,25 @@
//******************************************************************
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
//*
//*TEP0200 EXEC PGM=FTP,COND=(0,LT)
//*YSPRINT DD SYSOUT=*
//*UTOUT DD SYSOUT=*
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*YSGET DD *,DCB=BLKSIZE=80
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
ASCII
cd //Dutasrc/intranet/Outbound_intranet
PUT 'DOESTAX.PROD.FTP.REFUND.X303EXP' +
DOESTAX.PROD.FTP.REFUND.X303EXP
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//*********************************************************************
//* |
//* JOB : SAVE A COPY OF THE FTP REFUND FILE