//DTSBX303 JOB (UI,4300,3400,T),DTSBX303,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)
//**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30               |
//******************************************************************
//****  STOP HERE AS OF 10/3/22  DIFS TAKES OVER FROM SOAR       ZL1
//*
//*TEP0200 EXEC PGM=FTP,COND=(0,LT)
//*YSPRINT DD  SYSOUT=*
//*UTOUT   DD  SYSOUT=*
//*YSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//*YSGET   DD  *,DCB=BLKSIZE=80
//*NPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
//*
//*********************************************************************
//*                                                                |
//* JOB       : SAVE A COPY OF THE FTP REFUND FILE
//*                                                                |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR
//OUTDD01  DD DSN=DOESTAX.PROD.REFUND.X303FTP(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(7500,(10,20),RLSE),
//             DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//*********************************************************************
//******* STOP HERE NEW SERVER JOB WILL PICK UP FILE FOR DIFS  ZL1    |
//*                                                                |
//* JOB       : DELETE THE FTP FILE
//
//*********************************************************************
//*TEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*FUNDEXP DD  DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//*           DISP=(OLD,DELETE,DELETE)
//*
//*********************************************************************
//*                                                                |
//* JOB       : CREATE A NEW FTP FILE
//*                                                                |
//*********************************************************************
//*TEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*YSPRINT DD SYSOUT=*
//*FUNDINP 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)
//*
//*********************************************************************
//*TEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*EUNDEXP DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.TRAN,
//*           DISP=(OLD,DELETE,DELETE)
//*
//******************************************************************