Difference between revisions of "Change Library List (QLICHGLL)"

From MidrangeWiki
Jump to: navigation, search
(Created page with "Category:API Category:RPG_Prototypes == Summary == The following is an RPG/LE fully free-form prototype for the IBM QLICHGLL API to change the current library, two pr...")
 
(Summary)
 
(4 intermediate revisions by the same user not shown)
Line 4: Line 4:
  
 
The following is an RPG/LE fully free-form prototype for the IBM QLICHGLL API to change the current library, two product libraries, and the user part of the library list for the current job.
 
The following is an RPG/LE fully free-form prototype for the IBM QLICHGLL API to change the current library, two product libraries, and the user part of the library list for the current job.
 +
 +
For more information on this API, visit [https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qlichgll.htm Change Library List (QLICHGLL) API] (right-click to open link in a new tab).
 +
 +
By [[User:DaveLClarkI|Dave Clark]]
  
 
== Prototype for the QLICHGLL API ==
 
== Prototype for the QLICHGLL API ==
 
<pre>
 
<pre>
 
//******************************************************************************
 
//******************************************************************************
// IBM Add List Entry API
+
// IBM API to Change the User Library List in toto
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/quiaddle.htm
+
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qlichgll.htm
 
//******************************************************************************
 
//******************************************************************************
dcl-pr IBMUIM_AddListEntry        extpgm('QUIADDLE');
+
dcl-pr IBMAPI_ChangeLibraryList  extpgm('QLICHGLL');
   AeHandle              char(8)   const;
+
   ChgLibCur            char(11) const;
   AeBuffer              char(32767)        options(*varsize);
+
   ChgLibPrd1            char(11) const;
   AeBufLen              int(10)   const;
+
   ChgLibPrd2            char(11) const;
   AeRecName             char(10const;
+
   ChgLibLst             char(11dim(250options(*varsize);
  AeLstName            char(10const;
+
   ChgLibLstC            int(10)  const;
   AeOption              char(4)  const;
+
   ChgLibErrC            likeds(ApiErrC)    options(*varsize);
   AeHandle              char(4);
 
  AeErrCode            likeds(ApiErrC)    options(*varsize);
 
 
end-pr;
 
end-pr;
 
</pre>
 
</pre>
  
 
== References ==
 
== References ==
* [[ApiErrC — API Error Code]]
+
* [[API Error Code Structure (ApiErrC)]]

Latest revision as of 16:47, 17 December 2018

Summary

The following is an RPG/LE fully free-form prototype for the IBM QLICHGLL API to change the current library, two product libraries, and the user part of the library list for the current job.

For more information on this API, visit Change Library List (QLICHGLL) API (right-click to open link in a new tab).

By Dave Clark

Prototype for the QLICHGLL API

//******************************************************************************
// IBM API to Change the User Library List in toto
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qlichgll.htm
//******************************************************************************
dcl-pr IBMAPI_ChangeLibraryList   extpgm('QLICHGLL');
  ChgLibCur             char(11)  const;
  ChgLibPrd1            char(11)  const;
  ChgLibPrd2            char(11)  const;
  ChgLibLst             char(11)  dim(250)  options(*varsize);
  ChgLibLstC            int(10)   const;
  ChgLibErrC            likeds(ApiErrC)     options(*varsize);
end-pr;

References