IBM Version 4 Opndat PIC, Lsterr TEXT1 PIC, Hdrerr TEXT2 PIC, Misc SPC-NAME PIC, Spc-Init Pic

	ð5	OPNDAT	PIC	X(ð7).
ð1	LSTERR.
	ð5	TEXT1	PIC	X(22)	VALUE	"List data not valid".
ð1	HDRERR.
\	ð5	TEXT2	PIC	X(22)	VALUE	"Unknown Generic Header".
ð1	MISC.
	ð5	SPC-NAME	PIC	X(2ð)	VALUE	"SPCNAME	QTEMP	".
	ð5	SPC-SIZE	PIC S9(ð9)		VALUE	2ððð BINARY. .2/
	ð5	SPC-INIT	PIC	X(ð1)	VALUE	X"ðð".
	ð5	SPCPTR	POINTER.
	ð5	SPC-TYPE	PIC	X(1ð)	VALUE	"\USRSPC".
	ð5	EXT-ATTR	PIC	X(1ð)	VALUE	"QUSLSPL ".	.3/
	ð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".
	ð5	LST-FORMAT-NAME PIC		X(ð8) VALUE "SPLFð2ðð". .4/
	ð5	USR-PRF	PIC	X(1ð)	VALUE	"\CURRENT	".
	ð5	OUTQ	PIC	X(2ð)	VALUE	"\ALL".
	ð5	FORMTYP	PIC	X(1ð)	VALUE	"\ALL".
	ð5	USRDTA	PIC	X(1ð)	VALUE	"\ALL".
	ð5	JOBNAM	PIC	X(26).
ð1	KEYS.						.7/
	ð5	KEY1	PIC S9(ð9)		BINARY VALUE 2ð1.		.8/
	ð5	KEY2	PIC S9(ð9)		BINARY VALUE 216.
	ð5	KEY3	PIC S9(ð9)		BINARY VALUE 211.
ð1 NUMBER-OF-KEYS			PIC S9(ð9)		BINARY VALUE 3.
ð1	MISC2.
	ð5	PAGESA	PIC	X(ð4).
	ð5	PAGESN	REDEFINES PAGESA
\			PIC S9(ð9)		BINARY.

LINKAGE SECTION.

\

\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. .11/

\

\List Spool Files API include. These includes will be

\mapped over a User Space. The include is copied into the

\source so that we can define the variable length portion

\of QUS-LSPL-KEY-INFO.

\
ð1 QUS-LSPL-KEY-INFO.
ð5 LEN-FIELD-INFO-RETD		PIC S9(ðððð9) BINARY.
ð5 KEY-FIELD-FOR-FIELD-RETD		PIC S9(ðððð9) BINARY.
ð5 TYPE-OF-DATA		PIC	X(ðððð1).
ð5	RESERV3	PIC	X(ðððð3).
ð5	DATA-LENGTH	PIC S9(ðððð9) BINARY.
ð5	DATA-FIELD	PIC	X(ðð1ðð).

\
\	Varying length
	Appendix B. Original Examples in Additional BLanguages-39