Re: Displaying functional value in debug

[pcunnane@xxxxxxxxxxxxxx (Paul Cunnane)]

>>I'm trying to see what the 
>>value of %EOF is while in
>>debug.
>
>Sorry, it can't be done, and it's a bit depressing.  More valuable to me 
>would be the ability to set/reset these BIFs.  About the only way to deal 
>with the situation is to use a flag to indicate the value (can you say 
>indicator?  :-) )

Just curious, why would you ever want to use (say) [eval %eof = *on]?  I 
don't see any particularly elegant applications for this.
     
>key chain(e) rcdfmt
>    if %eof
>    eval fileAtEOF = 'Y'
>    else
>    eval fileAtEOF = 'N'
>    endif

I would define fileAtEOF as an indicator (N), so that later code could use it in
the form [if fileAtEOF] without the cumbersome [= 'Y'].

-- 
Paul

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---