A MIMIX administrator wants to see a notification reflected in MIMIX status when TCP communications fails. A message queue monitor on a specific system can check for a message indicating a communications failure and issue a notification when the message occurs.
The following command creates a message queue monitor named COMPROB to check for message LVE0113 (TCP communications request failed with error &1) in the MIMIX message queue in the MIMIXQGPL library:
CRTMONOBJ MONITOR(COMPROB) EVTCLS(*MSGQ) EVTPGM(user_library/COMPROB) MSGQ(MIMIXQGPL/MIMIX) MSGID(LVE0113) AUTOSTR(*YES) TEXT('Issue notification entry for TCP communication problem')
The event program includes the instruction to issue the following command, which will add a notification to MIMIX in the specified installation library:
installation_library/ADDNFYE TEXT('comm failure') SEVERITY(*ERROR) DGDFN(*NONE) DETAIL(‘TCP communications failed. Investigation needed.’)
Once the monitor is enabled and started, the event program COMPROB will run when the message LVE0113 is detected. For additional information about creating monitors and writing event programs, see the Using MIMIX Monitor book.