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

.*******************************************************************
.*
.*  PANEL NAME:   BBT000MN
.*
.*  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, 2009.
.*
.* -----------------------------------------------------------------
.* 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=F15
          HELP=FTP
          ACTION='CMD FTP RMTSYS(''24.172.6.242'')'.
F15=FTP BB&T
: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.
BB&T Main Service 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 CALL BBT010CL'
          HELP='MENU/OPTION1'.
Send BB&T invoice files
.*
:MENUI    OPTION=2
          ACTION='CMD CALL BBT050CL'
          HELP='MENU/OPTION2'.
Send BB&T credit requests
.*
:MENUI    OPTION=3
 ACTION='CMD CALL BBT055CL'
          HELP='MENU/OPTION3'.
Get BB&T credit decisions
.*
:MENUI  OPTION=4
 ACTION='CMD WRKLNK BBTSND'
        HELP='MENU/OPTION4'.
Display BB&T outbound folder
.*
:MENUI  OPTION=5
        ACTION='CMD WRKLNK BBTRCV'
        HELP='MENU/OPTION5'.
Display BB&T inbound directory
.*
:MENUI  OPTION=6
        ACTION='CMD WRKLNK BBTARC'
        HELP='MENU/OPTION6'.
Display BB&T arhcive directory
.*
:MENUI  OPTION=7
        ACTION='CMD CALL BBT005RP'
        HELP='MENU/OPTION7'.
Display hex/decimal conversion
.*
:MENUI    OPTION=8
          ACTION='CMD RUNQRY QRY(BBTTRMQY)'
          HELP='MENU/OPTION8'.
BB&T Terms code list
.*
:MENUI    OPTION=9
          ACTION='CMD WRKMBRPDM FILE(QFTPSRC) MBR(BBT*)'
          HELP='MENU/OPTION9'.
Work with BB&T FTP scripts
.*
:MENUI    OPTION=10
          ACTION='CMD CALL BBT000CL'
          HELP='MENU/OPTION10'.
Check BB&T server directory
.*
:MENUI    OPTION=11
          ACTION='CMD ?BBTGETCRD'
          HELP='MENU/OPTION11'.
Download BB&T credit lines
.*
:MENUI    OPTION=12
          ACTION='CMD ?BBTGETCSH'
          HELP='MENU/OPTION12'.
Download BB&T cash returns
.*
:EMENU.
.*
.* -------------------------------------
.* USE A COMMAND LINE AND ALLOW COMMANDS AND OPTION NUMBERS
.* -------------------------------------
:CMDLINE SIZE=short.Parameters or command
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=FTP.
:PARML.
:PT.F15=FTP BB&T
:PD.
Initiates FTP session with BB&T server.
: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 functions related to BB&T communications.

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. Send BB&T Invoice Files
:P.
Select this option to invoke the CL program BBT010CL to
prompt for the company and date of the invoices to prepare.
:P.
The program requires operator action--the user may exit without
any updates or invoice file build taking place.

:EHELP.
.*
:HELP     NAME='MENU/OPTION2'.
OPTION 2 - HELP
:XH3.OPTION 2. Send BB&T Credit Requests
:P.
This option will call the program BBT050CL. This is a CL program
which prompts the user to select the company to process. The user
may exit the program without update, or files being built.
:EHELP.
.*
:HELP     NAME='MENU/OPTION3'.
OPTION 3 - HELP
:XH3.OPTION 3. Receive BB&T Credit Decisions
:P.
This option calls the CL program BBT055CL. This is a prompt to
receive the credit decision file(s) from BB&T. The program
requires operator action and the user may choose to exit the
application without update, or receiveing any files.
:P.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION4'.
OPTION 4 - HELP
:XH3.OPTION 4. Display BB&T Outbound Folder
:P.
This option is a request to view the outbound IFS folder for
BB&T data transmissions. The option invokes the IBM supplied
command, WRKLNK.
:EHELP.
.*
:HELP     NAME='MENU/OPTION5'.
OPTION 5 - HELP
:XH3.OPTION 5. Display BB&T Inbound Directory
:P.
This option invokes the IBM supplied command, WRKLNK. The user
may view the outbound IFS directory for BB&T data transmissions.
The user will be able to view all pending outbound files.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION6'.
OPTION 6 - HELP
:XH3.OPTION 6. Display BB&T Archive Directory
:P.
This option allows the user to view the BB&T IFS folder for the
archived data. The option invokes the IBM supplied command, WRKLNK.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION7'.
OPTION 7 - HELP
:XH3.OPTION 8. Display hex/decimal conversion
:P.
This option will call a pop-up program, BBT005RP designed to show
the value of decimals in base 16 (hexidecimal) format. This is an
interactive program that does not update any files.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION8'.
OPTION 8 - HELP
:XH3.OPTION 8. BB&T Terms Code List
:P.
This option will display a view of BB&T terms code file--a simple
list showing the BB&T terms code, a code description, and the
corresponding JFI terms code.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION9'.
OPTION 9 - HELP
:XH3.OPTION 9. Work with BB&T Scripts
:P.
This option invokes IBM's PDM to allow the user to work with the
communications scripts that drive the BB&T file send and receive
functions. Scripts may be modified using the Source Editor
Utility (SEU) supplied by IBM.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION10'.
OPTION 10 - HELP
:XH3.OPTION 10. Check BB&T Server Directory
:P.
This option invokes an FTP script to connect to the BB&T server
and produce a list of the files in the JFI directory. This does
not PUT or GET any files. The output of the script is the  log
file QFTPSRC/BBT000LG.
:P.
The log file is displayed using SEU. This file is simply the text
of the communications session and is cleared each time this
option is executed.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION11'.
OPTION 11 - HELP
:XH3.OPTION 11. Download BB&T credit lines
:P.
This option is a simple command interface to download the BB&T
credit lines file. There are no parameters for this command. Press
ENTER to coninute with the process, or use F3 to cancel the request.
:P.
This function should appear in schduled jobs and should not have to
be executed from the BB&T services menu. However, there is no
reason it cannot be executed from the menu.
.*
:EHELP.
.*
:HELP     NAME='MENU/OPTION12'.
OPTION 12 - HELP
:XH3.OPTION 12. Download BB&T cash returns
:P.
This option is a simple command interface to download the BB&T
cash returns file. There are no parameters for this command. Press
ENTER to coninute with the process, or use F3 to cancel the request.
:P.
This function should appear in schduled jobs and should not have to
be executed from the BB&T services menu. However, it may be invoked
at any time from the menu.
.*
:EHELP.
.*
.* -----------------------------------------------------------------
.* END OF MENU SOURCE
.* -----------------------------------------------------------------
:EPNLGRP.

[Back]