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:
"VANCE,JEFF (HP-Cupertino,ex1)" <[log in to unmask]>
Reply To:
VANCE,JEFF (HP-Cupertino,ex1)
Date:
Thu, 3 May 2001 10:48:59 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines)
Hi Rich,

> 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
...
> 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.

I wrote a presentation on CI programming that can be viewed on Jazz at:
http://jazz.external.hp.com/papers/SolSymposium_01/CIprogramming/index.htm
(watch for line wrap).

And here is a code fragment that may help get you started:

LOGONUDC
OPTION LOGON, NOBREAK
# This UDC is the system logon UDC.  It displays a menu of choices,
# execute the user's choice and reprompt until the user selects 'exit'
#
# what ever initializing you need to do here...
#
# Display the menu
echo
echo  (A) MANMAN
echo  (B) QUIZ
echo  (C) DOWNLOAD
echo  (E) exit
echo
# prompt / read loop
while setvar(reply, ups(input("Please enter one of the letters above: ")))
<> "E" do
   if reply = "A" then
      # execute MANMAN...
   elseif reply = "B" then
      # execute QUIZ...
   elseif reply = "C" then
      # execute DOWNLOAD...
   else
      echo Invalid reply "!reply", expected "A", "B", "C" or "E"
   endif
endwhile
...


Hope this helps,
 Jeff Vance, CSY

p.s. this is written off the top of my head with no testing at all.

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

ATOM RSS1 RSS2