C\

 

 

 

C

QUSBAVL

IFGT

ð

C\

 

 

 

C\ If CPF98ð1, then User

Space was not found

C\

 

 

 

C

QUSEI

IFEQ

'CPF98ð1'

C\

C\ So create a User Space for the List generated by QSYLOBJ￿P

C\

 

 

 

 

 

C

 

CALL

'QUSCRTUS'

 

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

'QSYLOBJP '

EXT_ATTR

1ð

C

 

PARM

 

SPC_SIZE

 

C

 

PARM

 

SPC_INIT

 

C

 

PARM

'\ALL'

SPC_AUT

1ð

C

 

PARM

\BLANKS

SPC_TEXT

5ð

C

 

PARM

'\YES'

SPC_REPLAC

1ð

C

 

PARM

 

QUSEC

 

C

 

PARM

'\USER'

SPC_DOMAIN

1ð

C\

 

 

 

 

 

C\ Check for errors on QUSCRTUS

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C

 

MOVEL

'QUSCRTUS'

APINAM

1ð

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ Else, an error occurred accessing the User Space

 

C\

 

 

 

 

 

C

 

ELSE

 

 

 

C

 

MOVEL

'QUSROBJD'

APINAM

1ð

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ Set QSYLOBJP (via GETLST) to start a new

list

 

C\

 

 

 

 

 

C

 

MOVE

\BLANKS

CONTIN_HDL

 

C

 

EXSR

GETLST

 

 

C\

 

 

 

 

 

C\ Get a resolved pointer to the User Space

for performance￿

C\

 

 

 

 

 

C

 

CALL

'QUSPTRUS'

 

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

 

SPCPTR

 

C

 

PARM

 

QUSEC

 

C\

 

 

 

 

 

C\ Check for errors on QUSPTRUS

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C

 

MOVEL

'QUSPTRUS'

APINAM

1ð

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C

 

ENDSR

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

APIERR

BEGSR

 

 

 

C\

 

 

 

 

 

C\ Log any error encountered,

and exit the program

 

 

 

Appendix B. Original

Examples in

Additional BLanguages-111

Page 388 Page 390
Page 389
Image 389
IBM Version 4 manual CPF98ð1
Page 388 Page 390
Top Page Image Contents