RE: Files left open

Thanks a bunch Chuck, this does helps.

Thanks,
Ashwani


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Thursday, August 25, 2016 6:08 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Files left open

On 25-Aug-2016 09:30 -0700, Singh, Ashwani (Lake Mary) wrote:

We are experiencing some issues with Files being left open [...]

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?

One possibility would be to start journaling the physical files but _do not omit_ the Open\Close (*OPNCLO) entries when Start Journal Physical File (STRJRNPF); i.e. specify *NONE for the Journal Entries To Be Omitted (OMTJRNE). The logged entry will include the program that opened the file.

Another possibility is to collect a trace of a request known to leave the file(s) open when not desired; the trace data logs the open of the file.member [TRCJOB *ON and TRCJOB *OFF, or, IIRC, the STRTRC and ENDTRC combo].

There is also a Database Open-File Exit feature that can track all
opens: [Open Database File (QIBM_QDB_OPEN) exit program is called when a when a job is opening a database
file.](http://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_71/apis/xopendbf.htm)

--
Regards, Chuck

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