Monitorizar F3 en mandato

Como controlar si un usuario a salido pulsando F3 o F12 de la ejecución de un mandato en un programa CL interactivo.

Para ello solo hemos de monitorizar el mensaje CPF6801 en el programa, por ejemplo:

PGM
....
?DSPLOG                   
MONMSG MSGID(CPF6801) EXEC(GOTO END)
...
END:
RETURN
ENDPGM