Re: Files left open

[Jose Perez <joseenocperez.jp@xxxxxxxxx>]

Use WRKOBJLCK,  besides be aware of this your process should not leave any
file open once it finish, if you have service program using Return instead
of *INLR=*ON this keep the file open. Local files used in a procedure ( If
you code an F spec after a P spec, then that file is local to the
subprocedure.) are automatically close once the procedure end now if you
use STATIC  keyword on your local file,that means the file will remain open
at its current position and keep open between calls of procedures, file
will be close when at the very end of your process you use the operation
code CLOSE, instead if file is Defined as a  Global File (Before or outside
of a procedure P and program does not have Main or NOMAIN keyword) then
this kind of file should be close once you do *INLR=*ON, other way to get
rid of your issue is to determine when to open and close the file and this
can be done using the keyword USROPN when defining the file and then Open
when needed and close it when no needed.

On Thu, Aug 25, 2016 at 12:30 PM, Singh, Ashwani (Lake Mary) <
Ashwani.Singh@xxxxxxxxxx> wrote:

> We are experiencing some issues with Files being left open by calling
> programs (we are trying to fix these as well by ensuring that programmer
> are including the shutdown calls in the service programs they are building
> etc.) in our batch processing, causing issues later on when some other
> program in the job stream tries to clear the file.
>
> My question is can we find which program has left a particular instance of
> file open so that we can identify and correct these issues quickly?
>
>
> Thanks,
> Ashwani
> --
> This is the RPG programming on the IBM i (AS/400 and 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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.