Re: MI program unable to locate job - need assistance

Hi Richard,

this was code that I obtained from Tim McCarthy when he was at Trailblazer
systems ca. 1996.  I've never debugged an MI program before.  Any tips on
how to do this?

Also if anyone knows if the number of job tables is now more than 30 that
might be a clue.

Thanks!
-Paul

On Mon, May 12, 2008 at 6:59 PM, Rich Hart <[email protected]> wrote:

>
> Hi Paul,
>
> I was able to get your program to compile, but of course it abended when
> it
> tried to access the WCB-ROOT (Storage Protection Violation).
> I don't mess with running System State!  That's as far as I can take it.
>
> I understand the process to access the Work Control Block tables' entries,
> but I don't know where you got the offsets for the various Data Area
> structures (LDA, GDA, PDA).  Is that in Leif's book?
>
> I would think if you debugged it, watching the THE-TABLE variable and
> seeing
> if it passes thirty, that would perhaps narrow the problem down.
>
> Interesting.  Don't see why it wouldn't work.  That's for better heads
> than
> mine!
>
> Regards
>
> Rich Hart
>
> _______________________________________________
> 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.
>
>
_______________________________________________
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.