FILE-CONTROL.

SELECT LISTING ASSIGN TO PRINTER-QPRINT

ORGANIZATION IS SEQUENTIAL.

DATA DIVISION.

 

FILE SECTION.

 

FD

LISTING RECORD CONTAINS 132 CHARACTERS

 

LABEL RECORDS ARE STANDARD

 

DATA RECORD IS LIST-LINE.

ð1

LIST-LINE

PIC X(132).

\

WORKING-STORAGE SECTION.

\

\Error Code parameter include. As this sample program

\uses COPY to include the error code structure, only the fi￿rst

\16 bytes of the error code structure are available. If the

\application program needs to access the variable length￿

\exception data for the error, the developer should physic￿ally

\copy the QSYSINC include and modify the copied include to￿

\define additional storage for the exception data.

\

COPY QUSEC OF QSYSINC-QLBLSRC.

\

\Listing text

ð1 OBJ-ENTRY. ð5 OBJECT.

ð9

TEXT1

PIC

X(ð8)

VALUE "Object: ".

ð9

NAME

PIC

X(1ð).

ð9

TEXT2

PIC

X(1ð)

VALUE " Library: ".

ð9

LIBRARY

PIC

X(1ð).

 

 

ð5

TEXT3

PIC

X(ð7) VALUE

" Type: ".

 

 

 

 

ð5

OBJECT-TYPE

PIC

X(1ð).

 

 

 

 

 

 

ð5

TEXT4

PIC

X(ð7) VALUE

" Text: ".

 

 

 

 

ð5

OBJECT-TEXT

PIC

X(5ð).

 

 

 

 

 

ð1

END-LIST.

 

 

 

 

 

 

 

\

ð5

TEXT1

PIC

X(15)

VALUE

"\\\ End of List".

 

 

 

 

 

 

 

 

 

 

 

ð1

MISC.

 

 

 

 

 

 

 

 

ð5

SPC-NAME

PIC

X(2ð) VALUE

"ADOPTS

QTEMP

".

 

 

ð5

SPC-SIZE

PIC S9(ð9) VALUE

1 BINARY.

 

 

 

 

ð5

SPC-INIT

PIC

X(ð1) VALUE

X"ðð".

 

 

 

 

ð5

SPCPTR

POINTER.

 

 

 

 

 

 

ð5

RCVVAR

PIC

X(ð8).

 

 

 

 

 

 

ð5

RCVVARSIZ

PIC S9(ð9) VALUE

8 BINARY.

 

 

 

 

ð5

LST-STATUS

PIC

X(ð1).

 

 

 

 

 

 

ð5

MBR-LIST

PIC

X(ð8) VALUE

"OBJPð2ðð".

 

 

 

 

ð5

CONTIN-HDL

PIC

X(2ð).

 

 

 

 

 

 

ð5

APINAM

PIC

X(1ð).

 

 

 

 

 

 

ð5

ROBJD-FMT

PIC

X(ð8) VALUE

"OBJDð1ðð".

 

 

 

 

ð5

SPC-TYPE

PIC

X(1ð) VALUE

"\USRSPC".

 

 

 

 

ð5

EXT-ATTR

PIC

X(1ð) VALUE

"QSYLOBJP".

 

 

 

 

ð5

SPC-AUT

PIC

X(1ð) VALUE

"\ALL".

 

 

 

 

ð5

SPC-TEXT

PIC

X(5ð).

 

 

 

 

 

 

ð5

SPC-REPLAC

PIC

X(1ð) VALUE

"\YES".

 

 

 

\

ð5

SPC-DOMAIN

PIC

X(1ð) VALUE

"\USER".

 

 

 

 

 

 

 

 

 

 

 

 

LINKAGE

SECTION.

 

 

 

 

 

 

 

\

 

 

 

 

 

 

 

 

B-102

System API Programming V4R1

 

 

 

 

 

 

 

Page 380
Image 380
IBM Version 4 manual 102