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

42
JCL/DTSFRAUD.jcl
View File

@ -23,10 +23,11 @@
// SPACE=(8192,(100,200),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR,
//* DISP=(NEW,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR,
//* DISP=(,CATLG,DELETE),
@ -49,10 +50,11 @@
// SPACE=(CYL,(100,50),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR,
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//*********************************
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
@ -70,11 +72,35 @@
// SPACE=(8192,(100,200),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR,
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//*********************************************************************
//* // 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.CONV.FROMESSP.PASSED.X147' +
DOESTAX.CONV.FROMESSP.PASSED.X147
put 'DOESTAX.CONV.FROMESSP.PASSED.X144' +
DOESTAX.CONV.FROMESSP.PASSED.X144
put 'DOESTAX.CONV.FROMESSP.PASSED.X140' +
DOESTAX.CONV.FROMESSP.PASSED.X140
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*
//***********************************
//EMAIL EXEC PGM=IEBGENER,
// COND=(0,LT),