//DTSCHGE1 JOB (UI,4300,3400,T),CHGEMP,CLASS=P,MSGCLASS=X,              00010038
//**       TYPRUN=SCAN,                                                 00011038
//***      USER=#DOADTS,                                                00012039
//***      NOTIFY=ECNTJP2,REGION=0M                                     00013041
//         NOTIFY=ECNTSUP,REGION=0M                                     00014041
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00040000
//  SET PRGNODE='PROD'           /* CHK '<--' LINES BELOW FOR A RERUN   00050038
//  SET LVLNODE='PROD'                                                  00060038
//  SET MSTNODE='PROD'                                                  00061038
//  SET  UINODE='PROD'                                                  00070044
//  SET CHGNODE='PROD'                                                  00070144
//  SET CHGMNBR='CHGM002'                                               00071000
//  SET CHGMSSN='CHGM030'                                               00072023
//  SET   QTRLY='SPECXX'                                                00080004
//  SET   LDEST=U@PRT65                                                 00090000
//  SET   LHOLD='YES'                                                   00100000
//*****                                                                 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                                      00140007
//****                                                                  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
//*        AGT = RECREATE FISCAL AGENT FILE                             00310000
//*        TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM         00320000
//*                                                                     00330000
//*  05-10 MMDDYY = START DATE OF SELECTION                             00340000
//*  12-17 MMDDYY = END DATE OF SELECTION                               00350000
//*                                                                     00351000
//*  19-24 YYYYYY = (FOR RPT ONLY) REPORT TYPES DESIRED:                00360037
//*                - 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)               00430134
//*                - Y/N  DC GOV REPORT               (O)               00430234
//*                                                                     00431000
//*  26-31 NNNNNN = 6 DIGIT EMPLOYER ACCOUNT NUMBER                     00440037
//*                     (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
EMP,010105,101508,      ,143904                                         00492045
/*                                                                      00500000
//STEP0100.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00500110
//STEP0100.DTSFVRO1 DD  DISP=SHR       /* CHG.BD205.RPT                 00500211
//STEP0500.BD220CHG DD  DISP=SHR       /* CHG.BD220.RPT                 00500308
//****                                                                  00501000
//*              SYSIN CARD: EMP,050102,053102,      ,030302            00502137
//****                                                                  00504000
//STEP0300 EXEC DTSCGRPT                                                00510000
//STEP0100.RPC100R2  DD  DUMMY            /* FISC.AGNT.  <--            00511001
//STEP0100.TPSCHRG   DD  DUMMY            /* TPS FILE    <--            00512001
//STEP0100.DTSFBTCO  DD  DUMMY            /* BTC FILE    <--            00513001
//DOESLBLP.DOESLBL1  DD  DUMMY            /* LABELS      <--            00514001
//****                                                                  00520000