DUTAS re-platformed to Raincode - Initial Source Code

Procs/PRUX420Q

@@ -0,0 +1,31 @@
+//PRUX420Q PROC                                                         00010001
+//*
+//*****************************************************************
+//*****   EDIT ICESA 276 BYTE WAGE DATA AND BUILD W4          *****
+//*****   TRANSACTIONS                                        *****
+//*****************************************************************
+//*
+//STEP0100  EXEC PGM=BCP0430H,PARM='&LOGNO.&ZEROEMP.'                   00080006
+//ICESA    DD  DSN=DOESTAX.CONV.&LOGNODE.,
+//         DISP=SHR
+//*
+//W4FILE  DD DSN=DOESTAX.CONV.&W4FILE,
+//           DISP=(MOD,KEEP,KEEP),
+//           UNIT=SYSDA,
+//           SPACE=(CYL,(5,5)),
+//           DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
+//*
+//DTSFVRO1 DD  DSN=DOESTAX.CONV.&EMFILE,
+//             DISP=(MOD,KEEP,KEEP),
+//             UNIT=SYSDA,
+//             SPACE=(8192,(1000,1000),RLSE),
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//PRINT    DD  SYSOUT=(*)
+//LISTOUT  DD  SYSOUT=(*)
+//SYSABOUT DD  SYSOUT=(*)
+//SYSPRINT DD  SYSOUT=(*)
+//SYSUDUMP DD SYSOUT=*
+//SYSOUT   DD SYSOUT=*
+//*