Difference between revisions of "QMHSNDPM"

From MidrangeWiki
Jump to: navigation, search
(Blanked the page)
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]]
 

Revision as of 19:47, 29 March 2016