RE: Program looping

I agree with Buck.  The code looks clean.  But the mention of possibly going
over the 9999 max is another clue as well.  If that's not the case, I would
assume communications.

> -----Original Message-----
> From: Buck Calabro [mailto:Buck.Calabro@commsoft.net]
> Sent: Wednesday, May 23, 2001 10:31 AM
> To: RPG400-L@midrange.com
> Subject: RE: Program looping
> 
> 
> Peter Colpaert wrote:
> 
> -snip about program looping for ONE user-
> 
> >C     #HRRN         CHAIN     SFL02                              5152
> >C     *IN51         DOWEQ     *OFF
> -snip-
> >C     #HRRN         CHAIN     SFL02                              5152
> >C                   ENDDO
> 
> I think you are correct when you think it is a communications 
> problem.  This
> code traps I/O errors (indicator 52) and then ignores them.  
> Add the file
> information data structure, especially the major/minor return codes
> (401-404) and *STATUS.  Add the program status data 
> structure.  Add h debug.
> When 52 is on,  DUMP the program and terminate.  The 
> major/minor should tell
> you if it is a comms error.
> 
> Buck Calabro
> Commsoft; Albany, NY
> "Nothing is so firmly believed as
>  that which we least know" -- Michel Montaigne
> Visit the Midrange archives at http://www.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
> +---
> 
+---
| 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
+---