RE: Newbie Question

["Ingvaldson, Scott" <scott.ingvaldson@xxxxxxxxxx>]

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.