Re: MIDRANGE-L Digest, Vol 15, Issue 1495

Hello Paul

We use STRWCH to monitor specific MSGs and call a Watch Program that
sends mail and (via Mail2SMS service) SMSs when these MSGs occur .
We developed it for night time batch jobs but it operates around the clock.
These "Watches" are loaded in QSTRUP PGM.
example:
SBMJOB CMD(STRWCH SSNID(WATCH_MSG1) +
WCHPGM(QGPL/WATCH_PGM1) + WCHMSG((RNQ0231 *NONE *MSGDTA *ALL
*GE + 00) (RNQ0232 *NONE *MSGDTA *ALL *GE 00) +
(RNQ1216 *NONE *MSGDTA *ALL *GE 00) + (RNQ0102 *NONE *MSGDTA
*ALL *GE 00) + (RNQ0121 *NONE *MSGDTA *ALL *GE 00)))
+ JOB(STRWATCH) JOBQ(QSYS/QUSRNOMAX) + USER(AS400)


IBM uses many such Watches - use WRKWCH WCH(*ALL) to see all.
Try WRKWCH WCH(*STRWCH) to see your "private" Watches only.

If you want code samples let me know and I'll e-mail you.

Gad

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Paul Bailey
Sent: Thursday, September 22, 2016 9:43 AM
To: Midrange Systems Technical Discussion
Subject: Monitoring for MSGW

Hi,

I've been tasked with finding a way to notify relevant people the moment
when *any* job goes into the MSGW status. The notification has to tell
those people which job is in the MSGW status, when it entered that status
and what the MSGID is (I also don't want to spam them with
notifications!).
I am not interested in notifying anyone about jobs in the QSPL subsystem,
but apart from that I want notification for any batch or interactive job
on the local machine requiring a user's response to a message.

I've put together a small routine that loops forever using the QUSLJOB API
which works (thanks to Eric Pell), but I'd prefer a different approach
because continuously reading the job list over and over just seems like an
awkward way to do what I want. Is there a way to have a program called (or
dtaq/file added to) when any job in the system goes into the MSGW status?
Trigger, or exit point, etc?

Any tips, ideas, web searches I may have missed?


-Paul.


PS Eric Pell's code, an adjustment to code from "jamief", can be found
here:
http://www.code400.com/forum/forum/tips-techniques-tools-
announcements/tips-for-the-iseries-as400/1227-use-the-
qusljob-api-to-whip-thru-wrkactjob?p=51441#post51441

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.