Difference between revisions of "Send Program Message (QMHSNDPM)"
From MidrangeWiki
DaveLClarkI (talk | contribs) |
DaveLClarkI (talk | contribs) m (DaveLClarkI moved page QMHSNDPM — Send Program Message to Send Program Message (QMHSNDPM): Better Indexing (too many Q's)) |
(No difference)
|
Revision as of 20:30, 6 December 2018
Summary
The following is an RPG/LE free-form prototype for the IBM QMHSNDPM API to send a message to a program queue.
Prototype for the QMHSNDPM API
*========================================================================* * IBM API to Send to a Program Message Queue * * EXAMPLE: * callp IBMAPI_SendPgmMsg( 'WSE9897': 'WSMSGF SHR460': mtxt: %len(mtxt) * : '*INFO': '*': 3: mkey: ApiErrC); * if (ApiErrC.BytAvail > *zero); // if an error occurred * return *off; // indicate an error * endif; * return *on; // indicate success * * DOCUMENTATION: * http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/topic/apis/QMHSNDPM.htm *========================================================================* dcl-pr IBMAPI_SendPgmMsg ExtPgm('QMHSNDPM'); pMsgId Char(7) Const; pMsgFile Char(20) Const; pMsgData Char(3000) Const Options(*Varsize); pMsgDtaLen Int(10:0) Const; pMsgType Char(10) Const; pMsgCStEnt Char(10) Const; pMsgCStCnt Int(10:0) Const; pMsgKey Int(10:0); pMsgErrC LikeDS(ApiErrC) Options(*Varsize); pMsgCStLen Int(10:0) Const Options(*Nopass); pMsgCStQua Char(20) Const Options(*Nopass); pMsgDsWait Int(10:0) Const Options(*Nopass); pMsgCStTyp Char(10) Const Options(*Nopass); pMsgCcsId Int(10:0) Const Options(*Nopass); end-pr;