Re: usage of indictators with menu options

["Douglas W. Palme" <dpalme@xxxxxxxxxxx>]

Thanks for the links I will definitely be taking a close look at them.

Douglas


On Fri, 18 Nov 2005 14:34:21 -0500, Glenn Gundermann wrote
> Douglas,
> 
> You create source using a language called UIM (User Interface 
> Manager), normally stored in a source file QMNUSRC (or is it QPNLSRC,
>  I can't remember).
> 
> You create the menu using the Create Menu (CRTMNU) command and 
> specify the menu type as *UIM.
> 
>       .
>       .
>       .
> 
>      :cond name=a
>            expr='(var1 = 100 *AND var2 > 0)'
>            expr='*OR *NOT(var3 = 0)'.
>      :cond name=b
>            expr='chkobj("MENU2","*MENU","*READ, *UPD")'.
>      :cond name=c
>            expr='chkusrcls("*PGMR")'.
> 
>       .
>       .
>       .
> 
>      :menui
>             cond=a
>             help='option1/help'
>             action='CMD CALL PGM01'
>             option=1.Run report
>      :menui
>             cond=b
>             help='option2/help'
>             action='MENU MENU2'
>             option=2.Administration
>      :menui
>             cond=c
>             help='option30/help'
>             action='MENU UTIL'
>             option=30.Utilities
> 
> The above snippit can be found at:
> http://publib.boulder.ibm.com/cgi-
> bin/bookmgr/BOOKS/QB3AUK00/APPENDIX1.1.19. 
> 3.1?SHELF=&DT=19970312124213&CASE=
> 
> The complete table of contents is at:
> http://publib.boulder.ibm.com/cgi-
> bin/bookmgr/BOOKS/QB3AUK00/APPENDIX1.1?DT= 19970312124213
> 
> I'm sure there are better manuals out there somewhere.
> 
> I personally have some complete source members but not with me.
> 
> Hope this helps.
> 
> Glenn
> 
> Douglas W. Palme writes:
> 
> > I am not sure what you are referring to when you say that you create IBM-
> > style UIM menus Glen, could you elaborate?
> 
> Douglas W. Palme writes:
> 
> > Glenn,
> > How are you controlling the display with a UIM menu? I did not see any 
> > option that would allow me to nondisplay the item if the authority was 
not 
> > granted.
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
>  mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To 
> subscribe, unsubscribe, or change list options, visit: 
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to 
> review the archives at http://archive.midrange.com/rpg400-l.


If you bought it, it was hauled by a truck - somewhere, sometime.