|
midrange.com
%FOUND is the equivalent of the HI indicator, used for CHAIN ops.
Use %EQUAL
David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513
www.dancik.com
Terry@xxxxxxxxxx
Sent by: To: RPG programming on
the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
rpg400-l-bounces@m cc:
idrange.com Subject: Re: %EQUAL in a DOU
loop
11/20/2003 11:48
AM
Please respond to
RPG programming on
the AS400 /
iSeries
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.
