Don't forget to include 'option nobreak' otherwise there's a loop hole!

"Eric H. Sand" wrote:

> Hi Tom,
>     Below is a versy simple CI script I put together demonstrating how a
> unique user may be prevented from signing on twice. This can be placed in a
> UDC or in a group in the name resolution path.
>
> ------------------------------------------------------------
> anyparm ARG=!hpjobname,!hpuser.!hpaccount
> setvar cnt 0
> if lft(hpstdin,2)="$S"
>    showjob > stdlist
>    whoami !ARG < stdlist
>    return
> endif
> setvar n finfo(hpstdin,"eof")
> setvar num_user 0
> while setvar (n,n-1) > 0
>    if lft(setvar(buf,input()),1)='#'
>       if setvar (pos, pos(ups("!arg"),buf)) > 0
>          setvar num_user num_user + 1
>       endif
>    endif
> endwhile
> if num_user > 1
>    echo !hpjobname,!hpuser.!hpaccount is already logged on...
>    pause 5
>    bye
> else
>    echo Welcome to your HPe3000....
> endif
>
> ------------------------------------------------------------
>
>                          Eric Sand
>                          [log in to unmask]

--
Larry Barnes
Director of I.T.
Mitek Corp.
602-438-4545 x1366
Phoenix, AZ 85040

Check Us Out !
http://www.mitekcorp.com