Retrieve Data Queue Description (QMHQRDQD)

From MidrangeWiki
Revision as of 20:50, 6 December 2018 by DaveLClarkI (talk | contribs)
Jump to: navigation, search

Summary

The following is an RPG/LE fully free-form prototype for the IBM QMHQRDQD API to retrieve the object description for a data queue.

Prototype for the QMHQRDQD API

//******************************************************************************
// IBM API to Retrieve a Data Queue's Description
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qmhqrdqd.htm
//******************************************************************************
/include qsysinc/qrpglesrc,qmhqrdqd         // QMHQRDQD API data structures
dcl-pr IBMAPI_RtvDtaQDesc         extpgm('QMHQRDQD');
  DtaQDesc              likeds(QMHD0100)    options(*varsize);
  DtaQDscL              int(10)   const;
  DtaQDFmt              char(8)   const;
  DtaQName              char(20)  const;
end-pr;

References