C\ if more entries exist than can fit in one user space
C\
C QUSIS IFEQ 'P'
C\
C\ by resetting LSTPTR to the start of the user space
C\
C EVAL LSTPTR = SPCPTR
C\
C\ and then incrementing LSTPTR to the input parameter header
C\
C EVAL LSTPTR = %ADDR(ARR(QUSOIP + 1))
C\
C\ If the continuation handle in the input parameter header is
C\ blank, then set the list status to Complete
C\
C QSYCVðð IFEQ \BLANKS
C MOVE 'C' LST_STATUS
C ELSE
C\
C\ Else, call QSYLOBJP reusing the User Space to get more
C\ List entries
C\
C MOVE QSYCVðð CONTIN_HDL
C EXSR GETLST
C MOVE QUSIS LST_STATUS
C END
C END
C ELSE
C\
C\ And if an unexpected status, log an error (not shown) and exit
C\
C EXSR DONE
C END
C END
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C GETLST BEGSR
C\
C\ Call QSYLOBJP to generate a list
C\ The continuation handle is set by the caller of this subroutine.
C\
C CALL QSYLOBJP
C PARM SPC_NAME
C PARM 'OBJPð1ðð' MBR_LIST 8
C PARM '\CURRENT' USR_PRF
C PARM '\ALL' OBJ_TYPE
C PARM CONTIN_HDL
C PARM QUSEC
C\
C\ Check for errors on QSYLOBJP
C\
C QUSBAVL IFGT ð
C MOVEL 'QSYLOBJP' APINAM
C EXSR APIERR
C END
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C INIT BEGSR
Chapter 9. Common API Programming Errors 9-41