DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSRS602

@@ -0,0 +1,18 @@
+//****
+//DTSRS602 PROC
+//****
+//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS
+//             COND=(0,LT),
+//             REGION=0K
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=(OLD,KEEP,KEEP)
+//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=&&SRTRPT,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(8192,(1000,1000),RLSE),
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
+//****