| 
PGM
DCL VAR(&C3) TYPE(*CHAR) LEN(1)
DCL VAR(&C4) TYPE(*CHAR) LEN(1)
DCL VAR(&C12) TYPE(*CHAR) LEN(1)
DCLF FILE(MOUSE)
DEBUT: SNDRCVF RCDFMT(FMT)
IF COND((*NOT &IN03) & (*NOT &IN04) & (*NOT +
&IN12)) THEN(GOTO CMDLBL(DEBUT))
IF COND(&IN03) THEN(CHGVAR VAR(&C3) VALUE('1'))
IF COND(&IN04) THEN(CHGVAR VAR(&C4) VALUE('1'))
IF COND(&IN12) THEN(CHGVAR VAR(&C12) VALUE('1'))
SNDRCVF RCDFMT(WIN)
ENDPGM
|
