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 / \
--------------------------------------------------------------------




This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].