On 21/05/2008, at 8:05 AM, Paul Jackson wrote:
Which seems normal
Yes. The pointer is NULL prior to being set then is set to the first
but the based on WCBTBL-SPACE var is all hex zero
which means that the size is set to zero (it should be 16752384) which
causes the tables to be skipped hence the not found option. On the
other systems the size is correctly populated and so the table is
I've not seen that before. I guess it could mean that QWCBT01 is not
What does DSPJOBTBL show on the failing system?
What does DMPSYSOBJ QWCBT01 QSYS show on the failing system (only
need the first page)
When was the last time the job tables were compressed on the failing
system? Perhaps arrange to have the tables compressed: CHGIPLA
CPRJOBTBL(*ALL) CHKJOBTBL(*ALL) then IPL. Reset these values after
the IPL. Then see if the program works.
NOTE: Good idea to ensure QTOTJOB, QACTJOB, QADLACTJ, QADLTOTJ, and
QMAXJOB are set appropriately before the IPL.
NOTE: Collect the DSPJOBTBL and DMPSYSOBJ information first then
compress the tables.
While it is interesting to pursue this particular problem I suggest
that altering your approach would be better. Either:
a) Modify the MI program to use the job index to locate the given job
b) Use Mark's suggestion of the Interrupt Job API
The advantage of a) is that it will be much faster. The advantage of
b) is that it will work without requiring system-state.