RE: Service Program Question.

That's what I thought.  But when you said to remember to close the files in
the service program, I thought there was something else.

I played with that... ran into problems.  Especially when checking the open
status of a file.  It didn't alway return the right value.  Bif or INFDS.
So, I just don't worry about it.  

I dont know of any programs I have that just do a sequential read anyhow, so
it's no biggie.  That's what access paths are for.  ;)

Brad

> -----Original Message-----
> From: boldt@ca.ibm.com [mailto:boldt@ca.ibm.com]
> Sent: Thursday, April 06, 2000 12:58 PM
> To: RPG400-L@midrange.com
> Subject: RE: Service Program Question.
> 
> 
> 
> 
> Brad:
> >What happens if you don't close the files?  What happens on 
> the next call?
> >Are the files closed and opened again?  What exactly happens?
> 
> What normally happens when you don't close files and
> return with LR off?  If you're doing sequential reads
> to the file, you'll resume reading where you left off
> the last time in, right?
> 
> A NOMAIN service program is more or less just like a
> traditional RPG program that returns with LR off.  The
> only difference is that since the bulk of the RPG
> cycle logic is gone, you don't have the automatic
> closing of files.
> 
> Cheers!  Hans
> 
> Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.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
+---