42 lines
3.2 KiB
Plaintext
42 lines
3.2 KiB
Plaintext
//ECNTCHGR JOB (UI,4300,3400,T),CHGRPT.RPT,CLASS=P,MSGCLASS=X, 00010056
|
|
//** TYPRUN=SCAN, 00011050
|
|
//*** USER=#DOADTS, 00012051
|
|
// NOTIFY=ECNTSUP,REGION=0M 00014051
|
|
/*ROUTE PRINT U@PRT65 - REURN CHARGES FOR A QTR
|
|
//**** 00040000
|
|
// SET UINODE='PROD' 00050055
|
|
// SET PRGNODE='PROD' 00051055
|
|
// SET LVLNODE='PROD' 00060050
|
|
// SET MSTNODE='PROD' 00061050
|
|
// SET CHGNODE='PROD' 00070050
|
|
// SET CHGMNBR='CHGM002' 00071004
|
|
// SET CHGMSSN='CHGM030' 00072028
|
|
// SET QTRLY='QTR104' 00080055
|
|
// SET LDEST=U@PRT65 00090000
|
|
// SET LVDHOLD='YES' 00100055
|
|
// SET LHOLD='YES' 00101055
|
|
//***** 00110000
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008
|
|
//**** 00150000
|
|
//* QUARTERLY CHARGE REPORTING PROCESS REPORTS 00160058
|
|
//* 00170058
|
|
//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000
|
|
//**** 00210000
|
|
//**** 00480000
|
|
//*TEP0200 EXEC DTSUXCGP 00490000
|
|
//*TEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGR1), 00491058
|
|
//* DISP=SHR /* USE THESE FOR A RERUN <== 00500058
|
|
//STEP0300 EXEC DTSCHGRR 00510000
|
|
//*TEP0100.RPC110R2 DD SYSOUT=(V,DTSCG1Q1),HOLD=&LVDHOLD 00511057
|
|
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511156
|
|
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500138
|
|
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500238
|
|
//*TEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500339
|
|
//**** 00501000
|
|
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
|
|
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
|
|
//*OESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
|
|
//**** 00514156
|
|
//**** 00530056
|