61 lines
2.6 KiB
Plaintext
61 lines
2.6 KiB
Plaintext
//DTSRQ720 JOB (UI,4300,3400,T),PROD.BE720,
|
|
// CLASS=P,MSGCLASS=X,
|
|
// NOTIFY=ECNTZL1,
|
|
//**** TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//*****************************************************************
|
|
//** CHANGE PARMS BEFORE RUNNING JOB ***
|
|
//*****************************************************************
|
|
// SET TPSYRQ='QTR252' <<<< CHANGE BEFORE RUNNING JOB
|
|
// SET LVLNODE='PROD' //// CHANGE PARMS BELOW TO SPECIFY QUARTER
|
|
// SET MSTNODE='PROD' //// CHANGE PARMS BELOW TO SPECIFY QUARTER
|
|
// SET LHOLD='YES'
|
|
//******************************************************************
|
|
//* BUILDS UNIVERSE FOR TPS DEBITS RATED AND SELF INS *
|
|
//*
|
|
//**** RATED EMPLOYERS
|
|
//* THE UNIVERSE MUST BE BUILT AT THE END OF QUARTER PROCESSING *
|
|
//* PERIOD FOR RATED EMPLOYERS. THE END OF PROCESSING FOR A *
|
|
//* GIVEN QUATER WAS REDEFINED AS THE DATE QUATER WAS DECLARED *
|
|
//* DELINQUENT IN MEETING HELD WITH TAX CHIEF AND TAX COMPLIANCE *
|
|
//* OFFICER ON 9/6/17. PRIOR TO THIS THE END PROCESSING PERIOD *
|
|
//* WAS DEFINED AS THE REPORT DUE DATE, 30 DAYS AFTER QUATER END *
|
|
//* DATE. 07/09/17 ZL1 *
|
|
//*
|
|
//**** SELF INSURED EMPLOYERS
|
|
//* THE UNIVERSE MUST BE BUILT AT THE END OF THE GRACE PERIOD *
|
|
//* OF THE SI TAX DUE DATE. THE GRACE PERIOD IS 5 TO 7 DAYS AFTER*
|
|
//* REPORT DUE DATE. THE SI ARE BILLED FOR CHARGES ON THE 1ST *
|
|
//* WORKDAY AFTER THE QUARTER ENDS. *
|
|
//* 07/09/17 ZL1 *
|
|
//*****************************************************************
|
|
//* ON REQUEST REPORT DTSBR720 - *
|
|
//* RPT720A - DB/BILLINGS RATED EMPLYRS (CONTRIBUTIONS)
|
|
//* (RPT720)
|
|
//* RPT720B - DB/BILLINGS SI EMPLYRS (REIMBURSEMENTS)
|
|
//* (RPT721)
|
|
//**
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//** NO BACKUP NEEDED BEFORE THIS REPORT
|
|
//STEP0200 EXEC DTSUEXT,
|
|
// RUNTYPE='OR'
|
|
//**
|
|
//STEP0100.EXTPARM DD *
|
|
720,070125,100825
|
|
//* REPORT RECORD SORT
|
|
//STEP0250 EXEC DTSRSORT
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSTPRPT
|
|
//STEP0100.RPT715R1 DD DUMMY
|
|
//STEP0100.RPT716R1 DD DUMMY
|
|
//STEP0100.RPT717R1 DD DUMMY
|
|
//STEP0100.RPT718R1 DD DUMMY
|
|
//STEP0100.RPT719R1 DD DUMMY
|
|
//STEP0100.RPT722R1 DD DUMMY
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
|
|
//*
|