monitor for exception by message id

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

I want to use the MONITOR opcode in a CL like way, that is monitor for
specific exception message identifiers.

  MONITOR ;
  // code
  on-error CPF9898 ;
  on-error CPF9801 ;

  endmon ;

But the ON-ERROR part of MONITOR only permits rpg exception identifiers.  Is
there a way to map exception identifiers to the actual msgid that signaled
the exception?

Basically I want a proc to throw an exception and the calling proc to catch
it.

How does my code throw an rpg exception identifier?

thanks,

Steve Richter