C PARM FORMAT
C PARM OBJECT
C PARM OBJTYP
C PARM QUSBN
C\ See if any errors were returned in the error code parameter.
C EXSR ERRCOD
C\
C\ Look at the generic header.
C\ The generic header contains information
C\ about the list data section that is needed when processing
C\ the entries.
C\
C CALL 'QUSRTVUS'
C PARM USERSP
C PARM STRPOS
C PARM LENDTA
C PARM QUSBP
C PARM QUSBN
C\ See if any errors were returned in the error code parameter.
C EXSR ERRCOD
C\
C\ Check the information status field, QUSBPJ, to see if
C\ the API was able to return all the information.
C\ Possible values are:
C\ C -- Complete and accurate
C\ P -- Partial but accurate
C\ I -- Incomplete
C\
C QUSBPJ IFEQ 'C'
C QUSBPJ OREQ 'P'
C\
C\ Check to see if any entries were put into the user space.
C\
C QUSBPS IFGT ð
C Z-ADD1 COUNT
C Z-ADDQUSBPQ STRPOS .18/
C Z-ADD3ð LENDTA
C\ Walk through all the entries in the user space.
C COUNT DOWLEQUSBPS
C CALL 'QUSRTVUS'
C PARM USERSP
C PARM STRPOS
C PARM LENDTA
C PARM QUSDM
C PARM QUSBN
C\ See if any errors were returned in the error code parameter.
C EXSR ERRCOD
C\
C\
C\ Process the objects.
C\
C ADD 1 COUNT
C ADD QUSBPT STRPOS
C ENDDO
C ENDIF
C\
C\ Information in the user space is not accurate
C\
9-30 System API Programming V4R1