List Object Locks (QWCLOBJL)

From MidrangeWiki
Jump to: navigation, search

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;

References