\Input parameters.

ð1

USR-PRF

PIC

X(1ð).

ð1

OBJ-TYPE

PIC

X(1ð).

\

\String to map User Space offsets into

ð1 STRING-SPACE

PIC X(32ððð).

\

\User Space Generic Header include. These includes will be

\mapped over a User Space.

\

COPY QUSGEN OF QSYSINC-QLBLSRC.

\

\List Objects that Adopt API include. These includes will be

\mapped over a User Space.

\

COPY QSYLOBJP OF QSYSINC-QLBLSRC.

\

\Beginning of mainline

PROCEDURE DIVISION USING USR-PRF, OBJ-TYPE. MAIN-LINE.

PERFORM INIT. PERFORM PROCES. PERFORM DONE.

\Start of subroutines

\

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

PROCES.

\

\Do until the list is complete

MOVE INFORMATION-STATUS OF QUS-GENERIC-HEADER-ð1ðð TO

LST-STATUS.

\

PERFORM PROCES1 WITH TEST AFTER UNTIL LST-STATUS = "C".

\

PROCES1.

\

\This subroutine processes each entry returned by QSYLOB￿JP

\If valid information was returned

\

IF (INFORMATION-STATUS OF QUS-GENERIC-HEADER-ð1ðð = "C" OR INFORMATION-STATUS OF QUS-GENERIC-HEADER-ð1ðð = "P")

IF NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-ð1ðð > ð

\

\increment to the first list entry

SET ADDRESS OF QSY-OBJPð2ðð-LIST TO

ADDRESS OF STRING-SPACE(

(OFFSET-LIST-DATA OF QUS-GENERIC-HEADER-ð1ðð + 1):1), .5/

SET ADDRESS OF STRING-SPACE TO ADDRESS OF QSY-OBJPð2ðð-LIST,

Appendix B. Original Examples in Additional BLanguages-103

Page 381
Image 381
IBM Version 4 manual Obj-Type Pic, Copy Qsylobjp of QSYSINC-QLBLSRC, Procedure Division Using USR-PRF, OBJ-TYPE. MAIN-LINE