Re: ?menu?

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Are you actually replacing the OCL with CL?   Or are you just changing
the menus?

Maybe a quick-fix would be to pass the menu name as a parameter?  (You'll
have to excuse me, my OCL is a little rusty)

On the menu, make the call look like:

MYPROC MYMENU

And in the proc do:

// LOCAL OFFSET-167,DATA-'?1?'

Or if you're using CL:

CALL MYCLPGM PARM('MYMENU')

And:

PGM        PARM(&MENU)

          DCL VAR(&MENU) TYPE(*CHAR) LEN(10)

          CHGDTAARA DTAARA(*LDA (167 10)) VALUE(&MENU)

... other stuff ...

ENDPGM


In the long-term, I'd change this to not base things on the menu names,
but use something else, so you could put these programs on any menu
without having the menu name hardcoded into them.


On Wed, 27 Mar 2002, Lois Krake 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
>