//DTSCHGVT JOB (UI,4300,3400,T),JHP.CHGDLY.REAPPLY,                     00000139
//         CLASS=P,MSGCLASS=X,                                          00000239
//***      TYPRUN=SCAN,                                                 00000339
//***      USER=#DOADTS,                                                00000439
//         NOTIFY=ECNTSUP,REGION=0M                                     00000639
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00000739
//  SET PRGNODE='PROD'             /* REAPPLY DAILY CHRG TRXS AFTER     00000839
//  SET LVLNODE='PROD'             /* RESTORE OF CHGM002 VSAM FILE      00000939
//  SET CHGNODE='PROD'             /* (DTSCHGVR) FROM LAST WEEKLY       00001039
//  SET CHGMNBR='CHGM002'          /*                      (DTSCHGD7)   00001139
//  SET  BKPGEN='(+0)'             /* ONCE FOR EACH DAY NEEDED          00001239
//  SET   LDEST=U@PRT65                                                 00001339
//  SET   LHOLD='YES'                                                   00001439
//****                                                                  00001539
//*    DAILY BENEFIT CHARGE PROCESS                                     00002003
//****                                                                  00002425
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB                       00003026
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00003227
//****                                                                  00003325
//STEP0100 EXEC PGM=CHGBD200,                                           00004039
//             COND=(0,LT)                                              00004139
//SYSOUT   DD  SYSOUT=*                                                 00004239
//SYSABOUT DD  SYSOUT=*                                                 00004339
//SYSUDUMP DD  SYSOUT=*                                                 00004439
//BD100CHG DD  DSN=DOESTAX.&LVLNODE..BKP.CHGBD200.TRX.DAILY&BKPGEN.,    00004539
//             DISP=SHR                                                 00004639
//**                                                                    00004739
//BD200CHG DD  DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR            00004839
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00004939
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00005039
//             AMP=('BUFNI=5,BUFND=10')                                 00005139
//**                                                                    00005239
//*                                                                     00005318
//STEP0300 EXEC DTSCGRD1,          /* PRINT REPORTS                     00005428
//            LDEST=U@PRT65,                                            00005505
//            LHOLD='YES'                                               00005605
//**                                                                    00005726
//STEP0200.RPT907R1 DD HOLD=NO                /*  UNUS.COND. RPT        00006038
//STEP0200.RPT907R2 DD DUMMY                  /*  UNUS.COND. RPT        00006138
//DOESLBLP.DOESLBL1 DD DUMMY                  /*  LABELS                00007026
//****                                                                  00020025