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/DTSUC30X
+++ b/Procs/DTSUC30X
@ -0,0 +1,13 @@
+//****
+//*   DTSUC30X - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM SPECIAL CASE
+//*                           (SPEC BECAUSE OF DSN/LRECL!)
+//****
+//STEP0100 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//STEP0100.INDD01 DD &FAFILE.,
+//         UNIT=CART,
+//         VOL=SER=&TVOLSER.,
+//         LABEL=&LVLABEL.,
+//         DISP=SHR
+//**