Re: files left open

[Patrick W Conner <PWConner@xxxxxxxxxxx>]

Since these modules have NoMain specified on the H-spec the RPG cycle does not
control the opening and closing as usual. The first time you enter one of these
procedures the files will be open for you, but that's it. Go back and look at
your compiles of these modules. You'll see a warning telling you to close the
files on your own if you want them closed at the end of the procedures.
You may want to use:
    If    not %open(file)
    Open    file
    EndIf
at the beginning of you procedures and:
    Close    file
at the end.

However, take a look at your over all design. It might be advantageous to leave
them open. For instance, if you are going to be returning to the NoMain
procedures a lot within a process. Also, you may determine at a particular exit
point you want to go back and close all the files at once. Consider a close
routine when F3=Exit is pressed from the main display.

James David Rich wrote:

> I have a program which is leaving files open after it exits.  The program
> consists of three modules.  Each module has its own screen file and opens
> a database file.  The two modules which have NOMAIN in the H spec are
> leaving their associated files open after the program exits.  This is not
> good.  Aren't all files supposed to be closed when the program exits
> (including files opened by various modules of a program)?

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