DUTAS re-platformed to Raincode - Initial Source Code

JCL/XMITTDC1.jcl

@@ -0,0 +1,55 @@
+//XMITTDC1 JOB  (UI,4300,3400,T),'PRD2TDEC.UIEXTRCT',
+//         MSGCLASS=X,
+//         NOTIFY=ECNTSUP,CLASS=P
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//***      NOTIFY=ECNTSUP
+//****
+//******** this job is no longer needed replaced by job dtsft202   zl1
+//****
+//*    THIS JCL EXTRACTS EMPLOYER NUMBERS FROM THE TAX FILE,
+//*    THIS JOB RUNS WEEKLY, ON MONDAY, IN THE AM.
+//****
+//  SET MSTNODE='PROD'
+//  SET PGMNODE='devl'
+//  SET LVLNODE='PROD'
+//  SET  UINODE='prod'
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//STEP0100 EXEC  PGM=TDECTAX,REGION=1024K
+//SYSCOUNT DD  SYSOUT=*
+//SYSPRINT DD  SYSOUT=*
+//SYSDBOUT DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSUDUMP DD  SYSOUT=*
+//SYSOUT   DD  SYSOUT=*
+//*
+//DTSIMSTR INCLUDE MEMBER=DTSIMSTR
+//*
+//OUTFILE  DD  DSN=DOESTAX.CONV.TDECEXT,
+//***             DISP=(NEW,CATLG,DELETE),  /*1ST TIME ONLY.
+//             DISP=SHR,
+//             UNIT=SYSDA,SPACE=(TRK,(05,01)),
+//             DCB=(RECFM=FB,LRECL=06,BLKSIZE=3000)
+//****
+//***************************************************************
+//** 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
+//INPUT    DD  *
+10.82.193.144
+tdecftp
+Cf65ou*13!c
+pwd
+ASCII
+PUT 'DOESTAX.CONV.TDECEXT' TDEC.TAXFILE
+QUIT
+/*
+//****