C\ List entries
C\
C MOVE QSYCVðð CONTIN_HDL .2/
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
C\ subroutine.
C\
C CALL QSYLOBJP
C PARM SPC_NAME
C PARM 'OBJPð2ðð' MBR_LIST 8
C PARM USR_PRF
C PARM OBJ_TYPE
C PARM CONTIN_HDL .3/
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
C\
C\ One time initialization code for this program
C\
C\ Set Error Code structure not to use exceptions
C\
C Z-ADD 16 QUSBPRV
C\
C\ Check to see if the User Space was previously created in
C\ QTEMP. If it was, simply reuse it.
C\
C CALL 'QUSROBJD'
C PARM RCVVAR
C PARM RCVVARSIZ
C PARM 'OBJDð1ðð' ROBJD_FMT 8
C PARM SPC_NAME
C PARM '\USRSPC' SPC_TYPE
C PARM QUSEC
C\
C\ Check for errors on QUSROBJD
B-110 System API Programming V4R1