Difference between revisions of "Receive Data Queue (QRCVDTAQ)"

From MidrangeWiki
Jump to: navigation, search
(Prototype for the QRCVDTAQ API)
Line 29: Line 29:
 
   DtaQBuffer            char(65535)        options(*varsize);
 
   DtaQBuffer            char(65535)        options(*varsize);
 
   DtaQWait              packed(5:0) const;
 
   DtaQWait              packed(5:0) const;
// opional parm group 1
+
// optional parm group 1
 
   DtaQKeyOrd            char(2)    const  options(*nopass);
 
   DtaQKeyOrd            char(2)    const  options(*nopass);
 
   DtaQKeyLen            packed(3:0) const  options(*nopass);
 
   DtaQKeyLen            packed(3:0) const  options(*nopass);
Line 35: Line 35:
 
   DtaQSndLen            packed(3:0) const  options(*nopass);
 
   DtaQSndLen            packed(3:0) const  options(*nopass);
 
   DtaQSndInf            char(44)    const  options(*nopass:*varsize);
 
   DtaQSndInf            char(44)    const  options(*nopass:*varsize);
// opional parm group 2
+
// optional parm group 2
 
   DtaQRemove            char(10)    const  options(*nopass);
 
   DtaQRemove            char(10)    const  options(*nopass);
 
   DtaQBsize            packed(5:0) const  options(*nopass);
 
   DtaQBsize            packed(5:0) const  options(*nopass);

Revision as of 16:29, 7 December 2018

Summary

Receives an entry from a Data Queue.

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

Prototype for the QRCVDTAQ API

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

An RPG fully free-form alternative:

//==============================================================================
// IBM API to Receive an entry from a Data Queue
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qrcvdtaq.htm
//==============================================================================
dcl-pr IBMAPI_RecvFromDtaQ   extpgm('QRCVDTAQ');
  DtaQName              char(10)    const;
  DtaQLib               char(10)    const;
  DtaQBufLen            packed(5:0);
  DtaQBuffer            char(65535)         options(*varsize);
  DtaQWait              packed(5:0) const;
// optional parm group 1
  DtaQKeyOrd            char(2)     const   options(*nopass);
  DtaQKeyLen            packed(3:0) const   options(*nopass);
  DtaQKeyData           char(256)   const   options(*nopass:*varsize);
  DtaQSndLen            packed(3:0) const   options(*nopass);
  DtaQSndInf            char(44)    const   options(*nopass:*varsize);
// optional parm group 2
  DtaQRemove            char(10)    const   options(*nopass);
  DtaQBsize             packed(5:0) const   options(*nopass);
  DtaQErrC              likeds(ApiErrC)     options(*nopass:*varsize);
end-pr;

References