DUTAS re-platformed to Raincode - Initial Source Code

2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
--- a/Procs/EFTXSORT
+++ b/Procs/EFTXSORT
@ -0,0 +1,20 @@
+//****
+//EFTXSORT PROC
+//****                                /*  PRODUCING THE SORTIN FILE
+//****
+//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS
+//             COND=(0,LT),
+//             REGION=0K
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD  DSN=DOESTAX.&MSTNODE..DOESERR,
+//             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=&&SRTRPT,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(8192,(1000,1000),RLSE),
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//SYSIN    DD  DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
+//****