Re: Newbie Question -- MIDRANGE-L

Thanks, totally missed that one in all my searching. Is basically the same
core program that I had come up with, but they are doing the parsing in CL
instead of on a different system.

Interestingly, the CPYSPLF command they are using is the same that was
failing for me half the time. I had to put the CRTDATE(*LAST) on there to
avoid and error.

If nothing else, at this point I can actually read that program and
understand all the code!

Steve

On Wed, Nov 26, 2008 at 3:43 PM, Ingvaldson, Scott <
scott.ingvaldson@xxxxxxxxxx> wrote:

Stephen -

You should look at this tip on job Status monitoring:

http://search400.techtarget.com/tip/0,289483,sid3_gci755877,00.html#

All in CL and you can send pages or emails directly from the iSeries
rather than depending on another system to do the work.

Regards,

Scott Ingvaldson
Senior IBM Support Specialist
Fiserv Midwest

-----Original Message-----
From: Stephen Cochran [mailto:stephen.a.cochran.lists@xxxxxxxxx]
Sent: Wednesday, November 26, 2008 12:17 PM
To: Midrange Systems Technical Discussion
Subject: Re: Newbie Question

I had already created the physical file, so that command worked when it
could find the correct spool file.

I think I have it working now, at least it's been running for the last
several hours which is longer than it has. I needed to add the CRTDATE
(*LAST) param to the CPYSPLF command. It was defaulting to *ONLY and
would then complain if there was more than one file.

So far the other error I was running into Cpf3343 (duplicate job names
found) hasn't cropped up again, but at least the CPF3340 (duplicate
files) seems to be working.

I am actually a programmer, but RPG isn't somethign I really want to
have to dig into. Java and Cpp are enough, plus all the multitude of
scripting languages I've worked in.

I'm sure there's some better way to be monitoring in genearl (this
company has been using an as400 for years without any kind of sys admin
attention) but have to start somewhere. At least we'll know there are
problems before the users do.

Thanks for all the help, very possible you'll hear from me again. Hope
you don't regret being so friendly!

Steve

On Wed, Nov 26, 2008 at 10:42 AM, <smorrison@xxxxxxxxxxxxxxxxxxx> wrote:

Stephen,

You're very close. Here's my version of your program:

PGM

WRKACTJOB OUTPUT(*PRINT)

DLYJOB DLY(3)

CPYSPLF FILE(QPDSPAJB) TOFILE(STEVE/PRT133) JOB(*) +
SPLNBR(*LAST) CTLCHAR(*FCFC)

ENDPGM

I added the PGM and ENDPGM statements. you'll put parameters on the
PGM line as you develop more complex programs.

I used the CRTPF command to create PRT133 with a record length of 133
bytes (132 for the report plus 1 byte for printer control characters).

The output file must exist before this program will run.

The CPYSPLF uses JOB(*) to specify the current job. This job ID will
change each time you call this with the RMTCMD command. I also
specified the PRTCTL(*FCFC) parameter. This will add spacing commands
to your input file. Read the help about this command to see if this
parameter works best for you.

Steven Morrison
Fidelity Express
903-885-1283 ext. 292

"Stephen Cochran" <stephen.a.cochran.lists@xxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
11/26/2008 09:13 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>

To
midrange-l@xxxxxxxxxxxx
cc

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.

Confidentiality Statement: This electronic mail transmission is
confidential, may be privileged and should be read or retained only by

the intended recipient. If you have received this transmission in
error, please notify the sender immediately and delete it from your

system.

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