HP3000-L Archives

May 2001, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Robert Browett <[log in to unmask]>
Reply To:
Robert Browett <[log in to unmask]>
Date:
Thu, 3 May 2001 06:57:48 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (82 lines)
Rich,

  Here's some of the logon script we use, perhaps it
might be some good...

:print check.uti.sys
CHECK
OPTION LOGON
OPTION NOLIST
SETJCW VSETNEXTCENTURY 2
IF HPJOBTYPE = "S" THEN
CONTINUE
LISTF LOCKOUT.PUB.SYS
  IF CIERROR <> 907 THEN
     IF HPACCOUNT = "EBM" AND HPUSER <> "MGR" THEN
       ECHO
       ECHO SORRY!
       ECHO You cannot logon to EBM at the momment
       ECHO
       ECHO Please contact CSD for information
       ECHO
       BYE
     ENDIF
     IF HPACCOUNT = "EBM" AND HPUSER = "MGR" THEN
       ECHO The lockout file is on the system.  You
can logon
       ECHO but I *will not* let the standard users
on!
       ECHO
       ECHO Please contact CSD for information
       ECHO
(24/27) Continue?
     ENDIF
  ENDIF
ENDIF
**
Best Regards

Bob Browett
HP3000 Systems Manager, Europe

--- Rich Farrar <[log in to unmask]> wrote:
> Hi,
> I'm trying to set up a simple menu so users can
> choose after their hello
> logon between entering our manufacturing module,
> running a QUIZ report, or
> downloading a file. Basically a simple A) MANMAN B)
> QUIZ C)DOWNLOAD choice,
> I don't think this should be too difficult to put in
> an option logon udc, my
> problem is I have little experience with MPE
> scripting. Can anyone point me
> to some snippets of script to get me started on
> this? Any help greatly
> appreciated. At the moment we are running V6.0.
>
> --Rich
>
> * To join/leave the list, search archives, change
> list settings, *
> * etc., please visit
> http://raven.utc.edu/archives/hp3000-l.html *


=====
Best Regards

Bob
[log in to unmask]
(tel: 07768 224038)

"Make it so"

__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2