Difference between revisions of "UIM Display Panel (QUIDSPP)"
From MidrangeWiki
DaveLClarkI (talk | contribs) m (DaveLClarkI moved page QUIDSPP — Display Panel to UIM Display Panel (QUIDSPP): Better Indexing (too many Q's)) |
DaveLClarkI (talk | contribs) (→References) |
||
| Line 33: | Line 33: | ||
== References == | == References == | ||
| − | * [[ | + | * [[API Error Code Structure (ApiErrC)]] |
Revision as of 22:59, 13 December 2018
Summary
The following is an RPG/LE fully free-form prototype for the IBM QUIDSPP API to use the UIM to display a panel within an open display application.
Prototype for the QUIDSPP API
//******************************************************************************
// IBM Display Panel API
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/quidspp.htm
//******************************************************************************
dcl-pr IBMUIM_DisplayPanel extpgm('QUIDSPP');
DpHandle char(8) const;
DpFunction int(10) const;
DpPnlName char(10) const;
DpRdsply char(1) const;
DpErrCode likeds(ApiErrC) options(*varsize);
//optional parm group 1
DpUsrTask char(1) const options(*nopass);
DpCstkCnt int(10) const options(*nopass);
DpMsgQue char(256) const options(*nopass:*varsize);
DpMsgKey char(4) const options(*nopass);
DpCsrPos char(1) const options(*nopass);
DpLstEntry char(4) const options(*nopass);
DpErrEntry char(4) const options(*nopass);
DpWaitTime int(10) const options(*nopass);
//optional parm group 2
DpMsgQueL int(10) const options(*nopass);
DpMsgQueQ char(20) const options(*nopass);
end-pr;
