Re: Opinions Wanted: List API loop logic

[rob@xxxxxxxxx]

... and fixed format

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Keith Carpenter" <CarpCon@xxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/21/2004 11:43 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Opinions Wanted: List API loop logic






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

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.