//DTSBX468 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X, //*** TYPRUN=SCAN, //* USER=#DOADTS, // NOTIFY=ECNTZL1, // REGION=4M //**** // SET UINODE='PROD' // SET MSTNODE='PROD' // SET PRGNODE='PROD' // SET OUTNODE='CONV' //**** //* PRODUCE THE QUARTERLY WAGE EXTRACT FOR NDNH 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=DTSBX468 //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=EFT.QWDATA.QTRLY.SDC.R250831, //* DISP=(NEW,CATLG,DELETE), //* UNIT=SYSDA,SPACE=(CYL,(900,50),RLSE), //* DCB=(RECFM=LSEQ,LRECL=601) //BUSINES DD DSN=DOESTAX.CONV.NDNH.QTRWAGE, // DISP=(NEW,CATLG,DELETE), //* DISP=SHR // UNIT=SYSDA, // SPACE=(CYL,(300,100),RLSE), // CODEPAGE=1252,AUTOENCODE=YES, // DCB=(RECFM=LSEQ,LRECL=601,BLKSIZE=6010) //* //* //***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT //*** //SYSIN DD * **DTSBX465 20250601 20250831 DCG FED BUS /* // //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) //* //**