Retrieve Lock Information (QWCRLCKI)

From MidrangeWiki
Jump to: navigation, search

Summary

The following is an RPG/LE fully free-form prototype for the IBM QWCRLCKI API to retrieve information for locks on an object.

For more information on this API, visit Retrieve Lock Information (QWCRLCKI) API (right-click to open link in a new tab).

By Dave Clark

Prototype for the QWCRLCKI API

//****************************************************************************** 
// IBM API to Retrieve Lock Information 
// https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/apis/qwcrlcki.htm
//****************************************************************************** 
dcl-pr IBMAPI_RetrieveLockInfo    extpgm('QWCRLCKI');
  LckInfRcvr            char(65535)         options(*varsize);
  LckInfRLen            int(10)   const;
  LckInfRFmt            char(8)   const;
  LckInfObjI            char(64)            options(*varsize);
  LckInfOFmt            char(8)   const;
  LckInfKeyC            int(10)   const;
  LckInfKeyF            int(10)   dim(9)    options(*varsize);
  LckInfFltr            char(18)            options(*varsize);
  LckInfFFmt            char(8)   const;
  LckInfErrC            likeds(ApiErrC)     options(*varsize);
end-pr;

References