107 lines
5.2 KiB
Plaintext
107 lines
5.2 KiB
Plaintext
//DTSBX500 JOB (UI,4300,3400,T),SUTA.RUN,CLASS=A,MSGCLASS=X, 00000010
|
|
//* TYPRUN=SCAN,
|
|
//* USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 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='YRQ20192' /* PARM QUARTER
|
|
//* 00001700
|
|
//STEP0100 EXEC PGM=DTSBX500, EXTRACT EMPLOYER AND WAGE DATA FOR
|
|
// COND=(0,LT), SDDS.
|
|
// PARM='20192', /*..........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.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
|
|
//*TSWAGE 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
|
|
//*
|
|
//DTSTAX DD DSN=DOESTAX.PROD.SDDS.TAX.&AQTR., 00005000
|
|
//*TSTAX 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
|
|
//*
|
|
//DTSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT.&AQTR., 00005000
|
|
//*TSCONT 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
|
|
//*
|
|
//DTSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP.&AQTR., 00005000
|
|
//*TSEMPL 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')
|
|
//*
|
|
//DTSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC.&AQTR.,
|
|
//*TSFPRED 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)
|
|
//*
|
|
//*TPXFER EXEC PGM=FTP
|
|
//*YSPRINT DD SYSOUT=*
|
|
//*UTOUT DD SYSOUT=*
|
|
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//*YSGET DD *,DCB=BLKSIZE=80
|
|
//*NPUT 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:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
//* 'CC:SARAVANAN.SWAMINATHAN@DC.GOV',
|
|
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'SUBJECT: SDDS Q20184 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 *************************************
|