DUTAS re-platformed to Raincode - Initial Source Code

Procs/DESWLDDC

@@ -0,0 +1,37 @@
+//****
+//*         COPY UNEDITED WAGE DATA FROM TAPE
+//*         TO DISK FILE TO BE EDITED
+//*
+//*    PARMS NEEDED FOR THIS PROC:
+//*
+//*       LVLNODE=   DEVL/TEST/PROD
+//*       LOGNODE=   LAST NODE IN OUTPUT FILE NAME, CONSISTING
+//*                  OF OPERATOR'S INITIALS PLUS LOG NUMBER
+//*       LOGNO=     6 DIGIT LOG NUMBER ASSIGNED TO TAPE
+//*       LABEL=     TYPE OF LABEL PROCESSING (NL, SL, BLP)
+//*       UNIT=      TYPE OF UNIT (TAPE, CART)
+//*       RECL=      RECORD LENGTH
+//*       BLKIN=     BLOCKSIZE OF THE INPUT TAPE FILE
+//*       BLKOUT=    BLOCKSIZE OF THE OUTPUT DISK FILE
+//*       WAGEIN=    THE NAME OF THE INPUT TAPE, NORMALLY
+//*                  'WAGE.CART'
+//*
+//DESWLDDC PROC
+//*
+//STEP0100 EXEC PGM=IDCAMS,REGION=700K
+//*FILE    DD  DSN=&WAGEIN.,
+//*     PEOPLESOFT BELOW
+//IFILE    DD  DSN=ECNTSUP.DOESTAX.CONV.WAGEDC.Q32009,
+//         UNIT=&UNIT.,
+//         RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKIN.,
+//         DISP=SHR
+//OFILE    DD  DSN=DOESTAX.CONV.&LOGNODE.,
+//         DISP=(NEW,CATLG,DELETE),
+//         SPACE=(CYL,(10,5)),
+//         UNIT=SYSDA,
+//         DCB=(RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKOUT)
+//***
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(WAGECART),DISP=SHR
+//SYSPRINT DD  SYSOUT=(*)
+//SYSUDUMP DD  SYSOUT=(*)
+//***