× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I created my own two program application for this. Basically a PF defines
what condition (ie RUN, MSGW) to look for in a defined subsystem. Below is
the file layout.

Prod or Test Server K01 ZPRDTST A 1
Subsystem K02 ZSBS A 10
Function K03 ZFUNCTION A 10
Status K04 ZSTATUS A 4
Monitor Frequency ZFREQ P 5 0
Begin Time ZBTIME P 8 0
End Time ZETIME P 8 0
Notification ZNOTIFY A 80
Unique Jobname ZJOBNAME A 10

And below are field values for record 1 - this tells my application to
troll QBATCH for any MSGW status condition, checking every 20 minutes
starting at 00:01:00 through 23:59:59. If this condition occurs, the value
"STATUS MSGW DETECTED IN SUBSYSTEM QBATCH" is sent to all programmers via
email (using Aaron Bartell's RPGMAIL utility).

P
QBATCH
-blank-
MSGW
20
100
23595900
STATUS MSGW DETECTED IN SUBSYSTEM QBATCH
MONITOR005

Below is example 2 - this tells my application to troll QBATCH for the RUN
status condition for function (OIBDLYUPPQ), checking every 5 minutes
starting at 00:18:00 through 22:00:00. If I don't detect this job running
between 6 and 10 pm then I know my nightly process hasn't been detected
and an email is sent informing that 'OIB DAILY UPDATE ACTIVITY NOT
DETECTED'.

P
QBATCH
OIBDLYUPPQ
RUN
5
18000000
22000000
OIB DAILY UPDATE ACTIVITY NOT DETECTED
MONITOR006

A CL/Command processes the startup and shutdown, and builds the subsystem
and so forth and all the monitors run at priority 58 to not impact
performance.

My first application reads the data file and submits the jobs (specifying
the unique jobname).

The second program is passed parameters indicating which record will
provide the montior parameters, and then individual subroutines are coded
for each record. It works for us as we only need to know if a message is
waiting or to be notified if a job didn't run. It also lets us monitor
QHHTPSVR for web apps that may throw a MSGW and the web user doesn't know
an error occurred.

It looks like this when running.

Work with Active Jobs TCLINIC
04/01/11
14:56:04
CPU %: 7.7 Elapsed time: 00:23:21 Active jobs: 931
Current
Opt Subsystem/Job User Type CPU % Function Status
Z_MONITOR QSYS SBS .0 DEQW
MONITOR001 QPGMR BCH .0 PGM-ZZRSTAT2 SIGW
MONITOR002 QPGMR BCH .0 PGM-ZZRSTAT2 SIGW
MONITOR003 JOBSCHED BCH .0 PGM-ZZRSTAT2 SIGW
MONITOR004 JOBSCHED BCH .0 PGM-ZZRSTAT2 SIGW
MONITOR005 QPGMR BCH .0 PGM-ZZRSTAT2 SIGW
MONITOR006 QPGMR BCH .0 PGM-ZZRSTAT2 SIGW
MONITOR007 QPGMR BCH .2 PGM-ZZRSTAT2 SIGW
MONITOR008 QPGMR BCH .0 PGM-ZZRSTAT2 SIGW

I can share the source if you like.

Thanks, Jerry

Gerald Kern - Information Technology
Programming Supervisor
IBM Certified RPG IV Developer
Lotus Notes/Domino 8.0.1 Administrator
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx


This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please inform the
sender by reply e-mail and destroy this and all copies of this message.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.