Retrieve Spooled File Attributes (QUSRSPLA)
From MidrangeWiki
Revision as of 16:57, 7 December 2018 by DaveLClarkI (talk | contribs)
Summary
The following is an RPG/LE fully free-form prototype for the IBM QUSRSPLA API to retrieve attributes for a spooled file entry.
For more information on this API, visit Retrieve Spooled File Attributes (QUSRSPLA) API (right-click to open link in a new tab).
Prototype for the QUSRSPLA API
//****************************************************************************** // IBM API to Retrieve Spooled File Attributes // https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/QUSRSPLA.htm //****************************************************************************** /include qsysinc/qrpglesrc,qusrspla // QUSRSPLA API data structures dcl-pr IBMAPI_RtvSplFileAttr extpgm('QUSRSPLA'); SplFAttr likeds(QUSA010001) options(*varsize); SplFALen int(10) const; SplFAFmt char(8) const; SplFJobN char(26) const; SplFIJob char(16) const; SplFIntI char(16) const; SplFName char(10) const; SplFNumb int(10) const; // optional parm group 1 SplFErrC likeds(ApiErrC) options(*nopass:*varsize); // optional parm group 2 SplFJSys char(8) const options(*nopass); SplFCDte char(7) const options(*nopass); SplFCTme char(6) const options(*nopass); end-pr;