Re: Ending a program from within a procedure

Holden Tommy wrote:
> 
> You can avoid using *INLR....by explicitly closing all files/ODPs etc THEN 
> using return....
> 
> But I'd rather use one line of code *INLR=*On instead of
> 
> /free
>    close file1;
>    close file2;
>    close file3;
>    return;
> /end-free
> 

You could use CLOSE *ALL.

Using explicit CLOSE operations only handles part of what *INLR=*ON
does.  Ending the main procedure of a module with LR on also causes the
global variables to be reinitialized on the next call to the main
procedure.