LOGPROC: Sample procedure

           PROCEDURE TEST
*
*          DSB test logon
*          12/20/87
*
DECLARE &USERID AS STRING(3)
EXTRACT &USERID = USERID
DECLARE &INLIB AS STRING(8)
ASSIGN &INLIB = &USERID(1,*) !! 'LIB'
DECLARE &OUTLIB AS STRING(8)
ASSIGN &OUTLIB = &USERID(1,*) !! 'LIB'
*
SET  INLIB  = &INLIB,  INVOL  = VOLSYS ,
     OUTLIB = &OUTLIB,  OUTVOL = VOLSYS ,
     RUNLIB = USERAIDS ,  RUNVOL = VOLSYS ,
     SPOOLVOL = VOL333 ,
     WORKVOL  = VOL333 ,
     FILECLAS = ' ' ,
     PRNTMODE = h ,
     PRTCLASS = A ,
     FORM#    = 000 ,
     PRINTER  = 000 ,
     LINES    = 055 ,
     PRTFCLAS = #
*
DECLARE &LIBRARY AS STRING(8)
ASSIGN &LIBRARY = &USERID !! 'MENU'
*
RUN MENU IN &LIBRARY ON VOLSYS
*
LOGOFF