CHGVAR

VAR(&CMD) VALUE('WSELROW')

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))