giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

From UAT Z's file modified

Browse Source
This commit is contained in:
Manoj Patel
2025-09-19 12:33:15 -04:00
parent 10597a27ba
commit 8dc0204972
40 changed files with 5728 additions and 2063 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
JCL/DTSFRAUD.jcl
View File

@ -9,7 +9,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DESBD473, // VERIFY EMP REGISTRTION DATE
//STEP0100 EXEC PGM=DESBD473, VERIFY EMP REGISTRTION DATE
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
@ -21,29 +21,41 @@
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//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)
//****
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
//*********************************************************************
//STEP0200 EXEC PGM=DESBD474, // SELECT FRAUD WAGES FROM X144
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* CODEPAGE=1252,AUTOENCODE=YES,
//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610)
//*
//STEP0200 EXEC PGM=DESBD474,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR
//DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(100,50),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//*********************************************************************
//STEP0300 EXEC PGM=DESBD475, // SELECT FRAUD WAGES FROM X147
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//*********************************
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
@ -56,10 +68,14 @@
//DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// 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)
//****
//***********************************
//EMAIL EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
@ -149,3 +165,4 @@
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*
//