I have solved this in the past with QUSRSPLA. Have a look at
http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/index.jsp Choose
i5/OS API Finder, then enter QUSRSPLA under Find by Name

It's not too difficult, especially if you are an RPG programmer and you

/INCLUDE QSYSINC/QRPGLESRC,QUSRSPLA

If you need an example, I may be able to dig something up...

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"A pun is the lowest form of humor -- when you don't think of it first."
-- Oscar Levant

Our printing is decentralized. I'm trying to figure out what reports
our overnight batch jobs create and which ones actually print, with an
eye to eliminating unnecessary paper usage.

Most of the time, if I have the USRDTA value I can tie it back to a
program.

If I attach a Data Q to the OUTQ I can get a type 01 record when a
spool
file in ready status hits the OUTQ. From that I'm happy to assume it
printed (it's close enough for what I'm doing.) But type 01 records
don't contain the USRDTA.

If I set an environment variable at the system level it looks like I
can
get type 03 records (V6R1) which do contain the USRDTA, but this is for
everything that hits *every* OUTQ and *every* status.

So it looks like I need to merge the results from type 01 records with
type 03 to get what I want.

Has anyone done anything like this? Any better suggestions?

Thanks, Sam

If I could, I'd like to get the number of pages, but I don't anything
about that in the data queue entries.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: 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
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2019 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].