|
|
| Line 1: |
Line 1: |
| − | [[Category:RPG_Prototypes]]
| |
| − | [[Category:API]]
| |
| − | = 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 =
| |
| − | <pre>
| |
| − | *========================================================================*
| |
| − | * 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;
| |
| − | </pre>
| |
| − |
| |
| − | == References ==
| |
| − | * [[ApiErrC]]
| |
