Difference between revisions of "List Object Locks (QWCLOBJL)"
From MidrangeWiki
DaveLClarkI (talk | contribs) (Created page with "Category:API Category:RPG_Prototypes Category:User_Spaces == Summary == The following is an RPG/LE fully free-form prototype for the IBM QWCLOBJL API to list obje...") |
DaveLClarkI (talk | contribs) (→Prototype for the QWCLOBJL API) |
||
| Line 24: | Line 24: | ||
ObjLckErrC likeds(ApiErrC) options(*varsize); | ObjLckErrC likeds(ApiErrC) options(*varsize); | ||
// optional parm group 1 | // optional parm group 1 | ||
| − | ObjLckPath char(512) const options(*varsize); | + | ObjLckPath char(512) const options(*nopass:*varsize); |
| − | ObjLckPLen int(10) const; | + | ObjLckPLen int(10) const options(*nopass); |
// optional parm group 2 | // optional parm group 2 | ||
| − | ObjLckASPN char(10) const; | + | ObjLckASPN char(10) const options(*nopass); |
end-pr; | end-pr; | ||
</pre> | </pre> | ||
Latest revision as of 15:49, 29 January 2019
Summary
The following is an RPG/LE fully free-form prototype for the IBM QWCLOBJL API to list object locks into a user space.
For more information on this API, visit List Object Locks (QWCLOBJL) API (right-click to open link in a new tab).
By Dave Clark
Prototype for the QWCLOBJL API
//******************************************************************************
// IBM API to List Object Locks into a User Space
// https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/apis/qwclobjl.htm
//******************************************************************************
dcl-pr IBMAPI_ListObjectLocks extpgm('QWCLOBJL');
ObjLckSpcN char(20) const;
ObjLckFmtN char(8) const;
ObjLckObjN char(20) const;
ObjLckOTyp char(10) const;
ObjLckMbrN char(10) const;
ObjLckErrC likeds(ApiErrC) options(*varsize);
// optional parm group 1
ObjLckPath char(512) const options(*nopass:*varsize);
ObjLckPLen int(10) const options(*nopass);
// optional parm group 2
ObjLckASPN char(10) const options(*nopass);
end-pr;
