DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSFT540.jcl

@@ -0,0 +1,51 @@
+//DTSFT540 JOB (UI,4300,3400,T),PROD.BD540,CLASS=P,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//****     USER=#DOADTS,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+//   SET LVLNODE='PROD'
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//********************************************************************
+//* DO NOT RUN THIS JOB
+//********************************************************************
+//********************************************************************
+//***                              SEND IMT DATA FILE TO SERVER
+//********************************************************************
+//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.&LVLNODE..APPL.PARMLIB(DTSFTE22),
+//             DISP=SHR
+//**
+//********************************************************************
+//***                              SEND WAGE DATA FILE TO SERVER
+//********************************************************************
+//STEP0300 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.&LVLNODE..APPL.PARMLIB(DTSFTE2W),
+//             DISP=SHR
+//
+//********************************************************************
+//***                              SEND ETT DATA FILE TO SERVER
+//********************************************************************
+//STEP0400 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.&LVLNODE..APPL.PARMLIB(DTSFTE2E),
+//             DISP=SHR
+//**
+//