//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..PROCS.BATCH.LIB                       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)',freq='DAILY'   
//*
//  IF (STEP0100.STEP0100.RC NE 0) THEN
//EMAIL001    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
//EMAIL002    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
//* 
//*********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/intranet/Outbound_intranet                                      
ascii                                                                 
put 'ECNTSUP.DOESTAX.PROD.FTP.CHARGE' +
ECNTSUP.DOESTAX.PROD.FTP.CHARGE
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//