C PARM RCVLEN Rec Var Length
C PARM RJOBDF Format
C PARM SPCNAM Qual User Space
C PARM SPCTYP User object typ
C PARM QUSBN Error Code
C\
C QUSBNC IFGT ð
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ If a CPF98ð1 error was received, then the user space was not
C\ found.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QUSBND IFEQ 'CPF98ð1'
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Create a user space for the list generated by QSYLOBJP.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C CALL 'QUSCRTUS'
C PARM SPCNAM Qual User Space
C PARM EXTATR Extended Attrib
C PARM SPCSIZ Size user space
C PARM SPCINT Space Initializ
C PARM SPCAUT Public Authorit
C PARM SPCTXT User space text
C PARM SPCREP Replace existin
C PARM QUSBN Error Code
C PARM SPCDMN Domain of us
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Check for errors on QUSCRTUS.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QUSBNC IFGT ð
C MOVEL'QUSCRTUS'APINAM
C EXSR APIERR
C ENDIF
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ An error occurred accessing the user space.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C ELSE
C MOVEL'QUSROBJD'APINAM
C EXSR APIERR
C ENDIF CPF98ð1 ELSE
C ENDIF BYTAVL > ð
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Set QSYLOBJP (via GETLST) to start a new list.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C MOVE \BLANKS CONHDL
C EXSR GETLST
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Let's retrieve the generic header information from the user
C\ space since OPM RPG does not have pointer support.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C Z-ADD1 STRPOS
C Z-ADD192 RCVLEN Format 1ðð
C CALL 'QUSRTVUS'
C PARM SPCNAM Qual User Space
C PARM STRPOS Start Position
C PARM RCVLEN Length of Data
C PARM QUSBP Receiver Var.
C PARM QUSBN Error Code
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
5-8 System API Programming V4R1