D QSYBRARYð5 11
D\ Qualified object name
D QSYOBJT12 21
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 QSYLOBJP
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