//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X,          00000010
//*         TYPRUN=SCAN,
//           USER=#DOADTS,
//          NOTIFY=ECNTSUP,
//          REGION=0M
//*
//*      DAILY BATCH CONTROL SUMMARY REPORT RECORDS
//*
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*
//*                                                                     00070000
//STEP0200 EXEC DTSBX215
//*                                                                     00014000
//*****************************************
//STEP0210 EXEC PGM=FTP,
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
//