F\
F\ Header Files Included: QUSEC - Error Code Parameter
F\ QUSGEN - User Space Generic Header
F\ QUSLSPL - List Spooled Files
F\
F\ APIs Used: QUSLSPL - List Spooled Files
F\ QUSCRTUS - Create User Space
F\ QUSRTVUS - Retrieve User Space
F\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
FQSYSPRT O F 132 OF PRINTER
I\
I\ Copy User Space Generic Header
I\
I/COPY QSYSINC/QRPGSRC,QUSGEN .11/
I\
I\ Copy API Error Code parameter
I\
I/COPY QSYSINC/QRPGSRC,QUSEC
I\
I\ Copy List Spooled Files API include
I\
I/COPY QSYSINC/QRPGSRC,QUSLSPL
I\
I\ Data structure to hold space name
I\
ISPCNAM DS
I I 'SPCNAME ' 1 1ð SPC
I I 'QTEMP ' 11 2ð LIB
I\
I\ Data structure to hold requested key values
I\
IKEYARA DS .5/ .7/
I I 2ð1 B 1 4ðKEY1
I I 216 B 5 8ðKEY2
I I 211 B 9 12ðKEY3 .8/
I\
I\ Receiver variable for QUSRTVUS
I\
IRECVR DS 1ððð
I\
I\ Other assorted variables
I\
I DS
I B 1 4ðSIZ
I B 5 8ðSTART
I B 9 12ðLENDTA
I B 13 16ðKEY#
I B 17 2ððPAGES#
I 17 2ð PAGESA
I I X'ðð' 21 21 INTVAL
C\
C\ Initialize Error Code structure to accept exceptions
C\
C Z-ADDð QUSBNB .1/
C\
C\ Create the User Space to hold the QUSLSPL API results
C\
C CALL 'QUSCRTUS' .2/
C PARM SPCNAM
C PARM 'quslspl' EXTATR 1ð
C PARM 2ððð SIZ
C PARM INTVAL
C PARM '\ALL' PUBAUT 1ð
C PARM TXTDSC 5ð
C PARM '\YES' REPLAC 1ð
C PARM QUSBN
C\
C\ Call QUSLSPL to get all spooled files for \CURRENT user
C\
C CALL 'QUSLSPL' .3/
C PARM SPCNAM
Chapter 3. Common Information across APIs—Basic (OPM) Example 3-25