DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSRSESP

@@ -0,0 +1,23 @@
+//****
+//****  PROCESS ERROR REPORT FOR ESSP DATA
+//****
+//****
+//****
+//DTSRSESP PROC RPTNODE=&RPTNODE.,
+//             RPTGEN='(+0)'          /*  ASSUMES USE WITHIN THE JOB
+//****
+//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS
+//             COND=(4,LT),
+//             REGION=0K
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD  DSN=DOESTAX.&LVLNODE..&RPTNODE.&RPTGEN,DISP=SHR
+//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.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR
+//****