topic Re: Menu script in Operating System - OpenVMS

Menu script

Taulant Shamo — Mon, 27 Sep 2004 15:34:08 GMT

Is posible in OVMS to open have a script as menu. I mean to create one script which can ask to enter choice one for x reason choice y for log choice z for something else. See the file attached:

Re: Menu script

John Gillings — Mon, 27 Sep 2004 16:48:25 GMT

Taulant,

Certainly, it's just a matter of writing a program in your favourite language. You'd need to give more detail on exactly what you're trying to achieve to give a more detailed answer.

Is you attachment the interface you want to implement or just an example?

Re: Menu script

Bojan Nemec — Mon, 27 Sep 2004 17:07:12 GMT

Taulant,

Of course you can write a command procedure (script) which acts as a menu.
Use WRITE SYS$OUTPUT to write the contents of the menu to the termianl. Then use:
$ READ SYS$COMMAND CHOICE /PROMPT="String" /END=endlabel

to read the input. String will be the prompt for reading (in yours example " Enter option (1,2,3...) or ?: "). The end label is a DCL label to which program will jump when the user press Z.
You have the user choice in the symbol CHOICE. Now you must write a series of IFs which test the choice. Example:
$START_MENU:
$ WRITE SYS$OUTPUT -
"SHORT MESSAGE TERMINAL - ALBANIA (NEW S)"
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT -
" 1) Submit Message 2) Status Report 3) Options"

etc...
$ READ SYS$COMMAND CHOICE -
/PROMPT="Enter option (1,2,3...) or ?:"/END=START_MENU
$ IF CHOICE.EQS."1" THEN GOTO SUBMIT_MESSAGE
$ IF CHOICE.EQS."2" THEN GOTO STATUS_REPORT
and so on. At end maybe:
$ WRITE SYS$OUTPUT "Bad option, please reenter"
$ GOTO START_MENU

The label is before displaying the whole menu.

$SUBMIT_MESSAGE:
$ READ SYS$COMMAND NUMBER/PROMPT="Enter mobile number: "/END=START_MENU

Now you have the number in the NUMBER symbol. If needed do some testing and call the program to submit the message. At end you add the line:
$ GOTO START_MENU

Write labels, reads and other commands for each option.

Bojan

Re: Menu script

Taulant Shamo — Tue, 28 Sep 2004 00:37:56 GMT

Attached I put another file a bit more specific.

Re: Menu script

Ian Miller. — Tue, 28 Sep 2004 03:34:01 GMT

RE your menu option 2 (to filter only the last 4 lines at the end of log)

To show the last four lines of a text file

$ TYPE/TAIL=4 filename.log

If you need to display lines containing certain strings only then the SEARCH command (possibly combined with PIPE may do what you want. There are utilities to do more complex searches available such as FIND and ports of the unix grep.

Re: Menu script

Karl Rohwedder — Tue, 28 Sep 2004 03:50:28 GMT

There are several MENU packages available to assist in creating such menu, e.g.
-ZMENU, see http://vms.process.com/scripts/fileserv/fileserv.com?ZMENU

- MNEUFINDER, see the Freeware archives (this one only is free for VAX)

Re: Menu script

Daniel Fernandez Illan — Thu, 30 Sep 2004 10:37:42 GMT

Hi.

In sys$examples exits a command procedure to execute a manager's menu

MGRMENU.COM

Godd luck.

Re: Menu script

Antoniov. — Fri, 01 Oct 2004 04:57:16 GMT

Hi,
I wrote a little menu manager with semi-graphical rappresentation.
You write a text file and menu execute all choice.
Written in DCL is integrated in my procedure. If you are interesting into it I could extract the needed files into ZIPped attachment; avaiable on monday or tuesday.

Antonio Vigliotti