CHGVAR

VAR(&CMD) VALUE('WORDSHOW')

CHGVAR

VAR(&PARM1) VALUE(' ')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

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

&RESULT)

MONMSG

MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))