UIM User Menu

UIM menu without command line for users.

What is UIM

User Interface Manager (UIM) describes User Interface elements and interactive characters using a tag-based language, the UIM panel group definition language. Sources written in this tag-based language can then be compiled into panel group objects (*PNLGRP) or menu objects (*MENU) by using CL command Create Panel Group (CRTPNLGRP) or Create Menu (CRTMNU).

This is a fairly generic UIM user menu. Typically user-oriented UIM menus are only given an option field, and not a command line. Menus like this one may have a test of the user class included as part of the menu (CHKUSRCLS) as part of a security element. 

.*******************************************************************
.*
.*  PANEL NAME:   TEMPMENU
.*
.*  SOURCE FILE:  QMNUSRC
.*
.*  FUNCTION:     SOURCE FOR TEMPORARY MENU DISPLAY
.*
.*******************************************************************
.*******************************************************************
:PNLGRP   SCHIDX=QHSS1
          DFTMSGF=MNUMSGF
          SUBMSGF=MNUMSGF.
.*
.* -----------------------------------------------------------------
.* COPYRIGHT STATEMENT APPEARS WHEN THE MENU IS INITIALLY DISPLAYED.
.* -----------------------------------------------------------------
:COPYR.
(C) iSoftwerks, 2012
.*
.* -----------------------------------------------------------------
.* UIM Z-VARIABLE TO BE USED AS THE PANEL IDENTIFIER
.* -----------------------------------------------------------------
:VAR      NAME=ZMENU.
.*
.* -----------------------------------------------------------------
.* DEFINE CONDITIONS TO BE USED FOR OPTIONS OR FUNCTION KEYS
.* -----------------------------------------------------------------
:COND NAME=SECURITY          EXPR='CHKUSRCLS("*PGMR")'.
.*
.* -----------------------------------------------------------------
.* DEFINE KEYS FOR THE MENU
.* -----------------------------------------------------------------
:KEYL    NAME=MENUKEYS
          HELP=KEYL.
:KEYI     KEY=F1
          HELP=HELPF1
          ACTION=HELP.
F1=Help
:KEYI     KEY=F3
          HELP=EXIT
          ACTION='EXIT SET'
          VARUPD=NO.
F3=Exit
:KEYI     KEY=F4
          HELP=PROMPT
          ACTION=PROMPT.
F4=Prompt
:KEYI     KEY=F6
          HELP=PDM
          ACTION='CMD STRPDM'.
F6=Start PDM
:KEYI     KEY=F7
          HELP=LMI
          ACTION='CMD STRLMI'.
F7=Lifecycle Manager
:KEYI     KEY=F8
          HELP=SQL
          ACTION='CMD STRSQL'.
F8=Start SQL
:KEYI     KEY=F9
          HELP=RETRIEVE
          ACTION=RETRIEVE.
F9=Retrieve
:KEYI     KEY=F12
          HELP=CANCEL
          ACTION='CANCEL SET'
          VARUPD=NO.
F12=Cancel
:KEYI     KEY=F21
          COND=SECURITY
          HELP=COMMANDS
          ACTION=CMDLINE.
F21=Command Line
:KEYI     KEY=F24
          HELP=MOREKEYS
          ACTION=MOREKEYS.
F24=More keys
:KEYI     KEY=ENTER
          HELP=enter
          ACTION=ENTER.
:KEYI     KEY=PAGEDOWN
          HELP=PAGEDOWN
          ACTION=PAGEDOWN.
:KEYI     KEY=PAGEUP
          HELP=PAGEUP
          ACTION=PAGEUP.
:EKEYL.
.*
.* -----------------------------------------------------------------
.* DEFINE MENU PANEL
.* -----------------------------------------------------------------
:PANEL    NAME=GCCSMENU
   HELP='MENU/HELP'
   KEYL=MENUKEYS
   ENTER='MSG CPD9817 QCPFMSG'
   PANELID=ZMENU
   TOPSEP=SYSNAM.
Consolidated Menus
.*
:MENU     DEPTH='*'
   SCROLL=YES
   BOTSEP=SPACE.
:TOPINST.Select one of the following:
.*
.* -------------------------------------
.* Define menu items and actions
.* -------------------------------------
.*
:MENUI    OPTION=1
   ACTION='CMD CALL GCCS00'
   HELP='MENU/OPTION1'.
Main Menu (GCCS00)
.*
:MENUI    OPTION=2
   ACTION='CMD CALL GCCS01'
   HELP='MENU/OPTION2'.
Receiving Yard Control (GCCS01)
.*
:MENUI    OPTION=3
   ACTION='CMD CALL GCCS02'
   HELP='MENU/OPTION3'.
Scanner Main Menu (GCCS02)
.*
:MENUI    OPTION=4
   ACTION='CMD CALL GCCS03'
   HELP='MENU/OPTION4'.
Main Menu II  (GCCS03)
.*
:MENUI    OPTION=5
   ACTION='CMD CALL GCCS04'
   HELP='MENU/OPTION5'.
Production Control Menu (GCCS04)
.*
:MENUI    OPTION=6
   ACTION='CMD CALL GCCS05'
   HELP='MENU/OPTION6'.
Returns Operations Control (GCCS05)
.*
:MENUI    OPTION=8
   ACTION='CMD CALL GCCS07'
   HELP='MENU/OPTION8'.
JSPS Shipment Menu (GCCS07)
.*
:MENUI    OPTION=9
   ACTION='CMD CALL GCCS09'
   HELP='MENU/OPTION9'.
New Model Menu (GCCS09)
.*
:MENUI    OPTION=10
   ACTION='CMD CALL GCCS11'
   HELP='MENU/OPTION10'.
HMA Access Main Menu  (GCCS11)
.*
:MENUI    OPTION=11
   ACTION='CMD CALL GCCS11A'
   HELP='MENU/OPTION11'.
HMA Scanner Menu (GCCS11A)
.*
:MENUI    OPTION=12
   ACTION='CMD CALL GCCS12'
   HELP='MENU/OPTION12'.
Mass Production Paperwork (GCCS12)
.*
:MENUI    OPTION=13
   ACTION='CMD CALL GCCS14'
   HELP='MENU/OPTION13'.
Driver Instructions Menu (GCCS14)
.*
:MENUI    OPTION=14
   ACTION='CMD CALL GCCS23'
   HELP='MENU/OPTION14'.
SOSA Inquiries (GCCS23)
.*
:MENUI    OPTION=15
   ACTION='CMD CALL GCCS24'
   HELP='MENU/OPTION15'.
Service Parts Shipping Menu (GCCS24)
.*
:MENUI    OPTION=16
   ACTION='CMD CALL GCCS25'
   HELP='MENU/OPTION16'.
Shipping Schedule Menu (GCCS25)
.*
:MENUI    OPTION=17
   ACTION='CMD CALL WWSDPTCM'
   HELP='MENU/OPTION17'.
Work with departments (WWSDPTCM)
.*
:MENUI    OPTION=18
   ACTION='CMD CALL WWSTRLCM'
   HELP='MENU/OPTION18'.
Work with trailer codes (WWSTRLCM)
.*
:EMENU.
.*
.* -------------------------------------
.* Specify menu option, not command line
.* -------------------------------------
:OPTLINE.Option
.*
:EPANEL.
.*
.* -----------------------------------------------------------------
.* DEFINE HELP MODULES FOR THE MENU PANEL
.* -----------------------------------------------------------------
.*
:HELP     NAME=KEYL.
FUNCTION KEYS - HELP
:XH3.FUNCTION KEYS
:EHELP.
.*
:HELP     NAME=HELPF1.
:PARML.
:PT.F1=HELP
:PD.
Provides additional help about the display or a specific
option on the display.
:EPARML.
:EHELP.
.*
:HELP     NAME=ENTER.
:PARML.
:PT.ENTER
:PD.
Submits request for processsing.
:EPARML.
:EHELP.
.*
:HELP     NAME=PAGEUP.
:PARML.
:PT.PAGEUP
:PD.
Scroll up through list items.
:EPARML.
:EHELP.
.*
:HELP     NAME=PAGEDOWN.
:PARML.
:PT.PAGEDOWN
:PD.
Scroll down trough list items.
:EPARML.
:EHELP.
.*
:HELP     NAME=EXIT.
:PARML.
:PT.F3=EXIT
:PD.
Exits from the display and returns control to the calling
applicatoin.
:EPARML.
:EHELP.
.*
:HELP     NAME=PROMPT.
:PARML.
:PT.F4=PROMPT
:PD.
Prompts the command entry and allows the user to enter values
in the command parameters.
:EPARML.
:EHELP.
.*
:HELP     NAME=PDM.
:PARML.
:PT.F6=STRPDM
:PD.
Starts the program development manager.
:EPARML.
:EHELP.
.*
:HELP     NAME=LMI.
:PARML.
:PT.F7=STRLMI
:PD.
Starts the Aldon Lifecycle manager.
:EPARML.
:EHELP.
.*
:HELP     NAME=SQL.
:PARML.
:PT.F8=STRSQL
:PD.
Starts SQL.
:EPARML.
:EHELP.
.*
:HELP     NAME=RETRIEVE.
:PARML.
:PT.F9=RETRIEVE
:PD.
This function will retrieve the previous commnad
entered on the command line.
:EPARML.
:EHELP.
.*
:HELP     NAME=CANCEL.
:PARML.
:PT.F12=CANCEL
:PD.
This function will cancel the current operation and
return control to the calling application.
:EPARML.
:EHELP.
.*
.*
:HELP     NAME=COMMANDS.
:PARML.
:PT.F21=COMMAND LINE
:PD.
This key will invoke a command line to
allow the user to enter, prompt and execute
a system command.
:EPARML.
:EHELP.
.*
.*
:HELP     NAME=MOREKEYS.
:PARML.
:PT.F24=MOREKEYS
:PD.
This key will display more functions for the
display, allowing the user to scroll through all
kyes for the panel.
:EPARML.
:EHELP.
.*
:HELP     NAME='MENU/HELP'.
Menu Driver HELP
:P.This menu is designed to provide a simple interface for the
main service menus provided for user applications.
:XH3.How to use this menu
:P.
To select a menu option, type the option number and press ENTER.
:P.To run a command, enter the command on the command line and press enter.
For assistancein selecting a command, press F4 (PROMPT)
without typing anything. For assistance in entering a command,
type the command and press F4(PROMPT). To see a previous command,
press F9(RETRIEVE).
:EHELP.
.*
:HELP     NAME='MENU/OPTION1'.
Option 1 HELP
:XH3.Main menu
:P.
GCCS00, Main menu functions. Requests to select line to begin and
then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION2'.
Option 2 HELP
:XH3.Receiving Yard Control
:P.
GCCS01, Requests to select line to begin and
then invokes the menu. This provides trailer control options and
trailer movement inquires.
:EHELP.
.*
:HELP     NAME='MENU/OPTION3'.
Option 3 HELP
:XH3.Scanner Menu
:P.
GCCS02, scanner functions. Requests to select line to begin and
then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION4'.
Option 4 HELP
:XH3.Main Menu II
:P.
GCCS03, Main menu functions. Requests to select line to begin and
then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION5'.
Option 5 HELP
:XH3.Main Menu II
:P.
GCCS04, Production control functions. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION6'.
Option 6 HELP
:XH3.Main Menu II
:P.
GCCS05, Returns operations control. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION8'.
Option 8 HELP
:XH3.Main Menu II
:P.
GCCS07, JSPS Shipment Menu. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION9'.
Option 9 HELP
:XH3.Main Menu II
:P.
GCCS09, New Model Menu. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION10'.
Option 10 HELP
:XH3.HMA Main Menu
:P.
GCCS11, HMA Acces Menu. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION11'.
Option 11 HELP
:XH3.HMA Scanner Menu
:P.
GCCS11A, HMA Scanner Menu. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION12'.
Option 12 HELP
:XH3.HMA Scanner Menu
:P.
GCCS12, Mass Production Paperwork. Requests to select line to begin
and then invokes the menu.
:P.
This menu is where CHECK SHEETS may be generated. The start of the
daily process begins with the selection and print of the check sheet
(pick list).
:EHELP.
.*
:HELP     NAME='MENU/OPTION13'.
Option 13 HELP
:XH3.Driver Instructions Menu
:P.
GCCS14, Driver Instruction Menu. Requests to select line to begin
and then invokes the menu. F3 from this menu will sign off the
work session.
:EHELP.
.*
:HELP     NAME='MENU/OPTION14'.
Option 14 HELP
:XH3.SOSA Inquires
:P.
GCCS23, SOSA Inquiries Menu. Requests to select line to begin
and then invokes the menu.
:P. This shows parts supplier schedules, domestic as well as
Japanese.
:EHELP.
.*
:HELP     NAME='MENU/OPTION15'.
Option 15 HELP
:XH3.Service Parts Shipping
:P.
GCCS24, Service Parts Shipping  Menu. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION16'.
Option 16 HELP
:XH3.Shipping Schedule Menu
:P.
GCCS24, Service Parts Shipping  Menu. Requests to select line to begin
and then invokes the menu.
:EHELP.
.*
:HELP     NAME='MENU/OPTION17'.
Option 17 HELP
:XH3.Work with departments
:P.
This calls the program WWSDPTCM the maintenance facility for department
shipping and check sheet print variables.
:EHELP.
.*
:HELP     NAME='MENU/OPTION18'.
Option 18 HELP
:XH3.Work with trailer codes
:P.
This calls the program WWSTRLCM the maintenance facility for trailer
level shipping and check sheet print variables.
:EHELP.
.*
:EPNLGRP.

An exit program may be called during condition evaluation for conditions specified on the EXPR attribute of the COND tag. The exit program can be provided for those instances when the determination of user class or existence of an object is not sufficient. The exit program is called during the evaluation of conditions on a panel. For hypertext link calls, this program will be run every time. When the CHKPGM function is specified on the COND tag, the EVAL attribute on the COND tag will determine when this program is called. A return code set by the exit program will indicate to UIM whether the CHKPGM function should be evaluated to true or false. The default for the function will be false if the exit program cannot be called. A message will be displayed at the bottom of the panel in the case of an error on the call to the exit program.