Difference between revisions of "Send Data Queue (QSNDDTAQ)"
From MidrangeWiki
m |
DaveLClarkI (talk | contribs) (→Prototype for the QSNDDTAQ API) |
||
| (4 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| + | [[Category:API]] | ||
[[Category:RPG_Prototypes]] | [[Category:RPG_Prototypes]] | ||
[[Category:Data Queue]] | [[Category:Data Queue]] | ||
| − | = | + | == 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 9: | 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;
