C\ Two parameters are being passed into this program.
C\
C \ENTRY PLIST
C PARM USRPRF 1ð
C PARM OBJTYP 1ð
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C EXSR INIT
C EXSR PROCES
C EXSR DONE
C\
C\ End of MAINLINE
C\
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Function: getlst
C\
C\ Description: This function calls QSYLOBJP to build a list.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C GETLST BEGSR
C MOVEL'OBJPð2ðð'MBRLST
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Call QSYLOBJP API to generate a list. The continuation handle
C\ is set by the caller of this function.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C CALL 'QSYLOBJP'
C PARM SPCNAM User space/lib
C PARM MBRLST Member list
C PARM USRPRF User profile
C PARM OBJTYP Object type sc
C PARM CONHDL Continuation ha (.3/
C PARM QUSBN Error Code
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Check for errors on QSYLOBJP.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C QUSBNC IFGT ð
C MOVEL'QSYLOBJP'APINAM
C EXSR APIERR
C ENDIF
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Function: INIT
C\
C\ Description: This function does all the necessary
C\ initialization for this program and the
C\ rest is done in the I specs.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C INIT BEGSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C Z-ADD1ðð QUSBNB
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Call QUSROBJD to see if the user space was previously created
C\ in QTEMP. If it was, simply reuse it.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C CALL 'QUSROBJD'
C PARM RCVVAR Receiver Var
Chapter 5. List APIs 5-7