Difference between revisions of "Send Data Queue (QSNDDTAQ)"

From MidrangeWiki
Jump to: navigation, search
(Prototype for the QSNDDTAQ API)
 
(3 intermediate revisions by the same user not shown)
Line 2: Line 2:
 
[[Category:RPG_Prototypes]]
 
[[Category:RPG_Prototypes]]
 
[[Category:Data Queue]]
 
[[Category:Data Queue]]
=Send Data Queue Entry=
+
== Summary ==
 
Sends an entry to a [[:Category:Data Queue|Data Queue]].
 
Sends an entry to a [[:Category:Data Queue|Data Queue]].
 +
 +
For more information on this API, visit [https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qsnddtaq.htm Send Data Queue (QSNDDTAQ) API] (right-click to open link in a new tab).
 +
 +
== Prototype for the QSNDDTAQ API ==
 
<pre>
 
<pre>
 
DQSNDDTAQ        PR                  EXTPGM('QSNDDTAQ')             
 
DQSNDDTAQ        PR                  EXTPGM('QSNDDTAQ')             
Line 10: Line 14:
 
D prDQLen                        5P 0 const                         
 
D prDQLen                        5P 0 const                         
 
D prDQData                  32767A  const options(*varsize)       
 
D prDQData                  32767A  const options(*varsize)       
 +
</pre>
 +
 +
An RPG/LE fully free-form alternative (by [[User:DaveLClarkI|Dave Clark]]):
 +
<pre>
 +
//==============================================================================
 +
// IBM API to Send an entry to a Data Queue
 +
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qsnddtaq.htm
 +
//==============================================================================
 +
dcl-pr IBMAPI_SendToDtaQ    extpgm('QSNDDTAQ');
 +
  DtaQName              char(10)    const;
 +
  DtaQLib              char(10)    const;
 +
  DtaQBufLen            packed(5:0);
 +
  DtaQBuffer            char(65535)        options(*varsize);
 +
// opional parm group 1
 +
  DtaQKeyLen            packed(3:0) const  options(*nopass);
 +
  DtaQKeyData          char(256)  const  options(*nopass:*varsize);
 +
// opional parm group 2
 +
  DtaQAsync            char(10)    const  options(*nopass);
 +
// opional parm group 3
 +
  DtaQJrnlE            char(10)    const  options(*nopass);
 +
end-pr;
 
</pre>
 
</pre>

Latest revision as of 16:59, 17 December 2018

Summary

Sends an entry to a Data Queue.

For more information on this API, visit Send Data Queue (QSNDDTAQ) API (right-click to open link in a new tab).

Prototype for the QSNDDTAQ API

DQSNDDTAQ         PR                  EXTPGM('QSNDDTAQ')            
D prDQName                      10A   const                         
D prDQLibr                      10A   const                         
D prDQLen                        5P 0 const                         
D prDQData                   32767A   const options(*varsize)       

An RPG/LE fully free-form alternative (by Dave Clark):

//==============================================================================
// IBM API to Send an entry to a Data Queue
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qsnddtaq.htm
//==============================================================================
dcl-pr IBMAPI_SendToDtaQ     extpgm('QSNDDTAQ');
  DtaQName              char(10)    const;
  DtaQLib               char(10)    const;
  DtaQBufLen            packed(5:0);
  DtaQBuffer            char(65535)         options(*varsize);
// opional parm group 1
  DtaQKeyLen            packed(3:0) const   options(*nopass);
  DtaQKeyData           char(256)   const   options(*nopass:*varsize);
// opional parm group 2
  DtaQAsync             char(10)    const   options(*nopass);
// opional parm group 3
  DtaQJrnlE             char(10)    const   options(*nopass);
end-pr;