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

30
JCL/DESBD427.jcl
View File

@ -12,7 +12,7 @@
// SET LVLNODE='DEVL' 00021008
// SET MSTNODE='PROD' 00021108
//* 00021608
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00021808
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
//* 00022008
@ -54,7 +54,7 @@
//SYSABEND DD SYSOUT=* 00270000
//SYSUDUMP DD SYSOUT=* 00280000
//* 00290000
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR, 00300006
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR, 00300006
// AMP=('BUFNI=5,BUFND=10') 00310000
//* 00320000
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
@ -64,7 +64,8 @@
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
//* DISP=SHR 00351013
// DISP=(NEW,CATLG,DELETE), 00050206
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00050306
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
//* 00360000
//********************************************************************* 00370000
@ -75,7 +76,26 @@
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
//** 00450007
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20213,DISP=MOD 00460011
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20252,DISP=MOD 00460011
//SYSPRINT DD SYSOUT=(*) 00500007
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
//** 00520007
//**
//*********************************************************************
//* // 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 'DOESTAX.PROD.WAGE.NAME.EXP' +
DOESTAX.PROD.WAGE.NAME.EXP
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//* 00520007