On Sat, May 17, 2008 at 1:03 AM, Simon Coulter <shc@xxxxxxxxxxxxxxxxx> wrote:

On 16/05/2008, at 9:04 AM, Paul Jackson wrote:

Sorry, I was a bit premature with that statement. The pointers are at
the normal position but for some reason it seems as if the SETSPPFP
.WCBSPC, .WCB-TABLES(THE-TABLE); statement is not setting .WCBSPC
properly as the based on structure is all hex zeros.

That's very odd. Can you recompile it with debuggable identifiers and
determine what .WCBSPC is set to before and after the SETSPPFP
operation?

You said you were running this on VRM540, QSECURITY=40, and program
set to system-state. I compiled on 510, set system state (including
proper checksums) and tried it and it worked. I then saved the
program and test program, restored on VRM540, and tried it, and it
worked,

So the code seems fine--although it's not the most efficient way of
locating a given job.

I wonder what else is different on the failing system? Same level of
LIC? Same Cume level?

Hi Simon,
before the first SETSPPFP the value of .WCBSPC (now @WCBSPC):

Statement/Instruction . . . . . . . . . : /0006
Program . . . . . . . . . . . . . . . . : RTVJOBDTAA
Recursion level . . . . . . . . . . . . : 1
Start position . . . . . . . . . . . . : 1
Format . . . . . . . . . . . . . . . . : *CHAR
Length . . . . . . . . . . . . . . . . : *DCL

Variable . . . . . . . . . . . . . . . : @WCBSPC
CPD1902 Pointer to be displayed not set to any address.

After:

Statement/Instruction . . . . . . . . . : /0007
Program . . . . . . . . . . . . . . . . : RTVJOBDTAA
Recursion level . . . . . . . . . . . . : 1
Start position . . . . . . . . . . . . : 1
Format . . . . . . . . . . . . . . . . : *CHAR
Length . . . . . . . . . . . . . . . . : *DCL

Variable . . . . . . . . . . . . . . . : @WCBSPC
Pointer type . . . . . . . . . . . . : SPP
Offset . . . . . . . . . . . . . . . : 00000000
Object . . . . . . . . . . . . . . . : QWCBT01
Library . . . . . . . . . . . . . . : QSYS
Object type . . . . . . . . . . . . . : *WCBT

Which seems normal 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
searched normally.

Not sure how to check Lic or cume levels.

-Paul

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