RE: Newbie Question

["Winchester Terry" <terry.winchester@xxxxxxxxxxxxxxx>]

Add these declarations to the top of your CL program:

             DCL        VAR(&JOB)      TYPE(*CHAR) LEN(10)    
             DCL        VAR(&NBR)      TYPE(*CHAR) LEN(10)    
             DCL        VAR(&USER)     TYPE(*CHAR) LEN(10)    

Add this line before your WRKACTJOB command:

             RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR)    

Then change the CPYSPLF and DLTSPLF commands to use these 
new variables:

CPYSPLF    FILE(QPDSPAJB) TOFILE(KAF/WAJFILE) +
              JOB(&NBR/&USER/&JOB) SPLNBR(*LAST)

DLTSPLF FILE(QPDSPAJB) JOB(&NBR/&USER/&JOB)

This allows your CL program to dynamically know which spool
file to manipulate.

Terry Winchester 
Programmer/Analyst
________________________________
The Raymond Corporation
terry.winchester@xxxxxxxxxxxxxxx 

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx 
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stephen Cochran
> Sent: Wednesday, November 26, 2008 9: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.

Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information that may be confidential, protected by applicable legal privileges, or constitute non-public information. It is intended to be conveyed only to the designated recipient(s). If you are not an intended recipient of this message, please notify the sender by replying to this message and then delete it from your system. Use, dissemination, distribution or reproduction of this message by unintended recipients is 
not authorized and may be unlawful.