C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Process all of the entries.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C 1 DO NUMENT I .6/
C EXSR PROC2
C ENDDO
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ If all entries in this user space have been processed, check
C\ if more entries exist than can fit in one user space.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QUSBPJ IFEQ 'P'
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Address the input parameter header.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C 1 ADD QUSBPL STRPOS
C Z-ADD68 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\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Check for errors on QUSRTVUS.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QUSBNC IFGT ð
C MOVEL'QUSRTVUS'APINAM
C EXSR APIERR
C ENDIF
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ If the continuation handle in the input parameter header
C\ is blank, then set the list status to complete.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QSYCRJ IFEQ \BLANKS
C MOVE 'C' LSTSTS
C ELSE
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Else, call QSYLOBJP reusing the user space to get more
C\ list entries.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C MOVELQSYCRJ CONHDL .2/
C EXSR GETLST
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\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Check for errors on QUSRTVUS.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QUSBNC IFGT ð
C MOVEL'QUSRTVUS'APINAM
C EXSR APIERR
C ENDIF
C MOVE QUSBPJ LSTSTS
5-10 System API Programming V4R1