74 lines
5.7 KiB
Plaintext
74 lines
5.7 KiB
Plaintext
//ECNTVCGQ JOB (UI,4300,3400,T),CHGQTR.VIEWDIR, 00010016
|
|
// CLASS=P,MSGCLASS=X, 00011016
|
|
//*** TYPRUN=SCAN, 00020001
|
|
//*** USER=#DOADTS, 00021024
|
|
//**** NOTIFY=ECNTJP2,REGION=0M 00030031
|
|
// NOTIFY=ECNTSUP,REGION=0M 00031031
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** 00040000
|
|
// SET PRGNODE='PROD' /* CREATE THE QUARTERLY REPORTS 00050015
|
|
// SET LVLNODE='PROD' /* AND FILES FOR THE QTR GIVEN 00060015
|
|
// SET CHGNODE='PROD' 00070015
|
|
// SET CHGMNBR='CHGM002' 00071004
|
|
// SET CHGMSSN='CHGM030' 00072020
|
|
// SET QTRLY='QTR041' /* QTRYYQ 00080031
|
|
// SET LDEST=U@PRT65 00090027
|
|
// SET LHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00100018
|
|
// SET LVDHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00101018
|
|
//***** 00110000
|
|
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY 00120000
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008
|
|
//**** 00150000
|
|
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
|
|
//* (W) FOR RATED EMPLOYERS, BILLS (I) FOR SELF-INSURED (S-I) 00170000
|
|
//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000
|
|
//* ALONG WITH LABELS FOR THE S-I, CWC & FEDS. 00200000
|
|
//**** 00210000
|
|
//* PARMS FOR CHGBD205: 00220000
|
|
//* COLS. RUN TYPE: 00240000
|
|
//* 01-03 QTR = QUARTERLY 00250000
|
|
//* ANN = ANNUAL 00260000
|
|
//* MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED 00270000
|
|
//* EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER 00280000
|
|
//* RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM 00300000
|
|
//* TEU = PRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM 00320014
|
|
//* 00330000
|
|
//* 05-10 MMDDYY = START DATE OF SELECTION 00340000
|
|
//* 12-17 MMDDYY = END DATE OF SELECTION 00350000
|
|
//* 00351000
|
|
//* 19-23 YYYYY = (FOR RPT ONLY) REPORT TYPES DESIRED: 00360000
|
|
//* - Y/N RATED REPORT (W)(O) 00390000
|
|
//* - Y/N SELF-INSURED REPORT (I)(O) 00400000
|
|
//* - Y/N CWC REPORT (O) 00410000
|
|
//* - Y/N FEDERAL REPORT (O) 00420000
|
|
//* - Y/N TEUC REPORT (O) 00430012
|
|
//* 00431000
|
|
//* 25-30 NNNNNN = 6 DIGIT EMPLOYER ACCOUNT NUMBER 00440000
|
|
//* (USED WITH RUN TYPE = EMP/MNE) 00450000
|
|
//* 00460000
|
|
//****SET EXTRACT PARM IN DOESTAX.&LVLNODE.APPL.PARMLIB(CHGPARM) 00470000
|
|
//* (OR NOT... FOR NOW) 00471000
|
|
//**** 00480000
|
|
//STEP0200 EXEC DTSUXCGP 00490000
|
|
//STEP0100.SYSIN DD * 00491000
|
|
RPT,010104,033104,YYYYNY,000000 00492031
|
|
/* 00500000
|
|
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500117
|
|
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500218
|
|
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500317
|
|
//**** 00501000
|
|
//* SYSIN CARD: RPT,010102,033102,YYYYNY,000000 00502027
|
|
//**** 00504000
|
|
//STEP0300 EXEC DTSCVRPQ 00510019
|
|
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) <-- 00511017
|
|
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. <-- 00511117
|
|
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) <-- 00511217
|
|
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE <-- 00512017
|
|
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE <-- 00513017
|
|
//STEP0200.RPT907R1 DD DUMMY /* UNUS.COND. <-- 00513118
|
|
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. <-- 00513218
|
|
//STEP0200.RPT980R1 DD DUMMY /* CNTRL.RPT. <-- 00513318
|
|
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS <-- 00514017
|
|
//* 00515016
|