//DTSFT303 JOB (UI,4300,3400,T),DTSFT303,CLASS=S,MSGCLASS=X,            00000010
//*         TYPRUN=SCAN,
//          USER=#DOADTS,
//          NOTIFY=ECNTSUP,
//          REGION=0M
//*                                                                     00001700
//******************************************************************    00001700
//*  COPY REFUND TRANSACTIONS PRODUCTION.                               00001700
//******************************************************************    00001700
//*                                                                     00001700
//   SET LVLNODE='PROD'
//*                                                                     00001700
//******************************************************************    00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//*********************************************************************
//STEP0100 EXEC PGM=DTSBU192,           CHECK FOR EMPTY REFUND FILE
//             COND=(0,LT)
//RFUNDINP DD  DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//             DISP=(OLD,KEEP,KEEP),
//*            DISP=(,CATLG,DELETE),
//             SPACE=(7500,(10,20),RLSE),
//             DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//*
//******************************************************************
//*                                                                |
//* JOB       : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
//*                                                                |
//******************************************************************
//***
//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(DTSFT303),DISP=SHR
/*
//******************************************************************
//*                                                                |
//* BACKUP    : MAKE A BACKUP COPY OF REFUND TRANS FROM DUTAS
//*                                                                |
//******************************************************************
//STEP0300 EXEC PGM=IDCAMS,
//             COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01   DD  DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR
//INDD02   DD  DSN=DOESTAX.PROD.FTP.REFUND.X303(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(7500,(10,20),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=750,BLKSIZE=7500)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(INDD02)
/*
//