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

Initial commit of DUTAS source code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit 59d8e47f26
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

156
JCL/DTSGSID2.jcl Normal file
View File

@ -0,0 +1,156 @@
//DTSGSID2 JOB (UI,4300,3400,T),DTSBX479, 00000010
// CLASS=S,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//* 00001700
//* *** JOB DTSPDAY1 MUST RUN SUCESSFULL ZL1 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC DTSBX479
//** 00001700
//STEP0200 EXEC PGM=SYNCSORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
INCLUDE COND=(11,2,CH,EQ,C'W1')
//*
//** 00001700
//STEP0250 EXEC PGM=SYNCSORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
SUM FIELDS=NONE
//*
//STEP0300 EXEC PGM=SYNCSORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
INCLUDE COND=(11,2,CH,EQ,C'W4')
//*
//** 00001700
//STEP0350 EXEC PGM=SYNCSORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
SUM FIELDS=NONE
//*
//** 00001700
//** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700
//** 00001700
//** 00001700
//STEP0200 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(PUTGSI02),DISP=SHR
//*
//STEP0100 EXEC PGM=DTSBX478,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//*
//DTSFW2 DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//*
//DTSFW4 DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//*
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//**
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:JASHIM.UDDIN@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:SEAN.JOSIAH@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:JARONE.ROBINSON@DC.GOV',
// 'CC:RAMBABU.PEETLA@DC.GOV',
// 'SUBJECT: DUTAS DAILY WAGE COUNTS PASSED TO UIBS ',
// 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ',
// 'FILENAME:DAILY-DUTAS-WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*******************************************************************