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

106
JCL/DTSBX500.jcl Normal file
View File

@ -0,0 +1,106 @@
//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 AQTR='YRQ20182' /* PARM QUARTER
//* 00001700
//STEP0100 EXEC PGM=DTSBX500, EXTRACT EMPLOYER AND WAGE DATA FOR
// COND=(0,LT), SDDS.
// PARM='20251', /*..........CHANGE PARM QUARTER
// 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.DEVL.VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//*TSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE.&AQTR., 00005000
//DTSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE, 00005000
// DISP=(OLD,KEEP,KEEP), 00006000
//* DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(100,25),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800) 00009000
//*
//*TSTAX DD DSN=DOESTAX.PROD.SDDS.TAX.&AQTR., 00005000
//DTSTAX DD DSN=DOESTAX.PROD.SDDS.TAX, 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
//*
//*TSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT.&AQTR., 00005000
//DTSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT, 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
//*
//*TSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP.&AQTR., 00005000
//DTSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP, 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')
//*
//*TSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC.&AQTR.,
//DTSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC,
// 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:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:KIRAN.KOYYALAMUDY@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: SDDS QUARTERLY DATA DOWNLOADED..ZL1',
// 'FILEDESC: DUTAS SDDS QUARTERLY DATA AVAIL ',
// 'FILENAME:SDDS_DUTAS_QDATA.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.DEVL.SDDS.QDATA.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//*************************END JOB *************************************