Re: Newbie Question

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.