Re: ?menu?

Vernon:

We are retrieving the menu name & placing it the lda. We then through allow
users to use function keys to go back & forth between programs based on what
menu they came from. The menu name will be checked in the proc, in the
program or both.


Here is a small sample.
// LOCAL OFFSET-167,DATA-'?MENU?'
*
// LOAD CON140
// FILE NAME-C3LGCL2,DISP-SHR
// FILE NAME-C3PARCOM,DISP-SHR
// FILE NAME-C1COMP,DISP-SHR
// FILE NAME-E1LGCL1,DISP-SHR
// RUN
*
*
// IF ?L'167,4'?/CONQ   IF ?L'130,6'?/CPR040  GOTO OK
// IF ?L'167,4'?/CONQ   IF ?L'130,6'?/CPR045  GOTO OK
// IF ?L'167,4'?/CONQ   IF ?L'130,6'?/CON150  GOTO OK
// IF ?L'167,4'?/CONQ   IF ?L'130,6'?/CON170  GOTO OK
 // IF ?L'167,4'?/CONQ   IF ?L'130,6'?/CPR500  GOTO OK
// IF ?L'167,4'?/CONQ   GOTO ERROR
*
// IF ?L'167,6'?/IEZCC1   IFF ?L'130,6'?/  GOTO ERROR
*
// IF ?L'167,5'?/YARDS    IF ?L'130,6'?/COE020   GOTO ERROR
// IF ?L'167,6'?/SLSCC2   IF ?L'130,6'?/COE020   GOTO ERROR
// IF ?L'167,6'?/SLSCC4   IF ?L'130,6'?/COE020   GOTO ERROR
*
// TAG OK
*
// IFF ?1F'?L'130,6'?'?/  RESET ?1?
*
// GOTO END
*
// TAG ERROR
*
*
// LOCAL OFFSET-1,BLANK-*ALL
UCANCEL            * CANCEL THE PROGRAM & RELEASE THE TERMINAL.
*
// TAG END

If the user from the CONQ menu tries to "hot key" into any program other
than the 5 listed they are thrown out of the program.

The user from the IEZCC1 can't hot key at all.

Users from YARDS, SLSCC2 & SLSCC4 menus can't hot key into COE020.

Sorry this is so long.

Lois