Re: UIM Menu CHKPGM Example

El Tue, 29 Nov 2016 15:13:37 -0600
Jon Sinder <thewoodshopguy@xxxxxxxxx> escribió:

Bryan, thanks for the response,

I don't see the exit program that I'm looking for I'm working in UIM
building a new menu Panel. I was looking for an example of the
CHKPGM("*LIBL/program") expression

Thanks

Jon


On Tue, Nov 29, 2016 at 11:19 AM, Bryan Dietz <bdietz400@xxxxxxxxx> wrote:

I found an example in Carsten's utility for Netserver:
http://iprodeveloper.com/print/rpg-programming/apis-example-
server-support-apis-providing-netserver-management-facilities

Looks like that code will get you started.

Bryan

ps. I do not think UIM is not "old school :-)




Jon Sinder wrote on 11/29/2016 11:44 AM:

I’m going old school today

Does anyone have an example an exit program that gets called with the
CHKPGM condition expression in a UIM menu.

I have executed several searches on the web but have been unsuccessful.

Any help would be appreciated

Thanks

Jon

--

This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Very old code. Hope it helps.

QPNLSRC.BUDGET This is the menu: (Only showing the relevant sections)

:PNLGRP ENBGUI=yes.
.* -----------------------------------------------------------------
.* Start of menu source
.* -----------------------------------------------------------------
.*
:COND NAME=admin
EXPR='chkpgm("BUDGETV")'.
...

.* .... This group of options is only visible if the user is an administrator:

:MENUGRP COND=admin.Administration

:MENUI OPTION=71
ACTION='cmd YR10CM'
HELP=genhlp.
Year and master files setup YR10CM
:MENUI OPTION=72
ACTION='cmd SE20CM'
HELP=genhlp.
User security SE20CM
... etc
:EMENUGRP.

.....
:EHELP.
.* -----------------------------------------------------------------
.* End of menu source
.* -----------------------------------------------------------------
:EPNLGRP.

QRPGLESRC.BUDGETV: This is the exit program that will set the condition either true or false. It is only a few lines.

H/TITLE
H DFTNAME(BUDGETV)
H ACTGRP(*CALLER) DFTACTGRP(*NO) BNDDIR('BUDGET')
H ALWNULL(*USRCTL)
* - -
/COPY QPRSRC,SECU
* - -
D USRNAM S 10 INZ(*USER)
* - -
D SLEVEL S 9B 0
D NADA1 S 8
D TYPCAL S 9B 0
D HANDLE S 8
D OBJNAM S 10
D LIBNAM S 10
D OBJTYP S 10
D HLPNAM S 32
D PNLNAM S 10
D CNDNAM S 10
D RTNCOD S 1
* - -
D SDS
D PGMNAM *PROC
* - -
C *ENTRY PLIST
C PARM TYPCAL
C PARM HANDLE
C PARM OBJNAM
C PARM LIBNAM
C PARM OBJTYP
C PARM HLPNAM
C PARM PNLNAM
C PARM CNDNAM
C PARM RTNCOD
* - -
C IF PNLNAM='BUDGET' and
C CNDNAM='ADMIN'
C EVAL RTNCOD=IsAdmin(USRNAM)
C ELSE
C EVAL RTNCOD=*OFF
C END
* - -
C SETON LR

QPRSRC.SECU: The prototype showing that the procedure returns a data type "N"
(like an RPG indicator [*ON or *OFF]).
...
* - - Returns *ON if USRID is an administrator
D IsAdmin PR N
D USRID 10 CONST
* - -
...