× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



And, if you use CODE/400 with it's wonderful wizards, then generating a
file information data structure is a cinch!


Rob Berendt

==================
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "McManus, Duncan"
                    <Duncan.McManus@natexism       To:     
"'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
                    etals.com>                     cc:
                    Sent by:                       Fax to:
                    rpg400-l-admin@midrange.       Subject:     RE: Change 
indicator %found or %eof
                    com


                    11/23/2001 05:33 AM
                    Please respond to
                    rpg400-l







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

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







As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.