IBM Version 4 manual Else QSYOBJT12 Ifeq, Dsply Else

D	QSYBRARYð5	11	2ð
D\			Qualified object name
D QSYOBJT12		21	3ð
D\			Object type
D QSYOBJIU		31	31
D\			Object in use
C\
C\	Start of mainline
C\
C		EXSR	INIT
C		EXSR	PROCES
C		EXSR	DONE
C\
C\	Start of subroutines
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C	PROCES	BEGSR
C\
C\	This subroutine processes each entry returned by QSYLO￿BJP
C\
C\
C\	Do until the list is complete
C\
C		MOVE	QUSIS	LST_STATUS	1
C\
C	LST_STATUS	DOUEQ	'C'
C\
C\	If valid information was returned
C\
C	QUSIS	IFEQ	'C'
C	QUSIS	OREQ	'P'
C\
C\	and list entries were found
C\
C	QUSNBRLE	IFGT	ð
C\
C\	set LSTPTR to the first byte of the user space
C\
C		EVAL	LSTPTR = SPCPTR
C\
C\	increment LSTPTR to the first list entry
C\
C		EVAL	LSTPTR = %ADDR(ARR(QUSOLD + 1))
C\
C\	and process all of the entries
C\
C		DO	QUSNBRLE
C	QSYOBJT12	IFEQ	'\SQLPKG'
C\
C\	Process \SQLPKG type				.23/
C\
C		ELSE
C	QSYOBJT12	IFEQ	'\PGM'
C\
C\	Process \PGM type
C\
C	QSYNAMEð5	DSPLY
C		ELSE
			Chapter	9. Common API	Programming Errors 9-47