DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSBX461.jcl

@@ -0,0 +1,59 @@
+//DTSBX461 JOB (UI,4300,3400,T),FPT-GET-OTRDATA,CLASS=S,
+//         MSGCLASS=X,
+//***      USER=#DOADTS,
+//         NOTIFY=ECNTSUP,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//*********************************************************************
+//** GET OTR FEIN DATA FILE EACH QUARTER AND CREATE A CD FOR VOS
+//*               BOBBY HAWKINS                                         00001700
+//** FTP JCL CANNOT HAVE LINE NUMBER ON COLS 72 80
+//** TO TURN OFF LINE NUMBER TYPE "NONUM"
+//**  FTP COMMANDS ARE CASE SENSATIVE
+//*********************************************************************
+//*                                                                     00001700
+//FTPXFER  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.27.13.1
+FTDEOTR2
+DOES2OTR
+GET 'ITS.PROD.SEQ.ITS560R.BF2Q1555' 'DOESTAX.CONV.OTR.EMPDATA' (REP
+QUIT
+/*
+//STEP0100 EXEC PGM=DTX00001,     OTR FILE REFORMAT
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//RPTX0001 DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//OTRINFLE DD  DSN=DOESTAX.CONV.OTR.EMPDATA,DISP=SHR
+//*
+//OTROUTFL DD  DSN=DOESTAX.CONV.OTR.EMPDATA.REFORMAT,
+//*            DISP=(NEW,CATLG,DELETE),
+//             DISP=(OLD,KEEP,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(5600,(1000,1000),RLSE),
+//             DCB=(RECFM=FB,LRECL=191,BLKSIZE=19100)
+//*
+//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
+//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
+//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
+//
+//***
+//STEP0300 EXEC PGM=FTP       SEND DATA TO SERVER
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFTEIN),DISP=SHR
+/*
+//