IBM Version 4 Set, STRING-SPACE Spcptr SET, String-Spaceoffset-List-Data, Perform Proces, PROCES2

\address current list entry

SET	ADDRESS	OF STRING-SPACE		TO	SPCPTR,
SET	ADDRESS	OF	QUS-SPLFð2ðð	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-SPLFð2ðð(5:).

\process all variable length records associated with thi￿s entry

\

PERFORM PROCES2 NUM-FIELDS-RETD TIMES. .22/.23/

WRITE LIST-LINE FROM PRTLIN. .26/

\

\after each entry, increment to the next entry

SET ADDRESS OF STRING-SPACE TO ADDRESS OF QUS-SPLFð2ðð. .27/

SET ADDRESS OF QUS-SPLFð2ðð 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 = 2ð1 .24/.25/

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 .24/.25/

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 BLanguages-41