//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X,          00000010
//*         TYPRUN=SCAN,
//           USER=#DOADTS,RESTART=STEP0900,
//          NOTIFY=ECNTSUP,
//          REGION=0M
//*
//*      DAILY BATCH CONTROL SUMMARY REPORT RECORDS
//*
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*
//*         RAINCODE TESTED 08/30/25           ZL1   
//*                                                                      00070000
//STEP0200 EXEC DTSBX215
//*   
//*
//*********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*
//**
//STEP0900 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.BX215' + 
ECNTSUP.DOESTAX.PROD.FTP.BX215
put 'ECNTSUP.DOESTAX.PROD.FTP.BX220' +
ECNTSUP.DOESTAX.PROD.FTP.BX220
PUT 'ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT' +
ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*                                                                                                                  00014000
//*****************************************