RE: RPG Indicators

You can just replace the chain with a setll/reade.

        Key  setll format
        Key  reade format
             dow   not %eof 
        ... 
        ... 
        Key  reade format
             enddo 

        Scott Mildenberger


> -----Original Message-----
> From: Andrew Sereda [SMTP:asereda@HU.EEFT.COM]
> Sent: Friday, April 14, 2000 10:55 AM
> To:   'RPG400-L@midrange.com'
> Subject:      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 
> +--- 
> 
+---
| 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
+---