UIM Open Display Application (QUIOPNDA)
From MidrangeWiki
Summary
The following is an RPG/LE fully free-form prototype for the IBM QUIOPNDA API to use the UIM to open a display application.
Prototype for the QUIOPNDA API
//****************************************************************************** // IBM Open Display Application API // https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/quiopnda.htm //****************************************************************************** dcl-pr IBMUIM_OpenDisplayApplication extpgm('QUIOPNDA'); OaHandle char(8); OaPnlGrp char(20) const; OaScope int(10) const; OaExtPint int(10) const; OaFulScrHlp char(1) const; OaErrCode likeds(ApiErrC) options(*varsize); end-pr;