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