88 lines
3.0 KiB
Plaintext
88 lines
3.0 KiB
Plaintext
//DTSRQ793 JOB (UI,4300,3400,T),FUTA.QTRLY.CHNG,CLASS=S,MSGCLASS=X,
|
|
// NOTIFY=ECNTSUP,
|
|
// USER=#DOADTS,
|
|
// REGION=0M
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
|
|
//****
|
|
//****
|
|
//* REQUEST REPORT DTSBR793 - FUTA QTRLY- POTENTIAL LIABLE EMPLOYERS.
|
|
//* RUN JOB WHEN THE IRS QTRLY FUTA CHANGE TAPE HAS BEEN DOWNLOADED
|
|
//****
|
|
//* (CHANGE FISCAL YEAR/QTR BEFORE RUNNING THIS JOB)
|
|
//****
|
|
// SET FISYRQTR='QTR222' <<<< CHANGE BEFORE RUNNING JOB >>>>>>
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
//*
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//*****************************************************************
|
|
//***** SORT FUTA FILE AND EXCLUDE DUPLICATE FEIN *****
|
|
//***** *****
|
|
//*****************************************************************
|
|
//SORT1 EXEC PGM=SYNCSORT,REGION=1024K
|
|
//SORT.SYSPRINT DD SYSOUT=*
|
|
//SORT.STATOUT DD SYSOUT=*
|
|
//SORT.SYSDBOUT DD SYSOUT=*
|
|
//SORT.SYSUDUMP DD SYSOUT=*
|
|
//SORT.SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.CONV.FUTACHNG.&FISYRQTR.,DISP=SHR
|
|
// DD DSN=DOESTAX.CONV.FUTACHNG.QTR221,DISP=SHR
|
|
//SORTOUT DD DSN=DOESTAX.CONV.FUTACHNG.SORTED,DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(5,9,CH,A)
|
|
SUM FIELDS=NONE
|
|
END
|
|
//*
|
|
//* NO BACKUP NEEDED BEFORE THIS REPORT
|
|
//**
|
|
//STEP0200 EXEC DTSUX793
|
|
//*
|
|
//STEP0100.DTSFQEUP DD DSN=DOESTAX.CONV.FUTACHNG.SORTED,
|
|
// DISP=SHR
|
|
//***
|
|
//* REPORT RECORD SORT
|
|
//STEP0250 EXEC DTSRSORT
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//*TEP0100.RPT793R1 DD HOLD=YES
|
|
//STEP0100.RPT793R2 DD DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR
|
|
//STEP0100.RPT793R3 DD DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR
|
|
//*
|
|
//X793MAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:MACARENA.CANTELAS@DC.GOV',
|
|
// 'TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'TO:ROSALIND.HOLBROOK@DC.GOV',
|
|
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
// 'SUBJECT: IRS FUTA QTR (NOT IN DUTAS) REPORT',
|
|
// 'FILENAME:FUTA_X793_MAILED.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//*
|
|
//X793MAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'TO:MACARENA.CANTELAS@DC.GOV',
|
|
// 'TO:ROSALIND.HOLBROOK@DC.GOV',
|
|
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
// 'SUBJECT: IRS FUTA QTR (FOUND IN DUTAS) REPORT',
|
|
// 'FILENAME:FUTA_X793_INDUTAS.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//*
|