Re: MI program unable to locate job - need assistance

Simon Coulter <shc-Q/[email protected]> Sat, 17 May 2008 18:03:16 +1000
Newsgroups gmane.comp.lang.as400.mi
Message-ID <[email protected]>
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?

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