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.