Chapter 3. Common Information across APIs—Basic (OPM) 3-Example25

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\

IDS

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

C

PARM

2ððð

SIZ

 

 

C

PARM

 

INTVAL

 

C

PARM

'\ALL'

PUBAUT

C

PARM

 

TXTDSC

C

PARM

'\YES'

REPLAC

C

PARM

 

QUSBN

 

C\

 

 

 

 

 

C\ Call QUSLSPL to get all

spooled files for \CURRENT user

C\

 

 

 

 

 

C

CALL

'QUSLSPL'

 

.3/

 

C

PARM

 

SPCNAM

 

Page 77
Image 77
IBM Version 4 manual Ispcnam