Of course you can use the following regardless (i think) on which version of
MPE/iX you are:

if hpjobtype = "S" then
  setvar __oldmsgfence hpmsgfence
  setvar hpmsgfence 2
  setjcw cierror=0
  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

Regards
Paul Christidis






Add the following lines to your system level LOGON UDC:

    run main.pub.vesoft,mpex;info="FILTER 'SHOWJOB JOB=@S' '!HPJOBNAME'"
>>$null
    if !MPEXPRINTLINESFOUND > 1 then
        echo * * Only 1 logon for the same session user is allowed. * *
        bye
    endif

After you upgrade your system to 6.0 or later, however, you can use this
instead:

    if jobcnt("S@:!hpuser.!hpaccount") > 1 then
        echo * * Only 1 logon for the same session user is allowed. * *
        bye
    endif

HTH,
Rs~

Russ Smith, Systems Consultant
Problem Solved, Vacaville, CA
r s m i t h @ c u - h e l p . c o m
h p 3 k - l @ e - 3 0 0 0 . n e t