Filter
Top Products
D QSYBRARY5 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 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 QSYNAME5 DSPLY |
C ELSE |
Chapter 9. Common API Programming Errors 9-47