DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSSR001.jcl

@@ -0,0 +1,30 @@
+//DTSSR001 JOB (UI,4300,3400,T),ADDR.RUN,CLASS=P,MSGCLASS=X,            00000010
+//          NOTIFY=ECNTSUP,
+//          USER=#DOADTS
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//**
+//JOBLIB DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR
+//       DD DSN=DOESTAX.PROD.BATCH.LOADLIB,DISP=SHR
+//**                                                                    00001700
+//STEP0100 EXEC PGM=DTSSR001,     /* PRINT EMPLOYERS NAME & ADDRESS
+//             COND=(0,LT),             TELEPHON NO.
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//**
+//DTSFREF  DD  DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//**
+//OUTZ055  DD  DSN=DOESTAX.PROD.UITAX.DHS.EXTRACT(+1),                  00004503
+//             DISP=(NEW,CATLG,DELETE),                                 00004600
+//             LABEL=RETPD=005,
+//             UNIT=CART,                                               00004700
+//****         UNIT=SYSDA,                                              00004700
+//****         SPACE=(CYL,(10,5),RLSE),                                 00004800
+//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=213,BLKSIZE=2130)         00004900
+//****