//DTSFT305 JOB (UI,4300,3400,T),FT305,CLASS=A,MSGCLASS=X,               00000010
//       NOTIFY=ECNTSUP,
//       USER=#DTSDOA,
//****   TYPRUN=SCAN,
//       REGION=0M
//******************************************************************
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
// SET LHOLD='YES'
//******************************************************************
//*                                                                |
//* JOB       : GET REFUND TRANS FROM SOAR ON ODC2
//*                                                                |
//******************************************************************
//***
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//***
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//STEP0400 EXEC PGM=FTP
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT305),DISP=SHR
/*