On 02-Sep-2015 13:31 -0600, James Rich wrote:
We want to send an email if our nightly closing/backup stops on any kind
of error. I thought about monitoring for CPF0000 but I think that will
prevent the job from stopping with a MSGW. I still want the job to stop
with MSGW on the line where the error occurred, I just need some
facility to notice that a MSGW condition exists and send an email. Any
The job could be established with an option to force a reply via the
Inquiry Message Reply Handling (INQMSGRPY) parameter specification [i.e.
*DFT or *SYSRPYL if the inquired condition is represented], along with a
user-exit program that could be defined for the Reply Handling Exit.
The exit-program could, I expect, be coded to send the email [and if
necessary, also to reset the handling to Required (*RQD) from whatever
was the original InqMsgRpy setting] and then reject that reply value,
which should then "cause the inquiry message to be left as unanswered"
and thus presumably the job remains in MSGW for the original inquiry
Because according to the docs the "original reply will be sent" if
the reply gets replaced, and the value of the "original reply" would be
what was determined per the original INQMSGRPY setting, a more complex
alternative would be for the user-exit to send an inquiry in place of
the one provided by the Default Handler for the HLL, and await a reply;
an inquiry reply for that inquiry message would want the exit program to
recognize that condition of recursion. The program is thus still
pending at the original MSGW, even though there is an additional stack
entry since also awaiting a reply. So as to be able to override the
reply for the earlier invocation, the exit program would want to know
how to accept the desired value for the reply-value replacement; if for
example the *DFT handling were originally chosen and the default for
CPA0701 were 'C' but the desired replacement is 'R', the system would
have determined that 'C' should be sent unless the exit program replaces
that "original reply" value.
_Reply Handling Exit Program_
Exit Point Name: QIBM_QMH_REPLY_INQ
Exit Point Format Name: RPYI0100