Re: Email Alerts from i series thru CL program

["Albert York" <albertyork@xxxxxxxxx>]

The only change I would make is I would specify a wait time of 0.

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

>