DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSFT305.jcl

@@ -0,0 +1,26 @@
+//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..PROCLIB
+//***
+//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
+/*