Re: %EQUAL in a DOU loop

[dmosley@xxxxxxxxxx]

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