Filter
Top Products
ᑍ and process all of the entries
ᑍ
PERFORM PROCES2
NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-1 TIMES, 6
ᑍ
ᑍ If all entries in this User Space have been processed, check
ᑍ if more entries exist than can fit in one User Space
ᑍ
IF INFORMATION-STATUS OF QUS-GENERIC-HEADER-1 = "P"
ᑍ
ᑍ by addressing the input parameter header
ᑍ
SET ADDRESS OF STRING-SPACE TO SPCPTR,
SET ADDRESS OF QSY-OBJP-INPUT TO
ADDRESS OF STRING-SPACE((OFFSET-INPUT-PARAMETER
OF QUS-GENERIC-HEADER-1 + 1):1),
ᑍ
ᑍ If the continuation handle in the Input Parameter Header is
ᑍ blank, then set the List status to Complete
ᑍ
IF CONTINUATION-HANDLE OF QSY-OBJP-INPUT = SPACES
MOVE "C" TO LST-STATUS
ELSE
ᑍ
ᑍ Else, call QSYLOBJP reusing the User Space to get more
ᑍ List entries
ᑍ
MOVE CONTINUATION-HANDLE OF QSY-OBJP-INPUT
TO CONTIN-HDL OF MISC, 2
PERFORM GETLST,
MOVE INFORMATION-STATUS OF QUS-GENERIC-HEADER-1
TO LST-STATUS,
END-IF,
END-IF,
END-IF,
ELSE
ᑍ
ᑍ And if an unexpected status, log an error (not shown) and exit
ᑍ
PERFORM DONE,
END-IF.
ᑍ
PROCES2.
MOVE CORRESPONDING QSY-OBJP2-LIST TO OBJ-ENTRY.
WRITE LIST-LINE FROM OBJ-ENTRY.
ᑍ
ᑍ after each entry, increment to the next entry
ᑍ
SET ADDRESS OF QSY-OBJP2-LIST TO ADDRESS OF
STRING-SPACE(
(SIZE-EACH-ENTRY OF QUS-GENERIC-HEADER-1 + 1):1). 7
SET ADDRESS OF STRING-SPACE TO ADDRESS OF QSY-OBJP2-LIST.
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
GETLST.
ᑍ
ᑍ Call QSYLOBJP to generate a list
ᑍ The continuation handle is set by the caller of this
ᑍ subroutine.
B-104 System API Programming V4R1