//DTSRQ540 JOB (UI,4300,3400,T),PROD.BD540,CLASS=P,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//****     USER=#DOADTS,
//****     RESTART=STEP0200,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
//   SET MSTNODE='PROD'
//   SET LVLNODE='PROD'
//  SET LVLMFILE='PROD'
//   SET LDEST=U@PRT65
//   SET LHOLD='NO'
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**                                 ES202 EXTRACT FOR LMI
//**                                 NO BKP NEEDED FOR THIS RUN
//**                                 ES202 EXTRACT FOR LMI
//**                                 NO BKP NEEDED FOR THIS RUN
//**  SYSIN CARD CHANGE QTR AND USE I FOR IST RUN AND R FOR RERUN
//STEP0100 EXEC DTSRQ540
//STEP0100.EXTPARM DD *
YRQ,244,R
//*
//**                                 COPY IMT FILE TO GDG
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=DOESTAX.&LVLNODE..BD540.FTP.ES202IMT,DISP=SHR
//INDD02   DD DSN=DOESTAX.&LVLNODE..BD540.ES202IMT(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(27280,(2000,1000),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=1364,BLKSIZE=27280)
//SYSIN    DD *
/   REPRO INFILE(INDD01) OUTFILE(INDD02)
//*
//*
//*                                SEND IMT DATA FILE TO SERVER
//********************************************************************
//STEP0300 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(DTSFTE22),
//             DISP=SHR
//**
//***                              SEND ETT DATA FILE TO SERVER
//********************************************************************
//STEP0300 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(DTSFTE2W),
//             DISP=SHR
//
//********************************************************************
//***                             SEND WAGE DATA FILE TO SERVER
//STEP0400 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(DTSFTE2E),
//             DISP=SHR
//**
//