Commande MENU

Construit une barre de menu personnalisée indépendante de toute application.

MENU doit être utilisé avec la commandes MENUWAIT.

Syntaxe

CHGVAR	VAR(&CMD) VALUE('MENU')
CHGVAR	VAR(&PARM1) VALUE('Captions="Libellés des boutons ;…" [;Tips="Bulle d’aide ;…"] [;MenuName="Nom du menu"]')
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

Paramètres

Parm1

Captions= Permet de donner le libellé de chaque bouton de la nouvelle barre de menu.
Les libellés sont séparés entre eux par un point virgule ( ;).
Le nombre de libellés détermine le nombre de boutons de la barre de menu.

Tips= Permet d’afficher une bulle d’aide pour chaque bouton.

MenuName=Permet de donner un nom au menu.

Remarque

Lors de l’appel de la commande MENUWAIT, le programme AS/400 se met en attente d’une action de la part de l’utilisateur. Il reprend la main sur l’action d’un des boutons du nouveau menu, ou quand le menu est fermé.
Au retour de la commande MENUWAIT, la variable &RESULT contient le numéro sur 5 chiffres du bouton actionné (De 1 à n).

Le menu se ferme automatiquement lorsqu’une action a eu lieu.

Exemple

CHGVAR VAR(&CMD) VALUE('MENU')

CHGVAR VAR(&PARM1) +

VALUE('CAPTIONS="VALIDER;ANNULER";TIPS="VAL+

IDER LE DOCUMENT;ANNULER"')

CHGVAR VAR(&PARM2) VALUE(' ')

CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +

&PARM2 &RESULT)

CHGVAR VAR(&CMD) VALUE('MENU')

CHGVAR VAR(&PARM1) +

VALUE('CAPTIONS="EXCEL;WORD";TIPS="OUVRIR +

EXCEL;OUVRIR WORD";MENUNAME="CHOIX APPLI +

OFFICE"')

CHGVAR VAR(&PARM2) VALUE(' ')

CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +

&PARM2 &RESULT)