|
Scott Klement wrote:
>
> Couldn't you do something like the following?
> ...
> /free
>
> monitor;
> z = x / y;
> on-error;
> QMHMOVPM(' ':'*DIAG':1:'*PGMBDY':1:ErrorNull);
> QMHRSNEM(' ':ErrorNull);
> endmon;
>
You're right. I thought the MONITOR handling by RPG received the
message, preventing QMHRSNEM from working without a specified message
key, but I was wrong, it only handles the message, it doesn't receive
it. So you _can_ percolate from MONITOR - Cool! With the fancier
parameters to QMHRSNEM, you should be able to divert both the diagnostic
and escape messages to anywhere up the stack.
This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.