All Z' modified PROD server code merge 09/10/2025

JCL/DTSDX216.jcl

@@ -0,0 +1,30 @@
+//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,
+//*             DISP=(,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(20,10),RLSE),
+//             CODEPAGE=1252,AUTOENCODE=YES, 
+//             DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
+//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
+//********************************************************************