Figure 1: Failing test example

PGM
SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Boom') MSGTYPE(*ESCAPE)
ENDPGM