//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..PROCS.BATCH.LIB                       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