Access to ‘object in use’ attribute of IFS object from QSYS RPGLE
If you open a document which is stored in the IFS with OpenOffice, examining the object with Navigator allows you to see the 'in Use' property - it says that there is 1 Netserver reference.
Examining DSPLNK for the same object shows no such 'in use' attribute.
How do I get to that attribute in RPG?
I need to check to see if another job is currently using the object. I suspect an API may be involved? there appears to be nothing about the object itself which I can access using 'normal' streamfile read/write/authority tools.
Software/Hardware used:
iSeries i5/OS v5r4
Examining DSPLNK for the same object shows no such 'in use' attribute.
How do I get to that attribute in RPG?
I need to check to see if another job is currently using the object. I suspect an API may be involved? there appears to be nothing about the object itself which I can access using 'normal' streamfile read/write/authority tools.
Software/Hardware used:
iSeries i5/OS v5r4
ASKED:
August 12, 2009 12:46 PM
UPDATED:
October 27, 2009 1:51 AM
Answer Wiki:
Yes there is an IBM API program for this:
CALL QP0FPTOS PARM(*LSTOBJREF '/ifspath/ifsfile' *FORMAT2)
It will produce a detailed spooled file report with all the jobs that have a lock on that IFS object and the type of lock they have.
=============================================================
You probably want the Retrieve Object References (QP0LROR) API. I think IBM first supplied decent documentation in V5R4: <a href="http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/apis/qp0lror.htm">Retrieve Object References (QP0LROR) API</a>
It's not trivial. I think I can supply an ILE CL example. (If you can read CL, you ought to be able to convert to any other language.)
Tom
To see all answers submitted to the Answer Wiki: View Answer History.
Thanks for that.
The only problem is that it’s a program, and that to get usab;e results would mean the old route of CPYSPLF and a parser program to read back the results. Even encapsulating all of that into a single RPG pgm, using User open of the SPLF, what you get is a clunky piece of work that lacks the elegance we look for in ILE. We already have and use a clunky solution (!)
To call this program you must have *SERVICE special authority too, so implementing it would mean having to adopt authority, and auditors will ask ‘why does this. . . blah blah – the way auditors do (for they lack both imagination and knowledge)
Adopt my own oft repeated advice and RTFM – some reserach is needed, but as ever, there’s no time left in this project for an unforseen issue.
If you are only wanting to see if the file is in use you might be able to use the Open Stream File (QHFOPNSF) API and check for an error message code to see if it is in use. I have not used this API but have used similar ones to fine the status on other types of objects. I would assume the file is not in use if you did not get an error on the open. You may need to follow up with the Close Stream File (QHFCLOSF) API when finished.
You can search the V5R4 API’s at the API finder page