Difference between revisions of "Get List Entries (QGYGTLE)"
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 QGYGTLE API to get entries from an open list. ==...") |
DaveLClarkI (talk | contribs) (→Prototype for the QGYGTLE API) |
||
| Line 8: | Line 8: | ||
<pre> | <pre> | ||
//****************************************************************************** | //****************************************************************************** | ||
| − | // IBM API to | + | // IBM API to get entries from an open list |
| − | // https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/ | + | // https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qgygtle.htm |
//****************************************************************************** | //****************************************************************************** | ||
| − | dcl-pr | + | dcl-pr IBMAPI_GetListEntries extpgm('QGYGTLE'); |
| − | + | LstRcvVar char(65535) options(*varsize); | |
| − | + | LstRcvVarLen int(10) const; | |
| − | + | LstHandle char(4) const; | |
| − | + | LstInfo char(80); | |
| + | LstNbrRcdRtn int(10) const; | ||
| + | LstRtnRcdNbr int(10) const; | ||
| + | LstErrCode likeds(ApiErrC) options(*varsize); | ||
end-pr; | end-pr; | ||
</pre> | </pre> | ||
Revision as of 18:11, 6 December 2018
Summary
The following is an RPG/LE fully free-form prototype for the IBM QGYGTLE API to get entries from an open list.
Prototype for the QGYGTLE API
//******************************************************************************
// IBM API to get entries from an open list
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qgygtle.htm
//******************************************************************************
dcl-pr IBMAPI_GetListEntries extpgm('QGYGTLE');
LstRcvVar char(65535) options(*varsize);
LstRcvVarLen int(10) const;
LstHandle char(4) const;
LstInfo char(80);
LstNbrRcdRtn int(10) const;
LstRtnRcdNbr int(10) const;
LstErrCode likeds(ApiErrC) options(*varsize);
end-pr;
