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 QSYLOBJP
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 Languages B-111