Re: %EOF

If the 2 filenames are for the same file, the quick fix
is to remove the filename.  This worked for us.

Otherwise there is a PTF for this.  Look at APAR
SA77925.  The PTF available for V4R2 & V4R3 is
SF53747.  Don't know about the other releases.

We had noticed this problem right away.  The PTF
did not come out until Feb 26, 99, which we got
and applied that day.
--  
------------------------------------------------------
Scott P. Johnson
Programmer/Analyst
IBM Certified Specialist - AS/400 RPG Programmer
Highsmith Inc.
W5527 Hwy 106, PO BOX 800
Fort Atkinson, WI 53538-0800
TEL:  920-563-9571                FAX:  920-563-7395
sjohnson@highsmith.com
www.highsmith.com
------------------------------------------------------
> Nelson C. Smith wrote:
> 
> Has anyone here had problems associating a filename with the %EOF bif?  I've
> been experiencing intermittent problems which seem to be occuring only in
> service programs.  When I pull the code out to a separate program to try to
> isolate it, it works fine (naturally).  Here's what I'm seeing:
> 
> Key        SETLL    Filename
> 
>             DOU    %EOF(Filename)
> Key        READE    Filename
> 
>              If          %EOF(Filename)
>                 Leave
>             Endif
> 
>             If            %EOF
>                 Leave
>             Endif
> 
>         (do some code here)
>             Enddo
> 
> When executing this code against an empty file, the first LEAVE does not
> execute, but the second one does.  When I put a numeric indicator on the
> READE, it comes on normally.  This is the entire code in a procedure in a
> service program (second LEAVE was added in testing) and, as I say, when pulled
> out into a test program it works fine.  Does anyone know how the filename gets
> associated with the %EOF and what might disrupt that association?  There is no
> code between the READE and the first IF.  I'm on V4R3.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *