//DTSCHGE1 JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X,       00010001
//****     TYPRUN=SCAN,                                                 00020000
//         NOTIFY=ECNTSUP,REGION=0M                                     00030000
//****                                                                  00040000
//*  BENEFIT CHARGE REPORTING PROCESS FOR ANY EMPLOYER                  00041001
//****                                                                  00041100
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED                    00041200
//****                                                                  00042000
//  SET PRGNODE='PROD'                                                  00043000
//  SET LVLNODE='PROD'                                                  00044000
//  SET MSTNODE='PROD'                                                  00045100
//  SET CHGNODE='PROD'                                                  00046000
//  SET  UINODE='PROD'                                                  00047000
//  SET CHGMNBR='CHGM002'                                               00048000
//  SET CHGMSSN='CHGM030'                                               00049000
//  SET   QTRLY='SPECXX'                                                00050000
//  SET   LDEST='LOCAL'                                                 00070000
//  SET   LHOLD='YES'                                                   00080000
//  SET   LVDHOLD='YES'                                                 00081000
//*****                                                                 00090000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB                       00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00110000
//****                                                                  00120000
//****                                                                  00130000
//STEP0100 EXEC DTSUXCGR                                                00140000
//*TEP0300.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00150000
//*TEP1400.BD220CHG DD  DISP=SHR       /* CHARGE REPORT FILE            00160000
//STEP0300.EXTPARM DD *                                                 00170000
EMP,010105,101508,YNNNNN,143904                                         00200000
/*                                                                      00210000
//*ANN,      ,      ,YYYYYY,000000                                      00220000
//*QTR,      ,      ,YYYYNY,000000                                      00230000
//*EMP,070106,063007,YNNNNN,154162                                      00240000
//********************************************************************* 00940000
//STEP0200 EXEC PGM=CHGBD301,                                           00951000
//             COND=(0,LT)                                              00970000
//SYSOUT   DD  SYSOUT=*                                                 00980000
//SYSABOUT DD  SYSOUT=*                                                 00990000
//SYSUDUMP DD  SYSOUT=*                                                 01000000
//**                                                                    01010000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      01020000
//**                                                                    01030000
//CHGPARM  DD  DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY,             01080000
//             DISP=SHR,                                                01080100
//*            DISP=(NEW,CATLG,DELETE),                                 01081000
//             UNIT=SYSDA,                                              01082000
//             SPACE=(80,(2,10),RLSE),                                  01083000
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)                      01084000
//**                                                                    01120000
//BD220CHG DD  DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY,        01130000
//             DISP=SHR,                                                01131000
//*            DISP=(NEW,CATLG,DELETE),                                 01131100
//             UNIT=SYSDA,                                              01132000
//             SPACE=(31040,(1000,1000),RLSE),                          01133000
//             DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040)                   01134000
//*D220CHG DD  DSN=&&BD220RPT,                                          01140000
//*            DISP=(OLD,PASS,DELETE)                                   01150000
//**                                                                    01160000
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 01170000
//             AMP=('BUFNI=5,BUFND=10')                                 01180000
//**                                                                    01190000
//RPC100R2 DD  DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY.,          01210000
//             DISP=(NEW,CATLG,DELETE),                                 01230000
//**           DISP=(OLD,KEEP,KEEP),                                    01231000
//             UNIT=SYSDA,                                              01240000
//             SPACE=(8000,(1000,1000),RLSE),                           01250000
//             DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600)                   01260000
//**                                                                    01270000
//TPSCHRG  DD  DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY.,                   01301000
//             DISP=(NEW,CATLG,DELETE),                                 01310000
//**           DISP=(OLD,KEEP,KEEP),                                    01320000
//             UNIT=SYSDA,                                              01330000
//             SPACE=(11800,(1000,1000),RLSE),                          01340000
//             DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800)                   01350000
//**                                                                    01360000
//**                        TO BE PROCESSED IN THE NEXT DAILY RUN       01370000
//*TSFBTCO DD  DSN=DOESTAX.&LVLNODE..BTC(+1),                           01380000
//*            DISP=(,CATLG,DELETE),                                    01390000
//*            UNIT=SYSDA,                                              01400000
//*            SPACE=(8192,(1000,1000),RLSE),                           01410000
//*            DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        01420000
//**                                                                    01430000
//**                                 SM - TOTAL CHARGES (RATED)         01440000
//RPC100R1 DD  SYSOUT=E,                                                01451000
//             DEST=&LDEST.,                                            01460000
//             HOLD=&LHOLD.                                             01470000
//**                                 CHRG SUMMARY-RATED                 01480000
//RPC100R3 DD  SYSOUT=Z,                                                01491001
//             HOLD=&LHOLD.,                                            01491101
//             DEST=&LDEST.                                             01491200
//**                                                                    01520000
//****                                  SORT REPORT RECORDS (901/907)   01800000
//STEP0150 EXEC PGM=SORT,                                                01810000
//             COND=(0,LT),                                             01820000
//             REGION=0M                                                01830000
//SYSOUT   DD  SYSOUT=*                                                 01840000
//SORTIN   DD  DSN=&&BD205RPT,                                          01860000
//             DISP=(OLD,DELETE,DELETE)                                 01870000
//SORTOUT  DD  DSN=&&SRTRPT,                                            01880000
//             DISP=(,PASS,DELETE),                                     01890000
//             UNIT=SYSDA,                                              01900000
//             SPACE=(16384,(1000,1000),RLSE),                          01910000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   01920000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    01930000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      01940000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      01950000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      01960000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      01970000
//*                                                                     01980000
//****                                                                  01990000
//STEP0200 EXEC PGM=CHGBD800,        /* PRINT 901/907 OUTPUT            02000000
//             COND=(0,LT)                                              02010000
//SYSOUT   DD  SYSOUT=*                                                 02020000
//SYSABOUT DD  SYSOUT=*                                                 02030000
//SYSUDUMP DD  SYSOUT=*                                                 02040000
//**                                                                    02050000
//DTSFVRI1 DD  DSN=&&SRTRPT,                                            02060000
//             DISP=(OLD,DELETE,DELETE)                                 02070000
//**                                                                    02080000
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 02090000
//             AMP=('BUFNI=5,BUFND=10')                                 02100000
//**                                                                    02110000
//PARMIN   DD  DUMMY                                                    02120000
//**                                                                    02130000
//ATLSTIN  DD  DUMMY                                                    02140000
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT    02150000
//RPT907R1 DD  SYSOUT=Z,                                                02160000
//             DEST=&LDEST.,                                            02170000
//             HOLD=&LHOLD.                                             02180000
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT    02190000
//RPT907R2 DD  SYSOUT=Z,                                                02200000
//             DEST=&LDEST.,                                            02210000
//             HOLD=&LHOLD.                                             02220000
//**                           CONTROL REPORT SUMMARY                   02230000
//RPT980R1 DD  SYSOUT=Q,COPIES=2,                                       02240000
//             HOLD=&LHOLD.,                                            02250000
//             DEST=&LDEST.                                             02260000
//**                                                                    02270000