Difference between revisions of "List Object Locks (QWCLOBJL)"

From MidrangeWiki
Jump to: navigation, search
(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...")
 
(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;

References