85 lines
3.3 KiB
Plaintext
85 lines
3.3 KiB
Plaintext
//DTSBX469 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
|
//*** TYPRUN=SCAN,
|
|
//* USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,RESTART=STEP0400,
|
|
// REGION=4M
|
|
//****
|
|
// SET UINODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET PRGNODE='PROD'
|
|
// SET LVLNODE='CONV'
|
|
//****
|
|
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
|
|
//*
|
|
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
|
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//****
|
|
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
|
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
|
//****
|
|
//STEP0100 EXEC PGM=DTSBX469
|
|
//PRNTR DD SYSOUT=(*)
|
|
//SYSOUT DD SYSOUT=(*)
|
|
//SYSUDUMP DD SYSOUT=(*)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSDBOUT DD SYSOUT=(*)
|
|
//SYSCOUNT DD SYSOUT=(*)
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//*DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR,
|
|
//* AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//*
|
|
//BUSINES DD DSN=DOESTAX.&LVLNODE..UI.OTR.BUS,
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
//* DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(75,25),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//*
|
|
//GOVT DD DSN=DOESTAX.&LVLNODE..UI.OTR.DCG,
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(75,15),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//*
|
|
//***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT
|
|
//***
|
|
//SYSIN DD *
|
|
**DTSBX465 20250601 20250831 DCG FED BUS
|
|
/*
|
|
//STEP0400 EXEC PGM=SFTP
|
|
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
|
//SYSIN DD *
|
|
FWFRIENDLY TRUE
|
|
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
|
//OUTPUT DD SYSOUT=*
|
|
//INPUT DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
|
|
/*
|
|
//
|
|
//EMAIL EXEC PGM=IEBGENER,
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
|
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
|
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
|
// 'TO:SEAN.JOSIAH@DC.GOV',
|
|
// 'TO:JOY.DIGGS@DC.GOV',
|
|
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
|
// 'TO:PRUDVI.PALLA@DC.GOV',
|
|
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
|
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
|
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
|
// 'FILENAME:DOESWAGE.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//*
|
|
//**
|