Re: %EQUAL in a DOU loop

On Thu, 20 Nov 2003 10:34:46 -0600
 fkany@xxxxxxxxxxxxxxxxxx wrote:

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.