DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSUD991

@@ -0,0 +1,19 @@
+//*****
+//*        EXTRACT MASTER FILE RECORDS FROM VSAM MASTER TO A FLAT FILE
+//*****
+//DTSUD991 PROC
+//****
+//STEP0100 EXEC PGM=DTSBD991,     EXTRACT SPECIFIED EMPLOYERS
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFMSTO DD  DSN=&&EXTRACT,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(32760,(10000,10000),RLSE),
+//             DCB=(RECFM=VB,LRECL=4096,BLKSIZE=32760)
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSPR991),DISP=SHR
+//****