Simple CL Read

$Read:

RCVF

MONMSG     MSGID(CPF0864) EXEC(GOTO $Exit)

MONMSG     MSGID(CPF0886) EXEC(GOTO $Read)