RE: PCML Problem

["Kristen Henry" <klhnry@xxxxxxxxxxxx>]

Thank you!  I will try this.

Kristen

-----Original Message-----
From: java400-l-bounces@xxxxxxxxxxxx [mailto:java400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Barbara Morris
Sent: Thursday, May 10, 2007 9:08 AM
To: java400-l@xxxxxxxxxxxx
Subject: Re: PCML Problem

Kristen Henry wrote:
> Here is the F Spec:
>
> FAMLUD     IF   E           K DISK                
>
> The AMLUD file resides in the library AM2000.
>
> Kristen

Kristen, to debug this, try changing your program temporarily so you can 
output the joblog and job information.  (Or maybe not temporarily; if 
you don't have any exception handling in your RPG program, it would be 
waiting for a reply to an inquiry message.  So it's a good idea to avoid 
the possibility of an inquiry message.)

FAMLUD     IF   E           K DISK    USROPN
D QCMDEXC         PR                  EXTPGM('QCMDEXC')
D   cmd                       3000a   const
D   cmd_len                     15p 5 const
D theCommand      S           3000a   varying
  ...
     begsr *inzsr;
        open(e) amlud;
        if %error;
           exsr *pssr;
        endif;
     begsr *pssr;
        monitor;
            theCommand = 'DSPJOB OUTPUT(*PRINT)';
            callp(e) qcmdexc (theCommand : %len(theCommand));
            theCommand = 'DSPJOBLOG OUTPUT(*PRINT)';
            callp(e) qcmdexc (theCommand : %len(theCommand));
            dump(a);
        endmon;
        *inlr = '1';
     endsr '*CANCL';