Announcement

**tomholden** · August 5, 2009, 06:49 AM

Re: *UIM Menus

Originally posted by sushma2007 View Post

How to design IBM Style rolling menus?
Is it possible with UIM.Please Provide me any info abt UIM

Let Me Google That For You

**jamief** · August 5, 2009, 07:07 AM

Re: *UIM Menus

Really never did much UIM except for self testing... Really never found the need.

Anyone else?

jamie

**tomholden** · August 5, 2009, 07:32 AM

Re: *UIM Menus

Originally posted by jamief View Post

Really never did much UIM except for self testing... Really never found the need.

Anyone else?

jamie

i've written some stuff using UIM code for processing spooled files, etc. all of the commands, etc i write use UIM for the help text just like dear ol' IBM. but for simple menus? never. i have a "generic" table driven menu system i wrote so now i just have to add a record for a new option, then grant access to the new option for the individuals who need it. UIM is IMO not the tool for this job.

**littlepd** · August 5, 2009, 09:48 AM

Re: *UIM Menus

Originally posted by jamief View Post

Really never did much UIM except for self testing... Really never found the need.

Anyone else?

jamie

About a dozen years ago I was trying to develop a tool to help developers better control their library list. I wrote some subfile pages using UIM. NOT FUN!!!

**sushma2007** · August 5, 2009, 10:38 PM

Re: *UIM Menus

i want to convert some old Menus to UIM to make it IBM Style Menus. But i m not getting the syntax or other information.
How to code it?

**dhanuxp** · August 5, 2009, 11:57 PM

Re: *UIM Menus

OK men,, here itz ... abit messy... but jz u wanna to copy & past .. isnt it ??

Code:

:PNLGRP.
.*
:COPYR.
� Copyright Your Company Limited 2009.
.*
:VAR  NAME=ZMENU.
.*
.* Define keys for the menu
:KEYL NAME=menukeys
      HELP=key1.
:KEYI KEY=F1
       HELP=helpf1
       ACTION=HELP.
 F1=Help
:KEYI KEY=F3
      HELP=helpf3
      ACTION='EXIT SET'.
F3=Exit
:KEYI KEY=F4
      HELP=helpf4
      ACTION=PROMPT.
F4=Prompt
.*:KEYI KEY=F8
.*      HELP=helpf8
.*      ACTION='CMD WRKSPLF'.
.*F8=Spooled Files
:KEYI KEY=F9
      HELP=helpf9
      ACTION=RETRIEVE.
F9=Retrieve
.*:KEYI KEY=F10
.*      HELP=helpf10
.*      ACTION='CMD WRKSBMJOB'.
.*F10=Submited jobs
.*:KEYI KEY=F11
.*      HELP=helpf11
.*      ACTION='CMD WRKACTJOB'.
.*F11=Active jobs
:KEYI KEY=F12
      HELP=helpf12
      ACTION='CANCEL SET'
      VARUPD=NO.
F12=Cancel
:KEYI KEY=F24
      HELP=helpf24
      ACTION=MOREKEYS
      VARUPD=NO.
F24=More Keys
:KEYI KEY=ENTER
      HELP=enter
      ACTION=ENTER.
:KEYI KEY=HELP
      HELP=help
      ACTION=HELP.
:KEYI KEY=PAGEDOWN
      HELP=pagedown
      ACTION=PAGEDOWN.
:KEYI KEY=PAGEUP
      HELP=pageup
      ACTION=PAGEUP.
:KEYI KEY=PRINT
      HELP=print
      ACTION=PRINT.
:EKEYL.
.*
.* Define menu panel
:PANEL
      NAME=xmenup
      HELP='help/ymenu'
      KEYL=menukeys
      ENTER='MSG CPD9817 QCPFMSG'
      PANELID=ZMENU
      TOPSEP=RULE.
Your Systeme Name Goes Here : New Business
.*
.* Define menu area
:MENU
      DEPTH='*'
      SCROLL=YES
      BOTSEP=RULE.
:TOPINST.
Select one of the following:
.*
.* Specify the action to be taken
.* --- Menu Format --------------
.* Opt 01 - 10 System Processing
.* Opt 11 - 14 More Inquires
.* ------------------------------
:MENUGRP.
System Processing
:MENUI
      OPTION=1
      ACTION='CMD wrksplf'
      HELP='menu/option1'.
Work with Spool Files
:MENUI
      OPTION=2
      ACTION='CMD dltspf'
      HELP='menu/option2'.
Delete Spool files
:MENUI
      OPTION=3
      ACTION='CMD Go Main'
      HELP='menu/option3'.
Go Main Menu
:MENUI
      OPTION=4
      ACTION='CMD MYCMD01/MyLib'
      HELP='menu/option4'.
Process My Command 1
:MENUI
      OPTION=5
      ACTION='CMD MYCMD02/MyLib'
      HELP='menu/option5'.
Process My Command 2
:MENUI
      OPTION=6
      ACTION='CMD MYCMD03/MyLib'
      HELP='menu/option6'.
Process command 3
:MENUI
      OPTION=7
      ACTION='CMD MYCMD04/MyLib'
      HELP='menu/option7'.
Command 04
:MENUI
      OPTION=8
      ACTION='CMD MYCMD05/MyLib'
      HELP='menu/option8'.
Enter Command 05
:MENUI
      OPTION=9
      ACTION='CMD MYCMD06/MyLib'
      HELP='menu/option9'.
Command 06
:MENUI
      OPTION=10
      ACTION='CMD MYCMD07/MyLib'
      HELP='menu/option10'.
Command 04
:EMENUGRP.
:MENUGRP.
System Command 2
:MENUI
      OPTION=11
      ACTION='CMD MYcmd01/MyLib'
      HELP='menu/option11'.
Enquiry 1
:MENUI
      OPTION=12
      ACTION='CMD MYCMD02/MyLib'
      HELP='menu/option12'.
Enquiry 2
:MENUI
      OPTION=13
      ACTION='CMD MYCMD03/MyLib'
      HELP='menu/option13'.
Enquiry 3
:MENUI
      OPTION=14
      ACTION='CMD MYCMD04/MyLib'
      HELP='menu/option14'.
Enquiry 4
:EMENUGRP.
:MENUI
      OPTION=52
      ACTION='CMD MYCMD05/MyLib'
      HELP='menu/option52'.
Enquiry 5
:MENUI
      OPTION=90
      ACTION='CMD SIGNOFF'
      HELP='menu/option90'.
Sign off
:EMENU.
.*
.* Use command line and allow commands & option numbers
:CMDLINE
      SIZE=SHORT.
Selection or command
:EPANEL.
.*
:HELP      NAME='help/ymenu'.
New Business - Help
:P.
This menu provides Processes, Inquires and Reports
:EHELP.
.*
:HELP      NAME=Key1.
Function keys - Help
:XH3. Function keys
:EHELP.
.*
:HELP      NAME=helpf1.
:PARML.
:PT.F1=Help
:PD.
Provides additional information about using the display or a
specific field on the display.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf3.
:PARML.
:PT.F3=Exit
:PD.
Ends the menu and returns to the point of entry.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf4.
:PARML.
:PT.F4=Prompt
:PD.
Provide assisatance in entering or selecting a command.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf8.
:PARML.
:PT.F8=Spooled Files
:PD.
Enables the user to work with spooled files.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf9.
:PARML.
:PT.F9=Retrieve
:PD.
Dispalys the last command you entered on the command line and any parameters
included.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf10.
:PARML.
:PT.F10=Work with submited jobs
:PD.
Enables the user to work with submited jobs.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf11.
:PARML.
:PT.F11=Work with active jobs
:PD.
Enables the user to work with active jobs.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf12.
:PARML.
:PT.F12=Cancel
:PD.
Returns to the previous menu or display.
:EPARML.
:EHELP.
.*
:HELP      NAME=helpf24.
:PARML.
:PT.F24=More Keys
:PD.
Shows additional function keys.
:EPARML.
:EHELP.
.**
:HELP      NAME='menu/option1'.
Entering your System Process
:P.
1. Help
:EHELP.
.**
:HELP      NAME='menu/option2'.
Entering your System Process
:P.
2. Help
:EHELP.
.*
:HELP      NAME='menu/option3'.
Entering your System Process
:P.
3. Help
:EHELP.
.*
:HELP      NAME='menu/option4'.
Processing 1111
:P.
4. Help
:EHELP.
.*
:HELP      NAME='menu/option5'.
Processing 2222
:P.
5. Help
:EHELP.
.*
:HELP      NAME='menu/option6'.
Entering your System Process 333
:P.
6. Help
:EHELP.
.*
:HELP      NAME='menu/option7'.
Entering your System Process
:P.
7. Help
:EHELP.
.*
:HELP      NAME='menu/option8'.
Entering your System Process help
:P.
8. Help
:EHELP.
.*
:HELP      NAME='menu/option9'.
Entering your System Process  help
:P.
9. Help
:EHELP.
.*
:HELP      NAME='menu/option10'.
Entering your System Process
:P.
10. Help
:EHELP.
.*
:HELP      NAME='menu/option11'.
Entering your System Process - HELP
:P.
11. Help
:EHELP.
.*
:HELP      NAME='menu/option12'.
Entering your System Process - HELP
:P.
12. Help
:EHELP.
.*
:HELP      NAME='menu/option13'.
Entering your System Process - HELP
:P.
13. Help
:EHELP.
.*
:HELP      NAME='menu/option14'.
Entering your System Process - HELP
:P.
14. Help
:EHELP.
.*
:HELP      NAME='menu/option15'.
Entering your System Process - HELP
:P.
15. Help
:EHELP.
.*
:HELP      NAME='menu/option16'.
Entering your System Process - HELP
:P.
16. Help
:EHELP.
.*
:HELP      NAME='menu/option17'.
Entering your System Process - HELP
:P.
17. Help
:EHELP.
.*
:HELP      NAME='menu/option18'.
Entering your System Process - HELP
:P.
18. Help
:EHELP.
.*
:HELP      NAME='menu/option19'.
Entering your System Process - HELP
:P.
19. Help
:EHELP.
.*
:HELP      NAME='menu/option20'.
Entering your System Process - HELP
:P.
20. Help
:EHELP.
.*
:HELP      NAME='menu/option21'.
Entering your System Process - HELP
:P.
21. Help
:EHELP.
.*
:HELP      NAME='menu/option22'.
Entering your System Process - HELP
:P.
22. Help
:EHELP.
.*
:HELP      NAME='menu/option23'.
Entering your System Process - HELP
:P.
23. Help
:EHELP.
.*
:HELP      NAME='menu/option24'.
Entering your System Process - HELP
:P.
24. Help
:EHELP.
.*
:HELP      NAME='menu/option25'.
Entering your System Process - HELP
:P.
25. Help
:EHELP.
.*
:HELP      NAME='menu/option26'.
Entering your System Process - HELP
:P.
26. Help
:EHELP.
.*
:HELP      NAME='menu/option27'.
Entering your System Process - HELP
:P.
27. Help
:EHELP.
.*
:HELP      NAME='menu/option36'.
Entering your System Process - HELP
:P.
36. Help
:EHELP.
.*
:HELP      NAME='menu/option37'.
Entering your System Process - HELP
:P.
37. Help
:EHELP.
.*
:HELP      NAME='menu/option38'.
Entering your System Process - HELP
:P.
38. Help
:EHELP.
.*
:HELP      NAME='menu/option39'.
Entering your System Process - HELP
:P.
39. Help
:EHELP.
.*
:HELP      NAME='menu/option40'.
Entering your System Process - HELP
:P.
40. Help
:EHELP.
.*
:HELP      NAME='menu/option41'.
Entering your System Process - HELP
:P.
41. Help
:EHELP.
.*
:HELP      NAME='menu/option43'.
Entering your System Process - HELP
:P.
43. Help
:EHELP.
.*
:HELP      NAME='menu/option44'.
Entering your System Process - HELP
:P.
44. Help
:EHELP.
.*
:HELP      NAME='menu/option45'.
Entering your System Process - HELP
:P.
45. Help
:EHELP.
.*
:HELP      NAME='menu/option46'.
Entering your System Process - HELP
:P.
46. Help
:EHELP.
.*
:HELP      NAME='menu/option49'.
Entering your System Process - HELP
:P.
49. Help
:EHELP.
.*
:HELP      NAME='menu/option50'.
Entering your System Process - HELP
:P.
50. Help
:EHELP.
.*
:HELP      NAME='menu/option51'.
Entering your System Process - HELP
:P.
51. Help
:EHELP.
.*
:HELP      NAME='menu/option52'.
Entering your System Process - HELP
:P.
52. Help
:EHELP.
.*
:HELP      NAME='menu/option90'.
Option 90 - Help
:P.
90. Select this option to signoff the terminal.
:EHELP.
.*
:HELP      NAME=enter.
:PARML.
:PT.Enter
:PD.
Submits information on the display for processing.
:EPARML.
:EHELP.
.*
:HELP      NAME=help.
:PARML.
:PT.Help
:PD.
Provides additional information about using the display.
:EPARML.
:EHELP.
.*
:HELP      NAME=pagedown.
:PARML.
:PT.Page Down
:PD.
Moves forward to show additional information for this display.
:EPARML.
:EHELP.
.*
:HELP      NAME=pageup.
:PARML.
:PT.Page Up
:PD.
Moves backward to show additional information for this display.
:EPARML.
:EHELP.
.*
:HELP      NAME=print.
:PARML.
:PT.Print
:PD.
Print information currently shown in the display.
:EPARML.
:EHELP.
.* End of menu source
:EPNLGRP.

**jamief** · August 6, 2009, 06:20 AM

Re: *UIM Menus

its a work of art

**sushma2007** · August 7, 2009, 12:14 AM

Re: *UIM Menus

Thanks For Your Help
i just like to learn new things so asked for how to write the code for UIM and where as of i m having examples for it but confusion in where to code it cause using CRTMNU *UIM giving error Menu Not Created. i coded in MNUDDS.

**dhanuxp** · August 7, 2009, 03:07 AM

Re: *UIM Menus

1.) Create It as MENU
2.) Itz Normal, We have to find examples

This is the where, Iv started to learn UIM... thanks TOM

Crtmnu - Code400 -The Support Alternative

http://www.code400.com/forum/showthread.php?t=5908&highlight=CrtMnu

subfiles,screens, physical files, logicals, print files and menus

**sushma2007** · August 7, 2009, 03:28 AM

Re: *UIM Menus

I am Creating as
CRTMNU MENU(SUSHMA/MN) TYPE(*UIM) DSPF(SUSHMA/QMNUSRC1) SRCFILE(SUSHMA/QMNUSRC1)

But its giving error Menu Not Created i hav created QMNUSRC1 source file and in that created MN as Member without any type.

Is there is any book or article where i can read the syntax ??

**sushma2007** · August 12, 2009, 10:44 PM

Re: *UIM Menus

Please help me

I m trying to call program in UIM Menu

ACTION='sushma/sample'

Please tell me how to call program in UIM Menus?

Anyone Help Me Please............................................ .....

**dhanuxp** · August 13, 2009, 11:26 PM

Re: *UIM Menus

Hi,,

Code:

ACTION='CMD call yourLIB/yourPGM'

**dhanuxp** · August 14, 2009, 12:07 AM

Re: *UIM Menus

Originally posted by sushma2007 View Post

Is there is any book or article where i can read the syntax ??

Application Display Programming

http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c4157150.pdf

**sushma2007** · August 16, 2009, 10:16 PM

Re: *UIM Menus

Originally posted by dhanuxp View Post

Hi,,

Code:

ACTION='CMD call yourLIB/yourPGM'

Thanks a lot for your help.

Its working....................

Announcement

*UIM Menus

*UIM Menus

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment