Difference between revisions of "Change Library List (QLICHGLL)"
From MidrangeWiki
DaveLClarkI (talk | contribs) (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...") |
DaveLClarkI (talk | contribs) (→Prototype for the QLICHGLL API) |
||
| Line 8: | Line 8: | ||
<pre> | <pre> | ||
//****************************************************************************** | //****************************************************************************** | ||
| − | // IBM | + | // IBM API to Change the User Library List in toto |
| − | // https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/ | + | // https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qlichgll.htm |
//****************************************************************************** | //****************************************************************************** | ||
| − | dcl-pr | + | 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; | end-pr; | ||
</pre> | </pre> | ||
Revision as of 17:47, 6 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.
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;
