112 lines
3.8 KiB
Plaintext
112 lines
3.8 KiB
Plaintext
//DTSRQ704 JOB (UI,4300,3400,T),PROD.FUTA.CERT2, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
//* USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
//****
|
|
//* FUTA CERTIFICATION - PART 1 (RUNRQ701) - CANC 3 (RUNRQ702)
|
|
//* - PART 2 (THIS JOB) - CANC 4 (DTSRQ706) (ZL1)
|
|
//****
|
|
//* (CHANGE CALENDAR YEAR AS NEEDED)
|
|
//****
|
|
// SET FISCALYR='CY2024'
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//****
|
|
//* JOB : FUTA CERTIFICATION - PART 2
|
|
//****
|
|
//* : RPT704R1 SUCCESSFUL FUTA CERTIFICATIONS LIST - VIEW DIRECT
|
|
//* RPT705R1 FAILED FUTA CERTIFICATIONS LIST - VIEW DIRECT
|
|
//* RPT708R1 POTENTIAL FUTA NON-FEDERAL FILERS LIST
|
|
//* : RPT702 FUTA CERTIFICATION FILE-OUT ON DISK
|
|
//* RPT706 FUTA NON-FEDERAL FILERS FILE-OUT ON DISK
|
|
//* DTSFZ50 PRT 1ST 50 ZERO CERTIFICATION REPLY RECORDS
|
|
//* DTSFNZ50 PRT 1ST 50 NON-ZERO CERTIFICATION REPLY RECORDS
|
|
//*****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* NO BACKUP NEEDED BEFORE THIS JOB
|
|
//****
|
|
//* BD610/620/630 EXTRACT
|
|
//STEP0100 EXEC DTSUX704
|
|
//***
|
|
//STEP0100.DTSFRQST DD DSN=DOESTAX.CONV.FUTACERT.&FISCALYR.,
|
|
// DISP=SHR
|
|
//**** (USE NEXT THREE ONLY IF A RERUN)
|
|
//**STEP0100.DTSFZ50 DD DISP=SHR /* (***>>>)
|
|
//**STEP0100.DTSFNZ50 DD DISP=SHR
|
|
//**STEP0100.DTSFRPLY DD DISP=SHR
|
|
//****
|
|
//* PRINT FIRST 50 ZERO CERTIFICATION REPLY RECORDS
|
|
//****
|
|
//STEP0125 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
|
|
// HOLD=&LHOLD.
|
|
//FILEIN DD DSN=DOESTAX.&LVLNODE..FUTAZ50.&FISCALYR.,DISP=SHR
|
|
//SYSIN DD *
|
|
PRINT -
|
|
INFILE (FILEIN)
|
|
/*
|
|
//****
|
|
//* PRINT FIRST 50 NON-ZERO CERTIFICATION REPLY RECORDS
|
|
//****
|
|
//STEP0150 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
|
|
// HOLD=&LHOLD.
|
|
//FILEIN DD DSN=DOESTAX.&LVLNODE..FUTANZ50.&FISCALYR.,DISP=SHR
|
|
//SYSIN DD *
|
|
PRINT -
|
|
INFILE (FILEIN)
|
|
/*
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0200 EXEC PGM=SORT,
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR
|
|
// DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR
|
|
//SORTOUT DD DSN=&&SRTRPT,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(16384,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//***
|
|
//STEP0210 EXEC PGM=IDCAMS, SAVE SORTED REPORT FILE
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=&&SRTRPT,
|
|
// DISP=(OLD,PASS,DELETE)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..FUTA704.RPT.&FISCALYR,
|
|
//**** USE DISP=SHR, IF A RERUN ***>>>
|
|
//**** DISP=SHR,
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD *
|
|
REPRO INFILE(INDD01) -
|
|
OUTFILE(OUTDD01) -
|
|
REPLACE
|
|
/*
|
|
//*** REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//STEP0100.PARMIN DD *
|
|
DTSBD800,EXC,708
|
|
/*
|
|
//** SUCCESSFUL FUTA CERTIFICATIONS
|
|
//STEP0100.RPT704R1 DD SYSOUT=0
|
|
//** FAILED FUTA CERTIFICATIONS
|
|
//STEP0100.RPT705R1 DD SYSOUT=0
|
|
//*
|
|
//STEP0100.RPT708R1 DD DUMMY
|
|
//*
|