Re: Use data area in UIM menu?

Robin:

Very creative solution. Demonstrates some that creativity still has a place in 
programming.

Tom Liotta

On Mon, 04 March 2002, "Robin Sapiro \(Rogers\)" wrote:

> UIM Menu DEPTMENUX must already exist.
>
> Compile the following CL program.
>
>              PGM        PARM(&MENUNAME &MENULIB &ACTION)
>
>              DCL        VAR(&THISMENU) TYPE(*CHAR) LEN(10) +
>                           VALUE(DEPTMENU)
>              DCL        VAR(&MENUNAME) TYPE(*CHAR) LEN(10)
>              DCL        VAR(&MENULIB) TYPE(*CHAR) LEN(10)
>              DCL        VAR(&ACTION) TYPE(*CHAR) LEN(2)
>              DCL        VAR(&DEPTMENU) TYPE(*CHAR) LEN(10)
>
>              RTVDTAARA  DTAARA(DEPTMENU) RTNVAR(&DEPTMENU)
>
>              IF         COND(&MENUNAME = &THISMENU) THEN(DO)
>              CHGVAR     VAR(&THISMENU) VALUE(&THISMENU *TCAT 'X')
>              RTVOBJD    OBJ(&THISMENU) OBJTYPE(*MENU) RTNLIB(&MENULIB)
>              CRTDUPOBJ  OBJ(&THISMENU) FROMLIB(&MENULIB) +
>                           OBJTYPE(*MENU) TOLIB(QTEMP) NEWOBJ(&DEPTMENU)
>              MONMSG     MSGID(CPF0000)
>              GO         MENU(QTEMP/&DEPTNAME)
>              CHGVAR     VAR(&ACTION) VALUE(X'FFFF')
>              ENDDO
>              ENDPGM
>
> Use the CRTMNU command to create a menu DEPTMENU of type *PGM from this
> program. Type GO DEPTMENU on the command line. The menu name (department
> name) will show in the top left corner of the UIM menu. The variable &ZMENU
> will be available in the called UIM menu with the current department name as
> the value for &ZMENU to pass as a parameter to any called programs if
> required.

--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788
Fax  253-872-7904
http://www.400Security.com


___________________________________________________
The ALL NEW CS2000 from CompuServe
 Better!  Faster! More Powerful!
 250 FREE hours! Sign-on Now!
 http://www.compuserve.com/trycsrv/cs2000/webmail/