//DTSCHGQ1 JOB (UI,4300,3400,T),CHGQTR,CLASS=P,MSGCLASS=X, 00010017 //** TYPRUN=SCAN, 00011017 //** USER=#DOADTS, 00012018 // USER=#DOADTS, 00012018 //** NOTIFY=ECNTGD1,REGION=0M 00013026 // NOTIFY=ECNTZL1,REGION=0M 00014021 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //**** 00040000 //**** 00150000 //* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032 //**** 00480000 //**** 00042026 // SET PRGNODE='PROD' /* CHK '<--' LINES BELOW FOR A RERUN 00050017 // SET LVLNODE='PROD' 00060017 // SET UINODE='PROD' 00060124 // SET MSTNODE='PROD' /* QUARTERLY RUN FOR SI EMPLOYERS 00061032 // SET CHGNODE='PROD' 00070017 // SET CHGMNBR='CHGM002' 00071004 // SET CHGMSSN='CHGM030' 00072014 // SET QTRLY='QTR253' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038 // SET LDEST=U@PRT65 00090000 // SET LVDHOLD='YES' 00100027 // SET LHOLD='YES' 00101027 //***** 00110000 //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00130000 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009 //**** 00150000 //* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032 //**** 00480000 //STEP0200 EXEC DTSUXCGP 00490000 //STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032 // DISP=SHR 00500032 //**** 00504000 //STEP0300 EXEC DTSCHGQ1 00510031 //STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030 //STEP0100.RPC110R2 DD DUMMY 00511130 //STEP0100.RPC110R3 DD DUMMY 00511130 //STEP0100.CSV130R1 DD DUMMY 00511130 //STEP0100.RPC130R2 DD DUMMY 00511130 //*TEP0100.TPSCHRG DD DISP=SHR 00511130 //**** 00520000 //* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00579236 //* 00579336 //STEP0200 EXEC DTSUXCGU 00579436 //* 00579536 //**** 00580025