\

ð5

RESERVED

PIC

X(ðððð1).

\

 

 

 

 

 

\

 

 

Varying length

 

 

ð1

QUS-SPLFð2ðð.

 

 

 

ð5 NUM-FIELDS-RETD

PIC S9(ðððð9) BINARY.

 

ð5

KEY-INFO.

 

 

 

 

ð9 LEN-FIELD-INFO-RETD

PIC S9(ðððð9) BINARY.

 

 

ð9 KEY-FIELD-FOR-FIELD-RETD

PIC S9(ðððð9) BINARY.

 

 

ð9 TYPE-OF-DATA

PIC

X(ðððð1).

 

 

ð9

RESERV3

PIC

X(ðððð3).

 

 

ð9

DATA-LENGTH

PIC S9(ðððð9) BINARY.

 

 

ð9

DATA-FIELD

PIC

X(ðððð1).

 

 

ð9

RESERVED

PIC

X(ðððð1).

\

 

\

Varying length

\

 

\

 

\Beginning of mainline

PROCEDURE DIVISION. MAIN-LINE.

\Open LISTING file

\

OPEN OUTPUT LISTING.

\

\Set Error Code structure to use exceptions

MOVE ð TO BYTES-PROVIDED OF QUS-EC.

.1/

\

\Create a User Space for the List generated by QUSLSPL

CALL "QUSCRTUS" USING SPC-NAME, EXT-ATTR, SPC-SIZE, .2/ SPC-INIT, SPC-AUT, SPC-TEXT,

SPC-REPLAC, QUS-EC, SPC-DOMAIN

\

\ Call QUSLSPL to get all spooled files for \CURRENT user

\

CALL "QUSLSPL" USING SPC-NAME, LST-FORMAT-NAME, USR-PRF, .3/.4/

OUTQ, FORMTYP, USRDTA, QUS-EC, JOBNAM, KEYS, NUMBER-OF-KEYS. .5/.6/

\

\Get a resolved pointer to the User Space for performance

CALL "QUSPTRUS" USING SPC-NAME, SPCPTR, QUS-EC. .9/

\If valid information was returned

\

SET ADDRESS OF QUS-GENERIC-HEADER-ð1ðð TO SPCPTR.

IF STRUCTURE-RELEASE-LEVEL OF QUS-GENERIC-HEADER-ð1ðð .12/

NOT EQUAL "ð1ðð" WRITE LIST-LINE FROM HDRERR, .13/

STOP RUN.

IF (INFORMATION-STATUS OF QUS-GENERIC-HEADER-ð1ðð = "C" .14/ OR INFORMATION-STATUS OF QUS-GENERIC-HEADER-ð1ðð = "P") AND NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-ð1ðð > ð .16/

\

B-40System API Programming V4R1

Page 318
Image 318
IBM Version 4 manual Key-Info, Procedure DIVISION. MAIN-LINE, Call Qusptrus Using SPC-NAME, SPCPTR, QUS-EC