//DTSGSID1 JOB (UI,4300,3400,T),JHP.CHGDLY,CLASS=A,MSGCLASS=X,          00000160
//***      TYPRUN=SCAN,                                                 00000225
//         USER=#DOADTS,
//         NOTIFY=ECNTZL1,REGION=0M                                     00000564
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00000637
//  SET PRGNODE='PROD'             /* DAILY CHARGING UPDATE FROM        00000760
//  SET LVLNODE='PROD'             /* UI BENEFITS TO UI TAX             00000860
//  SET MSTNODE='PROD'                                                  00000960
//  SET CHGNODE='PROD'                                                  00001060
//  SET CHGMNBR='CHGM002'                                               00001149
//  SET CHGMSSN='CHGM030'                                               00001249
//  SET  BKPGEN='(+1)'             /* 200 BACKUP GENERATIONS            00001349
//  SET   LDEST=U@PRT65                                                 00001449
//  SET   LHOLD='YES'                                                   00001549
//  SET   BD200='Y'                /* TOLERATE DUPS OR NOT              00001662
//****                                                                  00001749
//*    DAILY BENEFIT CHARGE PROCESS                                     00002003
//****                                                                  00002425
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB                       00003026
//*OADLIBS INCLUDE MEMBER=DTSIJLIB                                      00003227
//LOADLIBS INCLUDE MEMBER=DTSIKLIB                                      00003227
//****                                                                  00003325
//STEP0100 EXEC DTSUXGSI           /*EXTRACT AND UPDATE CHARGE FILE     00003963
//****                                                                  00005461
//STEP0300 EXEC DTSCGRD1,          /* PRINT REPORTS                     00005560
//           LDEST=U@PRT65,                                             00005660
//           LHOLD='YES'                                                00005760
//**                                                                    00005860
//*STEP0200.RPT907R1 DD HOLD=NO                /*  UNUS.COND. RPT       00006049
//STEP0200.RPT907R2 DD DUMMY                  /*  UNUS.COND. RPT        00006149
//DOESLBLP.DOESLBL1 DD DUMMY                  /*  LABELS                00007049
//*                                                                     00001749
//*    DAILY BENEFIT CHARGE BACKUP                                      00002003
//*********************************************************************
//*  REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
//********************************************************************
//*
//STEP0100 EXEC DTSUTCHG,
//             BKUPGEN='(+1)'                                           00002425
//*
//  IF (STEP0100.STEP0100.RC NE 0) THEN
//EMAIL    EXEC PGM=IEBGENER,
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
//         'SUBJECT: !!!!! NO DAILY CHARGES-FROM GSI  )',
//         'FILEDESC: GSI DAILY CHARGES                   ',
//         'FILENAME:GSICHARGES.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.GSI.CHARGES.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//  ELSE
//EMAIL    EXEC PGM=IEBGENER,
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
//         'SUBJECT: DAILY CHARGES-FROM GSI UPLOADED  )',
//         'FILEDESC: GSI DAILY CHARGES                   ',
//         'FILENAME:GSICHARGES.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.GSI.CHARGES.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF
//*