× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Yes. This brain weary soul concurs.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, October 11, 2012 11:06 AM
To: Midrange Systems Technical Discussion
Subject: RE: QUSLSPL API

Ok, I think I understand the problem. You are also getting the user space. You are getting the header information. And, like me, the number of detail entries is nothing.
I'm able to duplicate the problem - that's half the battle, right?
...



Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: rob@xxxxxxxxx
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>,
Date: 10/11/2012 01:59 PM
Subject: RE: QUSLSPL API
Sent by: midrange-l-bounces@xxxxxxxxxxxx



Gary,
Real working code.
I created the user space before running the program.
After running the program I can use DSPF
'/QSYS.LIB/QTEMP.LIB/SPLFILES.USRSPC' to dump the contents and it's got
stuff. However, it all looks like just the header and there's no actual
spool files listed.

H ActGrp(*CALLER)
H DftActGrp(*NO)
H ExprOpts(*RESDECPOS)
H* EXTBININT will change (B)inary to (I)nteger.
H EXTBININT(*YES)
D lstSplF PR ExtPgm('QSYS/QUSLSPL')
D qualspacename 20A
D lfformat 8A
D lfusername 10A
D qualoutqname 20A
D lfformtype 10A
D lfuserspecdta 10A
D APIError like(errc0100)
D qualjobname 26A
D keyarray 10I 0 dim(1)
D nbrfldsrtn 10I 0
D ASPnumber 10I 0
D jobsysname 8A
D splfstartdate 7A
D splfstarttime 6A
D splfenddate 7A
D splfendtime 6A

D qualspacename s 20A
D lfformat s 8A
D lfusername s 10A
D qualoutqname s 20A
D lfformtype s 10A
D lfuserspecdta s 10A
D qualjobname s 26A
D keyarray s 10I 0 dim(1)
D nbrfldsrtn s 10I 0
D ASPnumber s 10I 0
D jobsysname s 8A
D splfstartdate s 7A
D splfstarttime s 6A
D splfenddate s 7A
D splfendtime s 6A


D ERRC0100 DS
D BytesProvided 10I 0 INZ(%len(errc0100))
D BytesAvail 10I 0
D ExceptionId 7A
D Reserved1 1A
D ExceptData 250A
D ERRC0100P S LIKE(ERRC0100)


/free
qualspacename = 'SPLFILES QTEMP ';
lfformat = 'SPLF0300';
lfusername = '*CURRENT';
qualoutqname = '*ALL';
lfformtype = '*ALL';
lfuserspecdta = '*ALL';
qualjobname = *Blanks;
keyarray(1) = 0;
nbrfldsrtn = 0;
ASPnumber = -1;
jobsysname = '*ALL';
splfstartdate = '*FIRST';
splfstarttime = *Blanks;
splfenddate = '*LAST';
splfendtime = *Blanks;
callP(E) lstSplF(qualspacename:lfformat :lfusername :
qualoutqname :lfformtype :lfuserspecdta:
ERRC0100 :qualjobname :keyarray :
Nbrfldsrtn :ASPnumber :jobsysname :
splfstartdate:splfstarttime:splfenddate :
splfendtime);
*inlr=*on;
return;


Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.