Client program waits for an action on the customized menu created by the MENU command, or for the menu closing.
Syntax
|
CHGVAR |
VAR(&CMD) VALUE('MENUWAIT') |
|
CHGVAR |
VAR(&PARM1) VALUE(' ') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Example
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)
/* ATTENTE CLICK SUR BOUTON */
CHGVAR VAR(&CMD) VALUE('MENUWAIT')
CHGVAR VAR(&OPT) VALUE(' ')
CHGVAR VAR(&PARM1) VALUE(' ')
CHGVAR VAR(&PARM2) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
IF COND(&RESULT *NE '00000') THEN(GOTO +
CMDLBL(WORDCLICK))
GOTO CMDLBL(FINISH)
WORDCLICK:
SNDMSG MSG('CLICK = ' *TCAT &RESULT) TOUSR(QPGMR)
FINISH: