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/JCL/DTSDX145.jcl
+++ b/JCL/DTSDX145.jcl
@ -0,0 +1,25 @@
+//DTSDX145 JOB (UI,4300,3400,T),ZZZ,CLASS=A,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTZL1,
+//         MSGCLASS=X,REGION=4M
+//*                                                                     00001700
+//*********************************************************************
+//********************************************************************
+//***  COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING.
+//**                                                   02/09/16 ZL1
+//********************************************************************
+//****************************************************************
+//STEP0010 EXEC PGM=SORT,REGION=1024K
+//SORT.SYSPRINT DD SYSOUT=*
+//SORT.STATOUT  DD SYSOUT=*
+//SORT.SYSDBOUT DD SYSOUT=*
+//SORT.SYSUDUMP DD SYSOUT=*
+//SORT.SYSOUT   DD SYSOUT=*
+//SORTIN   DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
+//SORTOUT  DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SYSIN    DD *
+  SORT FIELDS=(1,11,CH,A)
+  END
+//********************************************************************