RE: Modules with files and references to INFDS, but no MAIN, andthe NOMAIN H-spec, was Re: Recursion and CALLB

I do something like David. As long as the program contains the CLOSE
opcode somewhere, it doesn't matter if it is ever invoked or not. If you
put all the Close <myfile> instructions in a subprocedure you never call
or only call when you want to collect garbage, the compiler won't mind.

Roger Mackie

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David Gibbs
Sent: Monday, June 23, 2008 8:38 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Modules with files and references to INFDS, but no MAIN,
andthe NOMAIN H-spec, was Re: Recursion and CALLB

James Lampert wrote:

If we have a NOMAIN H-spec, it complains if we open files explicitly
but don't close them. It would be nice if we didn't have to keep
opening and closing files with every recursive invocation of the

procedure.

I suggested killing the NOMAIN, in the hopes that doing so would kill
the complaints.

Perhaps something like this?

FILEopen = *off;

if not %open(FILE);
open FILE;
FILEopen = *on;
endif;

// recursive stuff happens

if FILEopen;
close FILE;
endif;