//DTSFTUIX JOB (UI,4300,3400,T),DTSFT303,CLASS=S,MSGCLASS=X,            00000010
//*         TYPRUN=SCAN,
//          NOTIFY=ECNTSUP,
//          REGION=0M
//*                                                                     00001700
//******************************************************************    00001700
//*  COPY REFUND TRANSACTIONS PRODUCTION.                               00001700
//******************************************************************    00001700
//*                                                                     00001700
//   SET LVLNODE='PROD'
//*                                                                     00001700
//******************************************************************    00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0200 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.PROD.APPL.PARMLIB(DTSFTUIX),DISP=SHR
/*
//******************************************************************