C\
C\ Set Error Code structure to not use exceptions
C\
C Z-ADD 16 QUSBPRV
C\
C\ Create a User Space for QDBRTVFD
C\
C CALL 'QUSCRTUS'
C PARM SPC_NAME
C PARM \BLANKS EXT_ATTR 1ð
C PARM 1ð24 SPC_SIZE
C PARM SPC_INIT
C PARM '\CHANGE' SPC_AUT 1ð
C PARM 'QDBRTVFD' 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\ Change the User Space so that it is extendable
C\
C CALL 'QUSCUSAT'
C PARM LIB_NAME
C PARM SPC_NAME
C PARM CHG_ATTR
C PARM QUSEC
C\
C\ Check for errors on QUSCUSAT
C\
C QUSBAVL IFGT ð
C MOVEL 'QUSCUSAT' APINAM 1ð
C EXSR APIERR
C END
C\
C\ Get a resolved pointer to the User Space
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\
C\ If no errors, then call QDBRTVFD passing the address of the
C\ User Space as the receiver variable. As Data Structure
C\ QDBQ25 is defined as BASED(SPCPTR) and SPCPTR is set to the
C\ first byte of the User Space, simply passing QDBQ25 will cause
B-164 System API Programming V4R1