Nyár van, odakint 35 fok, mindenki a vízpartokon, ezért most én is csak röviden írok arról, hogy ha szükségünk van rá, hogyan készítsünk menüt.

Első körben hozzunk létre egy forrás fizikai fájlt, ebbe fogjuk helyezni a menü forrását. Én a QMNUSRC-t szoktam erre a célra használni.

Hozzunk ebben létre egy új membert, a példában ez a TESZTMENU lesz. Típusa MENU legyen.

 A forrását pedig nem teszem ki linkre, alábbiakban megtaláljátok. Érdekesség, hogy itt is lehet a forrás sorait színezni, és ez így is fog megjelenni a menüben is!

.*  Készítette: Erdős Tibor
.*  Vállalat:     XXXXXXXXX
.*  Dátum:      2014.07.20.
.**********************************************************************
:PNLGRP.
.*
:copyr.
(C) Copyright 2014 XXXXXXXXX (Erdős Tibor) All rights reserved.
.*
:var            name=zmenu.
.**********************************************************************
: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=F9
              help=retrieve
              action=retrieve.
F9=Retrieve
:keyi         key=F12
              help=cancel
              action='cancel set'
              varupd=no.
F12=Cancel
: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.
.**********************************************************************
:panel        name=mnupnl
              help='menu/help'
              keyl=menukeys
              enter='msg cpd9817 qcpfmsg'
              panelid=zmenu
              topsep=sysnam.
Saját Menü
.*
.* ‚Define the menu area €*********************************************
:menu         depth='*'
              scroll=yes
              botsep=space.
:topinst.Válassz az alábbi menüpontok közül:
.*
.* ‚Defining the menu options €***************************************
:MENUI     OPTION=1
ACTION='cmd ?dspusrprf'
HELP='menu/option1'.
Felhasználói profil megjelenítése
.*
:MENUI     OPTION=2
ACTION='cmd dspjoblog'
HELP='menu/option2'.
˜Jobnapló megjelenítése
.*
:MENUI     OPTION=90
ACTION='CMD SIGNOFF'
HELP='menu/option90'.
 Kilépés
.*
:EMENU.
.*
.*
:CMDLINE    SIZE=LONG.
Menü szelekció vagy parancs
.*
.*
.* ‚End of Panel Tag €€*********************************
: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 fielad on the display.
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=exit.
:PARML.
:PT.F3=Exit
:PD.
Ends the current task and returns to the display from which the
task was started.
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=prompt.
:PARML.
:PT.F4=Prompt
:PD.
Provides assistance in entering or selecting a command.
: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 you ran.
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=cancel.
:PARML.
:PT.F12=Cancel
:PD.
Returns to the previous menu or display.
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=enter.
:PARML.
:PT.Enter
:PD.
Submit information on the display processing.
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=help.
:PARML.
:PT.Help
:PD.
Provides additional - help
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=home.
:PARML.
:PT.Home
:PD.
Goes to the menu that - home
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=pagedown.
:PARML.
:PT.Page Down (Roll-Up)
:PD.
Moves forwards to show - Pagedown
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=pageup.
:PARML.
:PT.Page Up (Roll-Down)
:PD.
Moves backwards to show - Page Up
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP    NAME=print.
:PARML.
:PT.Print
:PD.
Prints information - Print
:EPARML.
:EHELP.
.*------------------------------------------------------------------*
:HELP     NAME='MENU/help'.
CESCFS Menu - Help
:P.
To select a menu option...
:P.
To run a command...
:P.
To go to another menu...
:EHELP.
.*------------------------------------------------------------------*
:HELP     NAME='MENU/option1'.
Option 1: Felhasználói profilok
:XH3.Option 1. Felhasználói profilok
:P.
Select this option...
:EHELP.
.*------------------------------------------------------------------*
:HELP     NAME='MENU/option2'.
Option 2: Jobnapló megjelenítése
:XH3.Option 2. Jobnapló megjelenítése
:P.
Jobnapló megjelenítése.
:P.
Az üzenet kapcsolatos kérelmeket, és a végrehajtott műveletet a
rendszer a naplózza. A paranccsal ezeket az információkat lehet elérni.
:EHELP.
.*------------------------------------------------------------------*
:HELP     NAME='MENU/option90'.
Option 90: Help
:XH3.Option 90. SignOff
:P.
Ha ezt az opciót választod, kilépsz az AS/400-ból.
:EHELP.
.*------------------------------------------------------------------*
:EPNLGRP.
.*

 A menüben helyett kapott helyérzékeny súgó is. Vigyük például a 2. menüponthoz a kurzort, majd üssük le az F1 billentyűt.

Használjátok egészséggel!