Filter
Top Products
C QSYOBJT12 IFEQ 'ᑍSRVPGM' |
Cᑍ |
Cᑍ Process ᑍSRVPGM type |
Cᑍ |
C ELSE |
Cᑍ ↓
Cᑍ
Cᑍ Unknown type, log an error and exit from program (maybe..)
Cᑍ
C EXSR DONE
C END
C END
C END
Cᑍ
Cᑍ after each entry, increment LSTPTR to the next entry
Cᑍ
C EVAL LSTPTR = %ADDR(ARR(QUSSEE + 1))
C END
C END
Cᑍ
Cᑍ When all entries in this user space have been processed, check
Cᑍ if more entries exist than can fit in one user space
Cᑍ
C QUSIS IFEQ 'P'
Cᑍ
Cᑍ by resetting LSTPTR to the start of the user space
Cᑍ
C EVAL LSTPTR = SPCPTR
Cᑍ
Cᑍ and then incrementing LSTPTR to the input parameter header
Cᑍ
C EVAL LSTPTR = %ADDR(ARR(QUSOIP + 1))
Cᑍ
Cᑍ If the continuation handle in the input parameter header is
Cᑍ blank, then set the list status to complete.
Cᑍ
C QSYCV IFEQ ᑍBLANKS
C MOVE 'C' LST_STATUS
C ELSE
Cᑍ
Cᑍ Else, call QSYLOBJP reusing the user space to get more
Cᑍ list entries
Cᑍ
C MOVE QSYCV CONTIN_HDL
C EXSR GETLST
C MOVE QUSIS LST_STATUS
C END
C END
C ELSE
Cᑍ
Cᑍ And if an unexpected status, log an error (not shown) and exit
Cᑍ
C EXSR DONE
C END
C END
C ENDSR
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
C GETLST BEGSR
9-48 System API Programming V4R1