Re: Handling Files in a Subproceedure

[Mike <koldark@xxxxxxxxx>]

They way Scott worded it, it sounded like it can be done automagically.

On 7/19/07, Michael_Schutte@xxxxxxxxxxxx <Michael_Schutte@xxxxxxxxxxxx>
wrote:
> Umm, Mike
>
> You just call the closefiles() subprocedure before the program ends.
>
>
> Michael Schutte
> Admin Professional
> Bob Evans Farms, Inc.
> "The Secret's the Sauce! Enjoy our new Bob-B-Q Pulled Pork Knife & Fork
> Sandwich!"
>
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/19/2007 03:52:27 PM:
>
> > How do you do that? I didn't know you could do that.
> >
> > On 7/19/07, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> wrote:
> > >
> > > I also like to code a "closefiles" subprocedure that does the opposite
> > > (closes all files) and turns off the global indicator (if you use
> one).
> > >     This prevents a warning message from the compiler (it complains
> that
> > > the files are USROPN but you never close them unless it finds a close
> > > statement.)
> > >
> >
> > --
> > Mike Wills
> > http://www.linkedin.com/in/mikewills
> > Blog - http://mikewills.name
> > Podcasts - http://podcastmike.com
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.