Re: Email Alerts from i series thru CL program

----- Original Message -----
From: rob@xxxxxxxxx
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Subject: Re: Email Alerts from i series thru CL program
Date: Thu, 2 Apr 2009 11:19:13 -0400


Translation:

CHGVAR &Running ='N'
ALCOBJ OBJ((*LIBL/&Subsystem *SBSD *EXCL)) WAIT(2)
MONMSG CPF1002 THEN(CHGVAR &Running ('Y')) /* Subsystem is running */

If (&Running = 'N') then(do)
snddst ...
Else Do
DLCOBJ OBJ((*LIBL/&Subsystem *SBSD *EXCL))
EndDo


Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From:
"Albert York" <albertyork@xxxxxxxxx>
To:
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date:
04/02/2009 11:12 AM
Subject:
Re: Email Alerts from i series thru CL program
Sent by:
midrange-l-bounces@xxxxxxxxxxxx



If you know the list of subsystems, you can try to allocate them
exclusively. If they are active you will not be able to allocate them.

Albert

----- Original Message -----
From: rob@xxxxxxxxx
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Subject: Re: Email Alerts from i series thru CL program
Date: Thu, 2 Apr 2009 08:47:38 -0400


This is a complex problem composed of two problems. One, how to send

the

email. Two how to determine what subsystems are not running that should
be.

For sending email many people start out with the IBM supplied SNDDST.

See

if you can get that working. Expect to get flooded with a variety of
emails as to why you should use alternatives.

For determining what subsystems are not running that should be there are
several ways.
1 - Use iSeries Navigator. Management Central, Monitors, Job monitor.

You

can create a monitor for a subsystem job and if the count is zero then
execute an i5/os command, like SNDDST. No CL involved.

2 - List Active Subsystems (QWCLASBS) retrieves a list of active
subsystems.

http://publib.boulder.ibm.com/infocenter/systems/scope/i5os/topic/apis/qwclasbs.htm

3 - As much as I detest it, there is WRKSBS OUTPUT(*PRINT) and then

using

CPYSPLF to a disk file and analyzing that. I hate using spool files in
this way because they are often subject to change during release

upgrades,

ptf's, etc.



Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From:
sneha verma <snehaverma001@xxxxxxxxxxxxxx>
To:
midrange-l@xxxxxxxxxxxx
Date:
04/02/2009 07:56 AM
Subject:
Email Alerts from i series thru CL program
Sent by:
midrange-l-bounces@xxxxxxxxxxxx



Hi,

I work as an AS400 Administrator.

I would like to code a CL Program which can send me email alerts in my
inbox
when any of the AS400 subsystems are not active.

Please can anyone help me with the CL Code as I am not quite familiar

with

coding.

Many Thanks.

Sneha
--
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.



--
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.

--
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.



--
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.