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

JCL/ReproVSAM.jcl

@@ -0,0 +1,33 @@
+//IMPMF04   JOB
+ 
+//STEP001  EXEC PGM=IDCAMS
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  *
+  DELETE TMPM023
+  DELETE DOESTAX.PROD.VSAM.BTNO
+  SET MAXCC=0
+//*
+//STEP002  EXEC PGM=IEFBR14
+//SYSPRINT DD SYSOUT=*
+//SYSOUT   DD SYSOUT=*
+//DD1001   DD DSN=TMPM023,
+//            DISP=(NEW,CATLG,CATLG),
+//            DCB=(LRECL=10,RECFM=FB),
+//            PATH=('E:\FLAT_FILES\DOESTAX.PROD.RC.BKP.BTNO',
+//                  COPY)
+//*
+//STEP003  EXEC PGM=IDCAMS
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  *
+  DEFINE    CLUSTER (NAME(DOESTAX.PROD.VSAM.BTNO) INDEXED -
+                    RECORDSIZE (10 10)  -
+                    KEYS (5 0) ) -
+           DATA     (NAME(DOESTAX.PROD.VSAM.BTNO.DAT)) -
+           INDEX    (NAME(DOESTAX.PROD.VSAM.BTNO.IDX))
+//*
+//STEP004  EXEC PGM=IDCAMS
+//SYSPRINT DD   SYSOUT=*
+//SORTIN   DD   DSN=TMPM023,DISP=SHR
+//SORTOUT  DD   DSN=DOESTAX.PROD.VSAM.BTNO,DISP=SHR
+//SYSIN    DD   *
+  REPRO IFILE(SORTIN) OFILE(SORTOUT)