This is a fairly generic UIM user menu. Typically user oriented UIM menus are only given an option field, and not a command line, like menus destined for a system operator.

.*******************************************************************
.*
.*  PANEL NAME:   ACT010MN
.*
.*  SOURCE FILE:  QUIMSRC
.*
.*  FUNCTION:     SOURCE FOR MENU SRCMGT MENU OPTIONS FOR CONTROL
.*                SOURCE COMMANDS.
.*
.*******************************************************************
.*******************************************************************
.*                  MODIFICATION LOG
.*
.*   DATE    PROGRAMMER      DESCRIPTION
.*
.*******************************************************************
.*******************************************************************
.* -----------------------------------------------------------------
.*
.* BEGINNING OF MENU SOURCE.
.*
.* ENABLE ACCESS TO OS/400 INDEX SEARCH WHEN HELP IS DISPLAYED FOR
.* THIS MENU.
.* -----------------------------------------------------------------
:PNLGRP   SCHIDX=QHSS1
          DFTMSGF=MNUMSGF
          SUBMSGF=MNUMSGF.
.*
.* -----------------------------------------------------------------
.* COPYRIGHT STATEMENT APPEARS WHEN THE MENU IS INITIALLY DISPLAYED.
.* -----------------------------------------------------------------
:COPYR.
(C) COPYRIGHT LOGICAL SYSTEMS DESIGN, 2007.
.*
.* -----------------------------------------------------------------
.* UIM Z-VARIABLE TO BE USED AS THE PANEL IDENTIFIER
.* -----------------------------------------------------------------
:VAR      NAME=ZMENU.
.*
.* -----------------------------------------------------------------
.* DEFINE KEYS FOR THE MENU
.* -----------------------------------------------------------------
:KEYL     NAME=MENUKEYS
          HELP=KEYL.
:KEYI     KEY=F1
          HELP=HELPF1
          ACTION=HELP.
:KEYI     KEY=F3
          HELP=EXIT
          ACTION='EXIT SET'
          VARUPD=NO.
F3=Exit
:KEYI     KEY=F4
          HELP=PROMPT
          ACTION=PROMPT.
F4=PROMPT
:KEYI     KEY=F9
          HELP=RETRIEVE
          ACTION=RETRIEVE.
F9=Retrieve
:KEYI     KEY=F12
          HELP=CANCEL
          ACTION='CANCEL SET'
          VARUPD=NO.
F12=Cancel
:KEYI     KEY=F24
          HELP=MOREKEYS
          ACTION=MOREKEYS.
F24=More keys
:KEYI     KEY=ENTER
          HELP=enter
          ACTION=ENTER.
:KEYI     KEY=HELP
          HELP=HELP
          ACTION=HELP.
:KEYI     KEY=HOME
          HELP=HOME
          ACTION=HOME.
: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=ACT010MN
          HELP='MENU/HELP'
          KEYL=MENUKEYS
          ENTER='MSG CPD9817 QCPFMSG'
          PANELID=ZMENU
          TOPSEP=SYSNAM.
Accounting Query Menu
.*
.* -------------------------------------
.* DEFINE THE MENU AREA
.* -------------------------------------
:MENU     DEPTH='*'
          SCROLL=NO
          BOTSEP=SPACE.
:TOPINST.SELECT ONE OF THE FOLLOWING:
.*
.* -------------------------------------
.* SPECIFY THE ACTION TO BE TAKEN FOR EACH OPTION
.* -------------------------------------
:MENUI    OPTION=1
          ACTION='CMD WRKQRY'
          HELP='MENU/OPTION1'.
Work with queries
.*
:MENUI    OPTION=2
          ACTION='CMD RUNQRY QRY(BK010Q1) ??OUTTYPE(*DISPLAY)'
          HELP='MENU/OPTION2'.
Dump 2007 account entries
.*
:MENUI    OPTION=3
 ACTION='CMD RUNQRY QRY(APNOCHECK) ??OUTTYPE(*DISPLAY) RCDSLT(*YES)'
          HELP='MENU/OPTION3'.
A/P No checks
.*
:MENUI  OPTION=4
 ACTION='CMD RUNQRY QRY(INVTRNPAID) ??OUTTYPE(*DISPLAY) RCDSLT(*YES)'
        HELP='MENU/OPTION4'.
Invoices paid in prior period
.*
:MENUI  OPTION=5
        ACTION='CMD CALL CSP2183'
        HELP='MENU/OPTION5'.
Costed value of production
.*
:MENUI  OPTION=6
        ACTION='CMD CALL YB0094CL2'
        HELP='MENU/OPTION6'.
Build gross margin workfile
.*
:MENUI  OPTION=7
        ACTION='CMD ?DSPWHSBAL'
        HELP='MENU/OPTION7'.
Display Warehouse Balance
.*
:MENUI    OPTION=8
          ACTION='CMD RUNQRY QRY(BK020Q1) ??OUTTYPE(*DISPLAY)'
          HELP='MENU/OPTION8'.
Dump 2008 account entries
.*
:EMENU.
.*
.* -------------------------------------
.* USE A COMMAND LINE AND ALLOW COMMANDS AND OPTION NUMBERS
.* -------------------------------------
:OPTLINE.
SELECTION
.*
: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 information about using the display or a
specific field on the display.
:EPARML.
:EHELP.
.*
:HELP     NAME=EXIT.
:PARML.
:PT.F3=EXIT
:PD.
Ends the current task and returns to the display frin which the
task was started.
:EPARML.
:EHELP.
.*
:HELP     NAME=PROMPT.
:PARML.
:PT.F4=PROMPT
:PD.
Provides assistance in entering or selecting a commnad.
:EPARML.
:EHELP.
.*
:HELP     NAME=RETRIEVE.
:PARML.
:PT.F9=RETRIEVE
:PD.
Displays the last command you entered on the command line and
any parameters you included.  Pressing this key once, shows the
last command issued.  Pressing the key mode shows the command
you ran before that and so on.
:EPARML.
:EHELP.
.*
:HELP     NAME=CANCEL.
:PARML.
:PT.F12=CANCEL
:PD.
Returns to the previous menu or display.
:EPARML.
:EHELP.
.*
:HELP     NAME=MOREKEYS.
:PARML.
:PT.F24=MORE KEYS
:PD.
Shows additional function keys.
:EPARML.
: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=HOME.
:PARML.
:PT.HOME
:PD.
Goes to the menu that was shown AFTER you signed-on the system.
This menu is either the initial menu defined in your USER
PROFILE or the menu you requested from the sign-on display.
:EPARML.
:EHELP.
.*
:HELP     NAME=PAGEDOWN.
:PARML.
:PT.PAGE DOWN (ROLL UP)
:PD.
Moves forward to show additional information for this display.
:EPARML.
:EHELP.
.*
:HELP     NAME=PAGEUP.
:PARML.
:PT.PAGE UP (ROLL DOWN)
:PD.
Moves backward to show additional information for this display.
:EPARML.
:EHELP.
.*
:HELP     NAME=PRINT.
:PARML.
:PT.PRINT
:PD.
PRINTS INFORMATION CURRENTLY SHOWN ON THE DISPLAY.
:EPARML.
:EHELP.
.*
:HELP     NAME='MENU/HELP'.
Accounting Query Menu - HELP
:P.
This menu is designed to provide a simple interface for the
execution of query functions related to the accounting area.

For detailed descriptions of each menu option,place the
cursor on the menu item and press F1. This will provide a
pop-up description of the item function.

:XH3.
HOW TO USE A MENU
:P.
To select a menu option, type the option number and press ENTER.
:P.
To run a command, type the command and press ENTER. For assistance
in 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 you entered, press F9
(RETRIEVE).
:P.
To go to another menu, use the GO TO MENU (GO) command. Type GO
followed by the menu DD, then press the ENTER KEY. For example, TO
Go to the user tasks (USER) menu, type go user and press the ENTER
key.  The menu ID is shoun in the upper left corner of the menu.
for assistance in entering the GO command, type GO and press F4
(PROMPT).  If you do not know the entire menu name you can use a
generic name.  For example, GO US* will show a list of all menus
that start with US.
:EHELP.
.*
:HELP     NAME='MENU/OPTION1'.
OPTION 1 - HELP
:XH3.OPTION 1. Work with queries (WRKQRY)
:P.
Select this option to invovke the query selection process.
:P.
:XH4. Library - query library
:P.
Enter the name of the library where the query is located and the
name of the query to execute. If you do not know the name of the
query use F4 to prompt a list of available queries.

:EHELP.
.*
:HELP     NAME='MENU/OPTION2'.
OPTION 2 - HELP
:XH3.OPTION 2. Dump 2007 account entries
:P.
This option will run the query BK010Q1. You will be prompted to
specify if you want to display, print, or output a file, as
the query results. If a file is generated, it will be named
ACCTS2007 in the library BKPNLB.
:EHELP.
.*
:HELP     NAME='MENU/OPTION3'.
OPTION 3 - HELP
:XH3.OPTION 3. A/P No Checks
:P.
This option will run the query APNOCHECK. You will be prompted to
specify if you want to display, print, or output a file, as
the query results. If an outfile is to be generated, the file
will be named APNOCHECKS in the library ROGERT.
:P.
:XH4. RCDSLT - record select
:P.
You will be required to enter values of the variables for record
selection, in this case a beginning date for the query.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION4'.
OPTION 4 - HELP
:XH3.OPTION 4. Invoices paid in prior period
:P.
This option will run the query INVTRNPAID. You will be prompted to
specify if you want to display, print, or output a file, as
the query results. If an outfile is to be generated, the file
will be named INVPAIDRPT in the library ROGERT.
:P.
:XH4. RCDSLT - record select
:P.
You will be required to enter values of the variables for record
selection, in this case a date for the invoice paid date and
a date for the prior period to report.
:EHELP.
.*
:HELP     NAME='MENU/OPTION5'.
OPTION 5 - HELP
:XH3.OPTION 5. Costed value of production
:P.
This option is not a query per se. This calls program CSP2183 to
produce an output file COSTVPROD in library ROGERT. There is a
prompt which will request beginning and ending dates and the
company (or all companies) to report.
:P.
:XH4. File COSTVPROD
:P.
The data in the file will be cleared on each request. If you wish
to download the data you must do so before the next value of
production request is processed.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION6'.
OPTION 6 - HELP
:XH3.OPTION 6. Gross Margin file build
:P.
This option is not a query, but invokes a program YB0094CL2 to
produce an output file GROSMARGMS in library ROGERT. There is a
prompt which will request beginning and ending dates and the
company to report.
:P.
:XH4. File GROSMARGMS
:P.
The data in the file will be cleared on THE FIRST REQUEST. Once
a company has been loaded to the file, the next request will
add to the existing file. Download the work file after exiting
the application. The next time the application executes it
will automatically clear the work file data.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION7'.
OPTION 7 - HELP
:XH3.OPTION 7. Display Warehuse Balance
:P.
This option will display a view of the Warehouse Balance file,
WHSEBALPF in the library ROGERT. This file is updated by regular
month-end processing during the month-close.
:P.
:XH4. File WHSEBALPF
:P.
The data in the file is cleared prior to month-end closing and
is re-built based on the warehouse balance report. It may be
downloaded at any time after the warehouse balance report has
been completed.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION8'.
OPTION 8 - HELP
:XH3.OPTION 2. Dump 2008 account entries
:P.
This option will run the query BK020Q1. You will be prompted to
specify if you want to display, print, or output a file, as
the query results. If a file is generated, it will be named
ACCTS2008 in the library BKPNLB.
.*
:EHELP.
.*
.* -----------------------------------------------------------------
.* END OF MENU SOURCE
.* -----------------------------------------------------------------
:EPNLGRP.

[Back]