Re: MI program unable to locate job - need assistance -- MI400

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

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.

Simon,

I dumped both the tables (as well as #3 and #17) and they showed the
size value at the "new" location (offset x'1014').

OBJ- QWCBT01 CONTEXT- QSYS
TYPE- *ALL SUBTYPE-*ALL
OBJECT TYPE- SPACE
*WCBT
NAME- QWCBT01 TYPE- 19
SUBTYPE- D0
LIBRARY- QSYS TYPE- 04
SUBTYPE- 01
CREATION- 07/13/07 09:47:50 SIZE- 0000FFA000
OWNER- QSYS TYPE- 08
SUBTYPE- 01
ATTRIBUTES- 0800 ADDRESS- 0FC5B2BAC8
000000
SPACE ATTRIBUTES-
000000 00FFF000 00000074 19D0D8E6 C3C2E3F0 F1404040 40404040
40404040 40404040
000020 40404040 40404040 E0000000 00000000 00FF9F00 00000000
00000000 00000000
000040 00000000 00000000 3B6778EE 92000400 00000000 00000000
00000000 00000000
000060 00000000 00000000 00000000 00000000 00FFFF00
SPACE-
000000 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000
LINES 000020 TO 000FFF SAME AS ABOVE
001000 00008000 00000000 2837CDE8 7D00193F 00FF8F00 00FF9F00
00010000 00000000 <<===the ff9f00 here

I haven't checked the other header fields as they are not referenced
in my program plus I do not know the correct offsets. All of the info
in the QWCBT00 master table is fine though as far as I can tell.

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 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.