# onelogon.xeq - Paul H. Christidis
#
# when used within an 'option logon' udc, this routine will
# prevent more than one logon per user/account combination.

if hpjobtype = "S" then
  setvar __oldmsgfence hpmsgfence
  setvar hpmsgfence 2
  tell !hpjobname,!hpuser.!hpaccount Someone is using your signon.
  if cierror <> 1620  then
    echo * Duplicate logons are not allowed..
    bye
  endif
  setvar hpmsgfence __oldmsgfence
  deletevar __oldmsgfence
endif