C

 

PARM

'\USER'

SPC_DOMAIN

C\

 

 

 

 

 

C\ Check for errors on QUSCRTUS

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C

 

MOVEL

'QUSCRTUS'

APINAM

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ Else, an error occurred accessing the user space

 

C\

 

 

 

 

 

C

 

ELSE

 

 

 

C

 

MOVEL

'QUSROBJD'

APINAM

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ Set QSYLOBJP (using 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

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C

 

ENDSR

 

 

 

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

C

APIERR

BEGSR

 

 

 

C\

 

 

 

 

 

C\ Log any error encountered, and exit the program

 

C\

 

 

 

 

 

C

APINAM

DSPLY

 

QUSEI

 

C

 

EXSR

DONE

 

 

C

 

ENDSR

 

 

 

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

C

DONE

BEGSR

 

 

 

C\

 

 

 

 

 

C\ Exit the program

 

 

 

 

C\

 

 

 

 

 

C

 

EVAL

\INLR = '1'

 

 

C

 

RETURN

 

 

 

C

 

ENDSR

 

 

 

9-50System API Programming V4R1

Page 256
Image 256
IBM Version 4 manual Parm \USER Spcdomain, Qusbavl Ifgt Movel Quscrtus Apinam Exsr Apierr END