Vous avez un programme qui envoie un message "êtes vous sur de ..."

et au bout de 10 minutes sans réponse vous voulez répondre non ..

PGM

DCL &msgkey TYPE(*CHAR) LEN(4)

dcl &rep type(*char) len(1)

SNDPGMMSG MSG('êtes vous sur de ...(O/N)') TOUSR(*SYSOPR) +

KEYVAR(&msgkey) MSGTYPE(*INQ)

RCVMSG MSGTYPE(*RPY) MSGKEY(&msgkey) WAIT(600) MSG(&rep)

if cond(&rep = 'O') then(do)

.....

enddo

else do

enddo

.