Re: MI program unable to locate job - need assistance

On Sat, May 17, 2008 at 1:03 AM, Simon Coulter <shc-Q/[email protected]> 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 is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.