Re: MI program unable to locate job - need assistance

OK. That indicates that QWCBT01 and QWCBT02 are full. Do both these tables show the size values at the "new" location? Do they both appear to contain hex zeroes in debug? What does DMPSYSOBJ show for these tables (hex zeroes or proper data)?

Do the other tables have the "normal" header information (i.e., QWCBT00 pointer, last available entry, length, and table number)?

As you can tell, I'm intrigued by this state of affairs.

On 23/05/2008, at 8:45 AM, Paul Jackson wrote:

On Thu, May 22, 2008 at 3:13 PM, Simon Coulter <shc@xxxxxxxxxxxxxxxxx> wrote:

On 23/05/2008, at 4:10 AM, Paul Jackson wrote:

Everything on the systems seems to be the same. Very strange. Oh
well. I rewrote the program to access the QWCBT_JOB_INDEX instead
which avoids the issue and speeds things up searching as a welcome
bonus.

Yes, that's the better approach--at least until VRM610.

Thanks for your help!

Can you show us what DSPJOBTBL displays on the failing system?

Here's the display:

Display Job Tables PHR400
05/22/08 15:42:20
Permanent job structures: Temporary job structures:
Initial . . . . : 1000 Initial . . . . : 500
Additional . . . : 10 Additional . . . : 10
Available . . . : 197672 Available . . . : 313
Total . . . . . : 270701
Maximum . . . . : 283520


--------------------- Entries----------------------
Table Size Total Available In- use Other
1 16752384 16352 0 16352 0
2 16749312 16352 0 16352 0
3 16749312 16352 5715 10637 0
4 16749312 16352 11382 4970 0
5 16749312 16352 10386 5966 0
6 16749312 16352 11692 4660 0
7 16749312 16352 13219 3133 0
8 16749312 16352 12370 3982 0
9 16749312 16352 12652 3700 0
10 16749312 16352 13292 3060 0
11 16749312 16352 16158 194 0
12 16749312 16352 16352 0 0
13 16749312 16352 16352 0 0
14 16749312 16352 16333 19 0
15 16749312 16352 16352 0 0
16 16749312 16352 16351 1 0
17 9310976 9069 9066 3 0
_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------