IBM Version 4 ENTRY Plist Parm, Exsr Init Exsr Proces Exsr Done, Begsr, Call Qsylobjp, Spcnam

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 cr￿eated

C\ in QTEMP. If it was, simply reuse			it.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C	CALL	'QUSROBJD'
C	PARM		RCVVAR	Receiver Var

Chapter 5. List APIs5-7