DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ540.jcl

@@ -0,0 +1,71 @@
+//DTSRQ540 JOB (UI,4300,3400,T),PROD.BD540,CLASS=P,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//****     USER=#DOADTS,
+//****     RESTART=STEP0200,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+//   SET MSTNODE='PROD'
+//   SET LVLNODE='PROD'
+//  SET LVLMFILE='PROD'
+//   SET LDEST=U@PRT65
+//   SET LHOLD='NO'
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**                                 ES202 EXTRACT FOR LMI
+//**                                 NO BKP NEEDED FOR THIS RUN
+//**                                 ES202 EXTRACT FOR LMI
+//**                                 NO BKP NEEDED FOR THIS RUN
+//**  SYSIN CARD CHANGE QTR AND USE I FOR IST RUN AND R FOR RERUN
+//STEP0100 EXEC DTSRQ540
+//STEP0100.EXTPARM DD *
+YRQ,244,R
+//*
+//**                                 COPY IMT FILE TO GDG
+//STEP0200 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=DOESTAX.&LVLNODE..BD540.FTP.ES202IMT,DISP=SHR
+//INDD02   DD DSN=DOESTAX.&LVLNODE..BD540.ES202IMT(+1),
+//             DISP=(,CATLG,DELETE),
+//             SPACE=(27280,(2000,1000),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=1364,BLKSIZE=27280)
+//SYSIN    DD *
+/   REPRO INFILE(INDD01) OUTFILE(INDD02)
+//*
+//*
+//*                                SEND IMT 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(DTSFTE22),
+//             DISP=SHR
+//**
+//***                              SEND ETT 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 WAGE 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
+//**
+//