Filter
Top Products
ᑍ address current list entry
ᑍ
SET ADDRESS OF STRING-SPACE TO SPCPTR,
SET ADDRESS OF QUS-SPLF2 TO
ADDRESS OF STRING-SPACE((OFFSET-LIST-DATA
OF QUS-GENERIC-HEADER-1 + 1):1), 18
ᑍ
ᑍ and process all of the entries
ᑍ
PERFORM PROCES
NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-1 TIMES, 2
ELSE
WRITE LIST-LINE FROM LSTERR. 15
STOP RUN. 28
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
PROCES.
ᑍ
ᑍ address the first variable length record for this entry
ᑍ
SET ADDRESS OF QUS-LSPL-KEY-INFO TO ADDRESS OF
QUS-SPLF2(5:).
ᑍ
ᑍ process all variable length records associated with this entry
ᑍ
PERFORM PROCES2 NUM-FIELDS-RETD TIMES. 2223
WRITE LIST-LINE FROM PRTLIN. 26
ᑍ
ᑍ after each entry, increment to the next entry
ᑍ
SET ADDRESS OF STRING-SPACE TO ADDRESS OF QUS-SPLF2. 27
SET ADDRESS OF QUS-SPLF2 TO ADDRESS OF STRING-SPACE
((SIZE-EACH-ENTRY OF QUS-GENERIC-HEADER-1 + 1):1).
ᑍ
ᑍ Process each variable length record based on key
ᑍ
PROCES2.
ᑍ
ᑍ extract spooled file name for report
ᑍ
IF KEY-FIELD-FOR-FIELD-RETD OF QUS-LSPL-KEY-INFO = 21 2425
MOVE SPACES TO PRTFIL,
MOVE DATA-FIELD OF QUS-LSPL-KEY-INFO(
1:DATA-LENGTH OF QUS-LSPL-KEY-INFO)
TO PRTFIL.
ᑍ
ᑍ extract number of pages for report
ᑍ
IF KEY-FIELD-FOR-FIELD-RETD OF QUS-LSPL-KEY-INFO = 211 2425
MOVE DATA-FIELD OF QUS-LSPL-KEY-INFO(
1:DATA-LENGTH OF QUS-LSPL-KEY-INFO)
TO PAGESA,
MOVE PAGESN TO PAGES.
ᑍ
Appendix B. Original Examples in Additional Languages B-41