Re: MI program unable to locate job - need assistance

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