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-50 System API Programming V4R1