Open List of Spooled Files (QGYOLSPL)
From MidrangeWiki
Revision as of 20:28, 6 December 2018 by DaveLClarkI (talk | contribs) (DaveLClarkI moved page QGYOLSPL — Open List of Spooled Files to Open List of Spooled Files (QGYOLSPL): Better Indexing (too many Q's))
Summary
The following is an RPG/LE fully free-form prototype for the IBM QGYOLSPL API to open a list of spooled files on the system. The list can be filtered by users, output queues, form types, user data values, statuses, printers, or specific jobs.
Prototype for the QGYOLSPL API
//******************************************************************************
// IBM API to Open a List of Spooled File information
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qgyolspl.htm
//******************************************************************************
/include qsysinc/qrpglesrc,qgyolspl // QGYOLSPL API data structures
dcl-pr IBMAPI_OpenSpooledFileList extpgm('QGYOLSPL');
SplRcvrVar likeds(QGYV020000) options(*varsize);
SplRVarLen int(10) const;
SplListInf likeds(QGYOLI02) options(*varsize);
SplRtnRCnt int(10) const;
SplSortInf likeds(QGYOSD) options(*varsize);
SplFltrInf likeds(QGYF0200) options(*varsize);
SplJobName char(26) const;
SplListFmt char(8) const;
SplErrCode likeds(ApiErrC) options(*varsize);
// optional parm group
SplFltrFmt char(8) const options(*nopass);
end-pr;
