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';
As an Amazon Associate we earn from qualifying purchases.