!***********************************ALOCWAIT************************************
define verb ALOCWAIT
   image SYS$SYSTEM:ALOCWAIT
   parameter P1 , label ALOCWAIT , prompt="Device"
      value (required,list,type=$device)
   parameter P2 , label LOGNAME , prompt="Log name"
      value (list,type=$outlog)
   qualifier NUMBER
       nonnegatable
       value(required,type=$number)
   qualifier GENERIC
   qualifier LOG