×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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';
midrange.com
