Difference between revisions of "QMHSNDPM"

From MidrangeWiki
Jump to: navigation, search
Line 1: Line 1:
The following is an RPG/LE free-form prototype for the IBM QMHSNDPM API:
+
[[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 QMHRTVM API =
 
<pre>
 
<pre>
 
       *========================================================================*
 
       *========================================================================*

Revision as of 18:35, 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 QMHRTVM 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.