Re: PCML Problem

[Barbara Morris <bmorris@xxxxxxxxxx>]

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';