RE: QUSLSPL API

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