Initial commit of DUTAS source code

Procs/DTSRS459

@@ -0,0 +1,19 @@
+//****
+//DTSRS459 PROC
+//****
+//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT BE459 CLEAN FILE
+//             COND=(0,LT),
+//             REGION=0K
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD  DSN=&&BE459,DISP=(OLD,DELETE,DELETE)
+//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00005199
+//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00005299
+//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00005399
+//SORTOUT  DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,
+//             DISP=(OLD,KEEP,KEEP),
+//*            DISP=(,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(20,10),RLSE),
+//             DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSR459),DISP=SHR
+//****