C

 

PARM

\BLANKS

SPC_TEXT

5ð

C

 

PARM

'\YES'

SPC_REPLAC

1ð

C

 

PARM

 

QUSEC

 

C

 

PARM

'\USER'

SPC_DOMAIN

1ð

C\

 

 

 

 

 

C\ Call QUSLSPL to get all spooled files for \CURRENT user

C\

 

 

 

 

 

C

 

CALL

'QUSLSPL'

 

.3/

C

 

PARM

 

SPC_NAME

 

C

 

PARM

'SPLFð2ðð'

FORMAT

8 .4/

C

 

PARM

'\CURRENT'

USR_PRF

1ð

C

 

PARM

'\ALL'

OUTQ

2ð

C

 

PARM

'\ALL'

FORMTYP

1ð

C

 

PARM

'\ALL'

USRDTA

1ð

C

 

PARM

 

QUSEC

 

C

 

PARM

 

JOBNAM

26

C

 

PARM

 

KEYS

.5/

C

 

PARM

 

KEY#

.6/

C\

 

 

 

 

 

C\ Get a resolved pointer to the User Space

for performance￿

C\

 

 

 

 

 

C

 

CALL

'QUSPTRUS'

 

.9/

C

 

PARM

 

SPC_NAME

 

C

 

PARM

 

SPCPTR

 

C

 

PARM

 

QUSEC

 

C\

 

 

 

 

 

C\ If valid information was returned

 

 

C\

 

 

 

 

 

C

QUSSRL

IFEQ

'ð1ðð'

 

.12/

C

QUSIS

IFEQ

'C'

 

.14/

C

QUSIS

OREQ

'P'

 

 

C\

 

 

 

 

 

C\ and list entries

were found

 

 

 

C\

 

 

 

 

 

C

QUSNBRLE

IFGT

ð

 

.16/

C\

 

 

 

 

 

C\ set LSTPTR to the first byte of the User

Space

 

C\

 

 

 

 

 

C

 

EVAL

LSTPTR = SPCPTR

 

C\

 

 

 

 

 

C\ increment LSTPTR

to the first List entry

 

 

C\

 

 

 

 

 

C

 

EVAL

LSTPTR = %ADDR(ARR(QUSOLD + 1)) .18/

C\

 

 

 

 

 

C\ and process all of the entries

 

 

C\

 

 

 

 

 

C

 

DO

QUSNBRLE

 

.2ð/

C\

 

 

 

 

 

C\ set LSTPTR2 to the first variable length

record for this￿ entry

C\

 

 

 

 

 

C

 

Z-ADD

5

X

9 ð

C

 

EVAL

LSTPTR2 = %ADDR(ARR(X)) .22/

C

 

DO

QUSNBRFRðð

 

.23/

C\

 

 

 

 

 

C\ process the data

based on key type

 

 

C\

 

 

 

 

 

C

QUSKFFFRðð

CASEQ

2ð1

FILNAM

.24/

C

QUSKFFFRðð

CASEQ

211

PAGES

 

 

 

Appendix B. Original

Examples in Additional BLanguages-45

Page 322 Page 324
Page 323
Image 323
IBM Version 4 Parm \BLANKS Spctext, Parm Qusec \USER, Call Quslspl Parm Spcname, Format Parm \CURRENT Usrprf, Outq Parm
Page 322 Page 324
Top Page Image Contents