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/DTSUC30C
+++ b/Procs/DTSUC30C
@ -0,0 +1,18 @@
+//****
+//*   DTSUC30C - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM FISC AGNTS
+//*                          (FROM F.A. CART.)
+//****
+//STEP0100 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//STEP0100.INDD01 DD &FAFILE.,
+//         UNIT=CART,
+//         VOL=SER=&TVOLSER.,
+//            DCB=(RECFM=FB,LRECL=100,BLKSIZE=10000),    //* CERIDIAN
+//**       DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
+//**
+//****                            LABEL=(1,SL,EXPDT=98000),
+//****                            LABEL=(2,BLP,EXPDT=98000),
+//         LABEL=&LVLABEL.,
+//         DISP=SHR
+//**