//DTSGSID0 JOB (UI,4300,03410,P),'SEND-ACH-DEBIT-WF',REGION=4000K,
//         USER=#DOADTS,
//         CLASS=A,MSGCLASS=X,
//         NOTIFY=ECNTZL1
/*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
//****
//********************************************************************
//*********************************************************************
//* THIS JOB WILL READ THE FTP OUTPUT LOG FILE TO DETERMINE IF THE FTP
//* TRANSMITION WAS SUCESSFULL IN TRANSFERING THE ACH DEPOSIT FILE TO
//* WELLS FARGO.
//*
//*     THIS JOB WILL ABEND WHEN THE FOLLOWING CONDITIONS OCCUR
//*
//*  1. NO LOG FILE PRESENT FTP JOB FAILED OR DID NOT RUN
//*
//*  2. 226 Closing data connection (network bytes 2257/file NOT PRESENT
//*
//*  3. EZA1617I 2257 bytes transferred  NOT PRESENT
//*
//*  4. network bytes and bytes transferred not equal
//*                                                        12/13/16 zl1
//*******************************************************************
//****
//***    FILES COMING FROM UIBS WILL UPLOAD (FTP) TO MAINFRAME DAILY.
//****
//***    THIS JOB WILL USE FTPS (FTP WITH SSL CERT) TO TRANSMIT FILE.
//****
//**********************************************************************
//*  COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
//**********************************************************************
//*
//******************************************************************
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
//            DISP=(OLD,DELETE,DELETE)
//*-----------------------------------------------------
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//XGSICHRG DD  DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
//      DISP=(,CATLG,DELETE),
//      UNIT=SYSDA,SPACE=(CYL,(10,15),RLSE),
//      DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
//*-----------------------------------------------------
//STEP0100 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/Inbound_uibs                                      
BINary                                                                 
GET DOES_Bencharges.txt +  
DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD (REPLACE
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*                                                           
//**********************************************************************
//*  COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
//**********************************************************************
//*
//STEP0101 EXEC PGM=IDCAMS,COND=(0,LT)
//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=(RECFM=FB,LRECL=200,BLKSIZE=20000)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//***  send email daily charges transmitted to dutas
//**
//FAIL01   IF STEP0100.ABEND THEN
//X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,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:uib daily charges FTP --FAILED -- TO dutas     ',
//         'FILENAME:UIBS CHRG_FAILED.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.X480FAIL.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//         ELSE
/*
//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
//
//********************************************************************