|
I will give this a look. What an interesting way to view the problem! Thanks, Loyd -----Original Message----- From: Robin Sapiro (Rogers) [mailto:robin.sapiro@rogers.com] Sent: Monday, March 04, 2002 9:46 PM To: midrange-l@midrange.com Subject: Re: Use data area in UIM menu? Loyd, The following may meet your requirements: 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.