× 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.


  1.  Home
  2. MIDRANGE-L
  3. October 2012

RE: QUSLSPL API

That is what I see as well.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, October 11, 2012 11:00 AM
To: Midrange Systems Technical Discussion
Subject: 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
--
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: "Monnier, Gary" <Gary.Monnier@xxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>,
Date: 10/11/2012 01:18 PM
Subject: RE: QUSLSPL API
Sent by: midrange-l-bounces@xxxxxxxxxxxx



Nothing but 272 for bytes available. That is what is so frustrating. No
messages in the job log either.

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

What's in APIError?


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: "Monnier, Gary" <Gary.Monnier@xxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>,
Date: 10/11/2012 12:53 PM
Subject: RE: QUSLSPL API
Sent by: midrange-l-bounces@xxxxxxxxxxxx



Thanks Gary.

I'm using format SPLF0300 and all the parameters so I can filter by
qualified job name and date/time range.

Using the following results in no entries being placed in the user space.

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 272A
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

Where

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;

Running

callP(E) lstSplF(qualspacename:lfformat :lfusername :
qualoutaname :lfformtype :lfuserspecdta:
APIError :qualjobname :keyarray :
Nbrfldsrtn :ASPnumber :jobsysname :
splfstartdate:splfstarttime:splfenddate :
splfendtime);

Results in no entries being written to the user space. No API error is
returned and there is no other error I can find.

Change splfstartdate to *ALL and splfenddate to *Blanks and the same
result occurs. Nothing is selected.

Blank out the dates and CPF335E is returned.

Blank out the job system name and CPF335D is returned.

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

Maybe these links will help:

http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/QUSLSPL.htm



http://www.itjungle.com/fhg/fhg080305-story01.html

http://archive.midrange.com/rpg400-l/200306/msg00548.html

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx<
mailto:midrange-l-bounces@xxxxxxxxxxxx> [
mailto:midrange-l-bounces@xxxxxxxxxxxx]<mailto:[
mailto:midrange-l-bounces@xxxxxxxxxxxx]> On Behalf Of Monnier, Gary
Sent: Wednesday, October 10, 2012 5:18 PM
To: midrange-l@xxxxxxxxxxxx<mailto:midrange-l@xxxxxxxxxxxx>
Subject: QUSLSPL API

All,

Does anyone have a matrix of the possible parameter combinations that can
be used with the QUSLSPL API? It seems every combination I try results in

no selections or a returned message ID.

Thanks,

Gary

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx<
mailto:MIDRANGE-L@xxxxxxxxxxxx> To subscribe, unsubscribe, or change list
options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx<
mailto:MIDRANGE-L-request@xxxxxxxxxxxx> Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx<
mailto:MIDRANGE-L@xxxxxxxxxxxx> To subscribe, unsubscribe, or change list
options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx<
mailto:MIDRANGE-L-request@xxxxxxxxxxxx> Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.



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-2025 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.