DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSUC30T

@@ -0,0 +1,15 @@
+//****
+//*   DTSUC30T - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM FISC AGNTS
+//*                          (FROM F.A. TAPE)
+//****
+//STEP0100 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//STEP0100.INDD01 DD &FAFILE.,
+//         UNIT=DCTAPE,
+//         VOL=SER=&TVOLSER.,
+//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=&LBLKSZ.),
+//         LABEL=(2,BLP,EXPDT=98000),            /* TRW SUPERUSER ONLY
+//**         LABEL=(1,SL,EXPDT=98000),             /* THE REST OF US
+//         DISP=SHR
+//**