Difference between revisions of "UIM Display Panel (QUIDSPP)"
From MidrangeWiki
DaveLClarkI (talk | contribs) (Created page with "Category:RPG_Prototypes Category:API == Summary == The following is an RPG/LE fully free-form prototype for the IBM QUIDSPP API to use the UIM to display a panel with...") |
DaveLClarkI (talk | contribs) |
||
| Line 1: | Line 1: | ||
| + | [[Category:API]] | ||
[[Category:RPG_Prototypes]] | [[Category:RPG_Prototypes]] | ||
| − | |||
== Summary == | == Summary == | ||
Revision as of 20:06, 4 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;
