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

DUTAS re-platformed to Raincode - Initial Source Code

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

368
JCL/DTSNH500.jcl Normal file
View File

@ -0,0 +1,368 @@
//DTSBX500 JOB (UI,4300,3400,T),SUTA.RUN,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//***** EXTRACT EMPLOYER AND WAGE QUARTERLY DATA FOR SUTA PACKAGE
//* 00001700
//* MUST CHANGE QTR BEFORE RUNNING JOB 03/09/17 ZL1 00001700
//* 00001700
//* SET QTR='20161' /* PARM QUARTER
// SET AQTR='YRQ20161' /* PARM QUARTER
// SET BQTR='YRQ20162' /* PARM QUARTER
// SET CQTR='YRQ20163' /* PARM QUARTER
// SET DQTR='YRQ20164' /* PARM QUARTER
//* 00001700
//STEP0100 EXEC PGM=DTSBX500, EXTRACT EMPLOYER AND WAGE DATA FOR
// COND=(0,LT), SDDS.
// PARM='20161',
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE.&AQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(75,25),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800) 00009000
//*
//DTSTAX DD DSN=DOESTAX.PROD.SDDS.TAX.&AQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7200,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=7200) 00009000
//*
//DTSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT.&AQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7070,(5000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=101,BLKSIZE=7070) 00009000
//*
//DTSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP.&AQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6800,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=340,BLKSIZE=6800) 00009000
//*
//STEP0200 EXEC PGM=DTSBX801, BUILD PRED SUCC FILE FOR SDDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC.&AQTR.,
//* DISP=(OLD,KEEP,KEEP),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(6600,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//*
//FTPXFER EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFA502),DISP=SHR
/*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:SUNNY.PANDIT@DC.GOV',
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:VENKAT.UPPALA@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:SARAVANAN.SWAMINATHAN@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: FY2016 Q1 SDDS DATA AVAILABLE.....ZL1',
// 'FILEDESC: DUTAS SDDS 2016 QTRS 1 THRU 4 READY',
// 'FILENAME:SDDS_DUTAS_QDATA.TXT')
//SYSUT1 DD DSN=DOESTAX.DEVL.SDDS.QDATA.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//STEP0200 EXEC PGM=DTSBX500, EXTRACT EMPLOYER AND WAGE DATA FOR
// COND=(0,LT), SDDS.
// PARM='20162',
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE.&BQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(75,25),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800) 00009000
//*
//DTSTAX DD DSN=DOESTAX.PROD.SDDS.TAX.&BQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7200,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=7200) 00009000
//*
//DTSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT.&BQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7070,(5000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=101,BLKSIZE=7070) 00009000
//*
//DTSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP.&BQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6800,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=340,BLKSIZE=6800) 00009000
//*
//STEP0200 EXEC PGM=DTSBX801, BUILD PRED SUCC FILE FOR SDDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC.&BQTR.,
//* DISP=(OLD,KEEP,KEEP),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(6600,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//*
//FTPXFER EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFB502),DISP=SHR
/*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:SUNNY.PANDIT@DC.GOV',
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:VENKAT.UPPALA@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:SARAVANAN.SWAMINATHAN@DC.GOV',
// 'CC:FREDERICK.COOKE@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: FY2016 Q2 SDDS DATA AVAILABLE.....ZL1',
// 'FILEDESC: DUTAS SDDS 2016 QTRS 1 THRU 4 READY',
// 'FILENAME:SDDS_DUTAS_QDATA.TXT')
//SYSUT1 DD DSN=DOESTAX.DEVL.SDDS.QDATA.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//STEP0300 EXEC PGM=DTSBX500, EXTRACT EMPLOYER AND WAGE DATA FOR
// COND=(0,LT), SDDS.
// PARM='20163',
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE.&CQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(75,25),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800) 00009000
//*
//DTSTAX DD DSN=DOESTAX.PROD.SDDS.TAX.&CQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7200,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=7200) 00009000
//*
//DTSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT.&CQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7070,(5000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=101,BLKSIZE=7070) 00009000
//*
//DTSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP.&CQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6800,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=340,BLKSIZE=6800) 00009000
//*
//STEP0200 EXEC PGM=DTSBX801, BUILD PRED SUCC FILE FOR SDDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC.&CQTR.,
//* DISP=(OLD,KEEP,KEEP),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(6600,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//*
//FTPXFER EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFC502),DISP=SHR
/*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:SUNNY.PANDIT@DC.GOV',
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:VENKAT.UPPALA@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:SARAVANAN.SWAMINATHAN@DC.GOV',
// 'CC:FREDERICK.COOKE@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: FY2016 Q3 SDDS DATA AVAILABLE.....ZL1',
// 'FILEDESC: DUTAS SDDS 2016 QTRS 1 THRU 4 READY',
// 'FILENAME:SDDS_DUTAS_QDATA.TXT')
//SYSUT1 DD DSN=DOESTAX.DEVL.SDDS.QDATA.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//STEP0400 EXEC PGM=DTSBX500, EXTRACT EMPLOYER AND WAGE DATA FOR
// COND=(0,LT), SDDS.
// PARM='20164',
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE.&DQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(75,25),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800) 00009000
//*
//DTSTAX DD DSN=DOESTAX.PROD.SDDS.TAX.&DQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7200,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=7200) 00009000
//*
//DTSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT.&DQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7070,(5000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=101,BLKSIZE=7070) 00009000
//*
//DTSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP.&DQTR., 00005000
//* DISP=(OLD,KEEP,KEEP), 00006000
// DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6800,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=340,BLKSIZE=6800) 00009000
//*
//STEP0200 EXEC PGM=DTSBX801, BUILD PRED SUCC FILE FOR SDDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC.&DQTR.,
//* DISP=(OLD,KEEP,KEEP),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(6600,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//*
//FTPXFER EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFD502),DISP=SHR
/*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:SUNNY.PANDIT@DC.GOV',
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:VENKAT.UPPALA@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:SARAVANAN.SWAMINATHAN@DC.GOV',
// 'CC:FREDERICK.COOKE@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: FY2016 Q4 SDDS DATA AVAILABLE.....ZL1',
// 'FILEDESC: DUTAS SDDS 2016 QTRS 1 THRU 4 READY',
// 'FILENAME:SDDS_DUTAS_QDATA.TXT')
//SYSUT1 DD DSN=DOESTAX.DEVL.SDDS.QDATA.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*************************END JOB *************************************