DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSFT202.jcl

@@ -0,0 +1,29 @@
+//DTSFT202 JOB  (UI,4300,3400,T),'PRD2TDEC.UIEXTRCT',
+//         MSGCLASS=X,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTSUP,CLASS=P
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//*    THIS job ftp server data to tdec an a daily basis,
+//****
+//  SET MSTNODE='PROD'
+//  SET LVLNODE='PROD'
+//  SET  UINODE='PROD'
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//***************************************************************
+//** FTP JCL CANNOT HAVE LINE NUMBER ON COLS 72 80
+//** TO TURN OFF LINE NUMBER TYPE "NONUM"
+//** FTP COMMANDS MUST be in lower case
+//***************************************************************
+//STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//**PUT    DD  DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
+//INPUT    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
+/*
+//****