IBM Version 4 manual Perform PROCES2, To LST-STATUS, END-IF END-IF, END-IF Else

\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, che￿ck

\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 ex￿it

PERFORM DONE, END-IF.

PROCES2.

MOVE CORRESPONDING QSY-OBJPð2ðð-LIST TO OBJ-ENTRY. WRITE LIST-LINE FROM OBJ-ENTRY.

\after each entry, increment to the next entry

\

SET ADDRESS OF QSY-OBJPð2ðð-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-OBJPð2ðð-LIS￿T.

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

GETLST.

\

\Call QSYLOBJP to generate a list

\The continuation handle is set by the caller of this

\subroutine.

B-104System API Programming V4R1