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

From MidrangeWiki
Jump to: navigation, search
(References)
Line 1: Line 1:
 
[[Category:RPG_Prototypes]]
 
[[Category:RPG_Prototypes]]
 
[[Category:API]]
 
[[Category:API]]
= Summary =
+
== Summary ==
 
The following is an RPG/LE free-form prototype for the IBM QMHSNDPM API to send a message to a program queue.
 
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 =
+
== Prototype for the QMHSNDPM API ==
 
<pre>
 
<pre>
 
       *========================================================================*
 
       *========================================================================*

Revision as of 19:05, 6 April 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