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/doestax.prod.appl.parmlib/DTSDDMSJ
+++ b/doestax.prod.appl.parmlib/DTSDDMSJ
@ -0,0 +1,23 @@
+    DEL-
+        DOESTAX.PROD.VSAM.MSTJ-
+        NOERASE
+
+    IF LASTCC=8 THEN-
+        SET MAXCC=0
+
+    DEFINE-
+      CLUSTER(-
+        NAME (DOESTAX.PROD.VSAM.MSTJ)-
+        KEYS (16,0)-
+        RECSZ (64,1536)-
+        CYL (100,50) -
+        FREESPACE (15 10)-
+        SHR (2,3)-
+        SPEED-
+        VOL (DES39Q,DES39M)-
+        UNQ)-
+      DATA -
+        (NAME(DOESTAX.PROD.VSAM.MSTJ.DATA))-
+      INDEX -
+        (NAME(DOESTAX.PROD.VSAM.MSTJ.INDEX)-
+         CISZ(1024))