Re: Opinions Wanted: List API loop logic

["Keith Carpenter" <CarpCon@xxxxxxx>]

Yes, a larger entry size would generate the same error.  No good.


Given that, I'll join the vote for the example with

c    eval    p_ListEntry = p_ListStart +
c                    ( EntrySize * (EntryNo - 1) )

Yeah, wrapped lines are ugly.  But they're hard to avoid if you're using
long variable and procedure names.


Keith





----- Original Message ----- 
From: "Scott Klement" <klemscot@xxxxxxxxxxxx>


> Wouldn't this also rish the MCH0601 error?  What happens if the EntrySize
> is larger than the data offset?  Couldn't you still end up going outside
> of the allowed range?
>
> Thanks!
>
>
> On Thu, 20 May 2004, Keith Carpenter wrote:
> >
> > Interesting point about the potential MCH0601 error.
> >
> > Here's another variation on your examples.
> >
> > c                   eval      p_ListEntry = p_ListHeader + DataOffset
> >
> > - EntrySize
> >
> >  c                   for       EntryNo = 1 to NumEntries
> > c                   eval      p_ListEntry = p_ListEntry + EntrySize
> >
> >  c***       ... at this point, the JOBL0100 data structure contains
> > c***       ... one of the entries of the list.
> >
> > c                   endfor
> >