Difference between revisions of "QMHSNDPM"
From MidrangeWiki
DaveLClarkI (talk | contribs) (Created page with "The following is an RPG/LE free-form prototype for the IBM QMHSNDPM API: <pre> *========================================================================* * IBM API...") |
DaveLClarkI (talk | contribs) |
||
| Line 24: | Line 24: | ||
pMsgCStCnt Int(10:0) Const; | pMsgCStCnt Int(10:0) Const; | ||
pMsgKey Char(4); | pMsgKey Char(4); | ||
| − | pMsgErrC LikeDS( | + | pMsgErrC LikeDS(ApiErrC) Options(*Varsize); |
pMsgCStLen Int(10:0) Const Options(*Nopass); | pMsgCStLen Int(10:0) Const Options(*Nopass); | ||
pMsgCStQua Char(20) Const Options(*Nopass); | pMsgCStQua Char(20) Const Options(*Nopass); | ||
| Line 32: | Line 32: | ||
end-pr; | end-pr; | ||
</pre> | </pre> | ||
| + | Note: See the [[ApiErrC]] page for a description of this data structure. | ||
Revision as of 18:21, 29 March 2016
The following is an RPG/LE free-form prototype for the IBM 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 Char(4);
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;
Note: See the ApiErrC page for a description of this data structure.
