//DTSGSI98 JOB (UI,4300,03410,P),'SEND-ACH-DEBIT-WF',REGION=4000K,
//***      USER=#DOADTS,
//         CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE    PRINT U@PRT65
//*
//   SET LVLNODE='DEVL'
//   SET MSTNODE='PROD'
//   SET IMPNODE='CONV'
//   SET BTCNODE='DEVL'
//   SET PRGNODE='CONV'
//   SET LVDHOLD='YES'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIELIB
//**
//********************************************************************
//****   UIBS DAILY CHARGE FILE WILL BE AVAILABLE FOR SFTP @2:00AM
//****   OIT JOB WILL RUN @6:00AM TO PICK UP JOB FROM GSI SFTP SERVER
//****   MAINFRAME. THIS JOB WILL RUN DAILY AT 7:00 AM    2/15/24 zl1
//*******************************************************************
//*    use only when ftp not working.      zl1
//**********************************************************************
//*  COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
//**********************************************************************
//*
//STEP0101 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01   DD  DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
//*
//OUTDD01   DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//
//***  send email daily charges transmitted to dutas
//**
/*
//X706PASS EXEC PGM=IEBGENER,COND=(0,NE,STEP0100),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//            'CC:RAGINI.JUJJAVARAPU@DC.GOV',
//            'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//         'SUBJECT:UIBS DAILY CHARGES---TRANSFERRED--- TO DUTAS',
//         'FILENAME:UIBC_X480_PASSED.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.X480PASS.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//         ENDIF
//**STOP HER FOR NOW  ZL1
//
//********************************************************************