|
midrange.com
Bob-- I knew that too-- just had a mind f*rt. When I first started using
these BIF's I got them mixed up frequently, and finally had to post a note
on my wall with big red letters reminding me what to use when. I'll second
your suggestion to the compiler team.
Terry Richardson
Vermont Information Processing, Inc.
terry@xxxxxxxxxx
cozzi@xxxxxxxxx
Sent by:
rpg400-l-bounces@ To
midrange.com rpg400-l@xxxxxxxxxxxx
cc
11/20/2003 04:31 Subject
PM Re: %EQUAL in a DOU loop
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
Gosh I know that, and knew that when I responsed too.
Didn't see it.
This is just another example of what needs to change in V5R3 or
sooner.
EVERY programmer, without exception, that I've seen code this type
of stuff, assumes that READ and READE return a %FOUND() condition
rather than %EOF(). %EOF may be important, but %FOUND is how we
logically think it should be coded.
I sure hope Hans & Barbara get a chance to "enhance" this in V5.3
and also get to PTF it back to V3R2. (Just kidding about the PTF
thing).
-Bob Cozzi
>
> The correct built in function to determine when READE does not get
a
> hit is
> %eof. For example:
>
> eval kfline = 0
> filekey15 setll file15
> if %equal
> filekey15 reade file15
> dow not %eof
> eval kf_line = kf_line + 1
> filekey15 reade file15
> enddo
> endif
>
> Mel Rothman
> Mel Rothman, Inc.
>
>
> Terry@xxxxxxxxxx wrote:
>
> >
> >
> >
> >
> > Not knowing what FILEKEY15 key lists consists of makes this a
> guess, but
> > assuming it's something like
> > FILEKEY15 klist
> > kfld SomeKey
> > kfld kf_line
> > and assuming the line number field name in the file is kf_line...
> >
> > I'd suggest trying something like:
> >
> > EVAL kf_line - *HIVAL
> > filekey15 setgt file15
> > SomeKey readpe file15
> > if %found(file15)
> > eval kf_line = kf_line + 1
> > else
> > eval kfline = 1
> > endif
> >
> >
> > Terry Richardson
> > V(Document link: Bookmarks (6))ermont Information Processing,
Inc.
> > terry@xxxxxxxxxx
> >
> >
> >
>
> > fkany@averittexpr
>
> > ess.com
>
> > Sent by:
> To
> > rpg400-l-bounces@ RPG400-L@xxxxxxxxxxxx
>
> > midrange.com
> cc
> >
>
> >
> Subject
> > 11/20/2003 11:34 %EQUAL in a DOU loop
>
> > AM
>
> >
>
> >
>
> > Please respond to
>
> > RPG programming
>
> > on the AS400 /
>
> > iSeries
>
> > <rpg400-l@midrang
>
> > e.com>
>
> >
>
> >
>
> >
> >
> >
> >
> >
> > Hello,
> >
> > The program seems to crash in the routine below. I know that
> there aren't
> > any records with 999 lines of notes. I'm thinking that maybe the
> program
> > keeps looping.
> > Am I missing something in the code below that would cause this
> routine to
> > keep looping?
> >
> > The program crashes with this message, "Receiver value too small
> to hold
> > result.
> > The target for a numeric operation is too small to hold the
result"
> >
> > Thanks,
> >
> > Frank
> >
> > C EVAL KF_LINE = 1
> > *
> > * Set File Pointer
> > C FILEKEY15 SETLL FILE15
> > *
> > * Notes Records Exist in File
> > C IF %EQUAL(FILE15)
> > *
> > * Find New Line # for Note #
> > C DOU NOT %EQUAL(FILE15)
> > C FILEKEY15 SETLL FILE15
> > *
> > C IF NOT %EQUAL(FILE15)
> > C LEAVE
> > C ENDIF
> > *
> > C IF %EQUAL(FILE15)
> > C EVAL KF_LINE = KF_LINE + 1
> > C ENDIF
> > *
> > C ENDDO
> >
>
>
> _______________________________________________
> 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.
_______________________________________________
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
