Difference between revisions of "Send Program Message (QMHSNDPM)"

From MidrangeWiki
Jump to: navigation, search
(Created page with "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. = Proto...")
 
(References)
Line 39: Line 39:
  
 
== References ==
 
== References ==
* [[ApiErrC]]
+
* [[ApiErrC — API Error Code]]

Revision as of 20:20, 29 March 2016

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             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;

References