RE: RPG Indicators

[Andrew Sereda <asereda@xxxxxxxxxxx>]

Title: RE: RPG Indicators

I found addition inconvenience as for using %found and %eof.
Normaly I use such routine:
Key  chain format         99
     dow   *in99=*off
...
...
Key  reade format           99
     enddo

In case %eof is not working with chain opcode I need to insert addition 'if'.
so I should do:

Key  chain format
     if    %foun
...
Key  reade format
     endif
     dow not %eof
...
Key  reade format
     enddo     

Thanks,

Andrew
-----Original Message-----
From: McCallion, Martin [mailto:MccalliM@Midas-Kapiti.com]
Sent: Thursday, April 13, 2000 5:37 PM
To: 'RPG400-L@midrange.com'
Subject: RE: RPG Indicators

I think that %found doesn't work for READ* opcodes.  You might want to
try %eof instead.  In any case it's better practice to use
%found(filename).  That way it's always clear exactly which condition
you're testing.  Without the file name, %found reflects the result of
the most recent applicable opcode.

Cheers,

Martin.

--                                                                    
Martin McCallion                
Midas-Kapiti International
Work:  mccallim@midas-kapiti.com
Home: martin.mccallion@ukonline.co.uk

Apologies for the length of this sig, but company policy says:
This email message is intended for the named recipient only.  It may be
privileged and/or confidential.  If you are not the intended named
recipient of this email then you should not copy it or use it for any
purpose, nor disclose its contents to any other person.  You should
contact Midas-Kapiti International as shown below so that we can take
appropriate action at no cost to yourself.

Midas-Kapiti International Ltd, 1 St George's Road, Wimbledon, London,
SW19 4DR, UK
Email: Postmaster@midas-kapiti.com Tel: +44 (0)208 879 1188 Fax: +44
(0)208 947 3373
Midas-Kapiti International Ltd is registered in England and Wales under
company no. 971479

.:.
+---
| 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
+---