C\ Check for errors on QUSRTVUS.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QUSBNC IFGT ð
C MOVEL'QUSRTVUS'APINAM
C EXSR APIERR
C ENDIF
C 1 ADD QUSBPQ STRPOS Offset to List .5/
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Function: proc2
C\
C\ Description: This function processes each entry returned by
C\ QSYLOBJP.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C PROC2 BEGSR
C CALL 'QUSRTVUS'
C PARM SPCNAM Qual User Space
C PARM STRPOS Start Position
C PARM SIZENT Length of Data
C PARM QSYB6 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 EXCPTPRTENT
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ After each entry, increment to the next entry.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C STRPOS ADD SIZENT STRPOS .7/
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Function: proc1
C\
C\ Description: This function processes each entry returned by
C\ QSYLOBJP.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C PROC1 BEGSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ If valid information was returned. .1/
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C Z-ADDQUSBPS NUMENT
C QUSBPJ IFEQ 'P'
C QUSBPJ OREQ 'C'
C NUMENT IFGT ð
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Get the size of each entry to use later. .4/
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C Z-ADDQUSBPT SIZENT
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Increment to the first list entry.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C 1 ADD QUSBPQ OFFSET
Chapter 5. List APIs 5-9