Re: Newbie Question -- MIDRANGE-L

Thanks Bruce. I actually came across your articles a few weeks ago when I
was first researching this, but having no knowledge of RPG made me hesitant
to dig into that as my first experiment at any programming on the as400.
Honestly, looking at it now is a lot less intimidating even though I still
haven't looked at RPG yet.

I might try to take a glance at it in the future and modify it to simply
send an email when jobs have gone in MSGW (currently our only goal). I did
figure out how to do that from CL so if nothing else I could call a CL
script from RPG and pass in the text for the email body.

Steve

On Wed, Nov 26, 2008 at 1:37 PM, Bruce Vining <bvining@xxxxxxxxxxxxxxx>wrote:

There are a variety of ways to monitor one or more jobs on the system. As
a starting point for general monitoring I would suggest going to
http://www.brucevining.com/Articles/Article_MCPress_Progamming.html. From
there the two articles Keep Those Batch Jobs Running and Easily Identify
What Message... may be of interest to you. Another approach, if you are
interested in monitoring for specific messages can be found at
http://www.brucevining.com/Articles/Article_Systemi_News.html and then
selecting Watching for Messages -- Made Easy.

Bruce
Bruce Vining Services
507-206-4178

--- On Wed, 11/26/08, Stephen Cochran <stephen.a.cochran.lists@xxxxxxxxx>
wrote:

From: Stephen Cochran <stephen.a.cochran.lists@xxxxxxxxx>
Subject: Re: Newbie Question
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date: Wednesday, November 26, 2008, 12:05 PM

The purpose is to have some automatic monitoring for error conditions
(MSGWs
and jobs that should be active at all times).

We did look into using Monitors through iSeries Navigator, but it kept
crashing and we could never actually get a monitor working.

So we're pulling the file over to a linux box and using perl parse the file
and notify us. Again, I have read that perl can be installed on an as400,
but that would be a whole different can of worms ;)

Steve

On Wed, Nov 26, 2008 at 10:11 AM, Shannon ODonnell <
sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

Can I ask why you want that information on a PC? Are you going to graph
it, or do you do it for sorting purposes of some kind?

Being new to the iSeries, you may not be aware of iSeries Navigator,

which

is a pc based tool which will allow you, among many other things, to view
the contents of WRKACTJOB in a graphical manner.

If you do not have it installed on your PC, it should be available to you
or
your system admin on a CD that came with the iSeries.

If you still feel you need the information in some other form on your PC,
then I'd suggest you narrow down what specifically you are looking for
(i.e., interactive jobs, batch jobs, etc..) and use APIs to pull it
directly from the system.

HTH

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stephen Cochran
Sent: Wednesday, November 26, 2008 8:01 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Newbie Question

Preface to say that I'm very new to the as400, stronger unix

background.

I'm trying to write a small CL program that puts the output of

WRKACTJOB

into a PC file so that it can be FTPed off the as400, ideally having the

CL

program executed by the FTP script using RMCD. I have the basics down as
shown below:

WRKACTJOB OUTPUT(*PRINT)

/* Delay for 2 seconds for output to finish */
DLYJOB DLY(3)

/* Copy spool output to file KAF/WAJFILE */
CPYSPLF FILE(QPDSPAJB) TOFILE(KAF/WAJFILE) +
JOB(419900/USER/QPRTJOB) SPLNBR(*LAST)

DLTSPLF FILE(QPDSPAJB) JOB(419900/USER/QPRTJOB)

This will sometimes work, and sometimes not ending with a CPF3343

message.

I
have tried ending a MONMSG line to catch those, but even putting a

DLTSPLF

command in the MONMSG ends with the same error.

At this point I've tried just about every combination of options

(using the

job name for JOB parameter, using SMBJOB for the WRKACTJOB command, etc)
but
always run into some problem.

So my question is, what's the correct way to accomplish this? Being
somewhat
new, code examples are always welcome. Thanks.
--
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.