RE: %EOF

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

There's a PTF for this for V4R2: SF53747.  See the IBM PTF site:
http://as400service.rochester.ibm.com/, Tech Info & databases, PTF Cover
letters, All PTFs by number, Search for "RPG AND %FOUND" - Search all cover
letters.  I couldn't find a PTF for V4R3, although the cover letter mentions
SF49677 V4R3M0 as a pre-req for this ptf; perhaps a call to IBM is in order.

Buck Calabro

> -----Original Message-----
> From: Nelson C. Smith 
> Sent: Thursday, June 17, 1999 9:04 PM
> To:   RPG400-L@midrange.com
> Subject:      %EOF 
> 
> 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *