RE: Change indicator %found or %eof

["McManus, Duncan" <Duncan.McManus@xxxxxxxxxxxxxxxxx>]

If you have a file information data structure in the program, then it may be
possible to change the status code for that file. As I haven't tried this, I
don't know whether this would be a good idea, or even if it would work.

I am assuming that since you are in debug, that you have an error in the
program? Could it be that there is a different file name on the EOF
condition to the READE, and so this program (in it's present state) will
either be an infinite loop or will not enter it at all.

Also, %FOUND is not set on be the READE statement. Thus, I believe that it
is useless in this case.

Hope this helps
Duncan McManus
Natexis Metals



-----Original Message-----
From: YJacqueline@guydegrenne.fr [mailto:YJacqueline@guydegrenne.fr]
Sent: 23 November 2001 10:14
To: rpg400-l@midrange.com
Subject: Change indicator %found or %eof


Hello,

My program is like this :

C     CLEP31        SETLL          GCO31F06
C     CLEP31        READE (E)      GCO31F06
C                        DOW             %EOF(GCO31L06) = *OFF
C                        IF                   %FOUND(GCO31L06)
C              WRITE          SUBFILE
C                        ENDIF
C     CLEP31        READE (E)      GCO31F06
C                        ENDDO

In STRDBG, could you explain, how I can change the (*on or *off) for
(%found or %eof).
I'm not using indicator and I don't want to use it.

Best regards.

Yannick.Jacqueline
Service Informatique
Tél : 02-31-66-46-69
E-Mail : yjacqueline@guydegrenne.fr
Visitez notre site Web à : http://www.guydegrenne.fr/


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


================================================================
The integrity of this message cannot be guaranteed on the Internet.
Natexis Metals Limited cannot therefore be considered responsible
for the contents. Any unauthorised use or dissemination is prohibited.
If you are not the intended recipient of this message please delete it
and notify the sender.

*** PLEASE NOTE AS FROM 28TH JUNE 2001, OUR EMAIL ***
*** ADDRESS FORMAT WILL BE :
                            firstname.surname@natexismetals.com