Re: ?menu?

[Vernon Hamberg <vhamberg@xxxxxxxxx>]

These are S36 menus? Is there any difference from 400 menus?

I looked at DSPJOB opt 12 (job locks). The current menu has 2 entries, any
others that came before the current one have only 1.

The API is Retrieve Job Locks (QWCRJBLK) and puts the list into a variable.

Don't know if this helps. Hope so.

At 02:16 PM 3/27/02 -0600, you wrote:
>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
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.