IBM Version 4 manual 102

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