//****
//*         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
//*       VOLSER=    6 VOL SER   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'
//*
//DESWLOAD PROC
//*
//STEP0100 EXEC PGM=IDCAMS,REGION=700K
//IFILE    DD  DSN=&WAGEIN.,
//         VOL=SER=&VOLSER.,              //**FOR CART
//         LABEL=(&LABEL.,,,EXPDT=98000),        //**  ONLY
//         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=(*)
//***