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

35
JCL/DTSBX215.jcl
View File

@ -1,6 +1,6 @@
//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// USER=#DOADTS,RESTART=STEP0900,
// NOTIFY=ECNTSUP,
// REGION=0M
//*
@ -16,13 +16,28 @@
//* 00070000
//STEP0200 EXEC DTSBX215
//*
// 00014000
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0900 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.BX215' +
ECNTSUP.DOESTAX.PROD.FTP.BX215
put 'ECNTSUP.DOESTAX.PROD.FTP.BX220' +
ECNTSUP.DOESTAX.PROD.FTP.BX220
PUT 'ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT' +
ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//* 00014000
//*****************************************
//STEP0210 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
//