RE: OPNQRYF does not seem to be working

Dave:

The bonus is, with your method, the program has completely predictable
behavior.  It accounts for those pesky cases where the file is empty. <g> 

> -----Original Message-----
> From: Kahn, David [JNJFR] [mailto:DKahn1@JNJFR.JNJ.com]
> Sent: Friday, October 01, 1999 12:18 AM
> To: 'RPG400-L@midrange.com'
> Subject: RE: OPNQRYF does not seem to be working
> 
> 
> Joel,
> 
> Much simpler just to code an unconditioned LEAVE immediately 
> after the DOW
> or DOU. Also gives a tremendous performance boost and saves all that
> tiresome program testing. :-)
> 
> Dave Kahn
> Johnson & Johnson International (Ethicon) France
> Phone : +33 1 55 00 3180
> Email :  dkahn1@jnjfr.jnj.com (work)
>          dkahn@cix.co.uk      (home)
> 
> 
> -----Message d'origine-----
> De: Joel Fritz [mailto:JFritz@sharperimage.com]
> Date: 30 September 1999 18:34
> À: 'RPG400-L@midrange.com'
> Objet: RE: OPNQRYF does not seem to be working
> 
> 
> I find that setting on LR in the *INZSR helps conserve 
> machine resources.
> <g>
> The thing I usually do is in a program that is based on a 
> read loop with a
> priming read is to condition the loop to look for the end of 
> file indicator
> *ON.  I.e. dow *in99 = *on.  Those always run really fast.
> +---
> | 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
+---