IBM Version 4 manual Bytes-Returned, Bytes-Available, Job-Description-Name Pic, User-Name Pic

	ð1 QWD-JOBDð1ðð REDEFINES RECEIVER-VARIABLE.
	ð5	BYTES-RETURNED	PIC S9(ðððð9) BINARY.
	ð5	BYTES-AVAILABLE	PIC S9(ðððð9) BINARY.
	ð5	JOB-DESCRIPTION-NAME	PIC	X(ððð1ð).
	ð5	JOB-DESCRIPTION-LIB-NAME	PIC	X(ððð1ð).
	ð5	USER-NAME	PIC	X(ððð1ð).
	ð5	JOB-DATE	PIC	X(ðððð8).
	ð5	JOB-SWITCHES	PIC	X(ðððð8).
	ð5	JOB-QUEUE-NAME	PIC	X(ððð1ð).
	ð5	JOB-QUEUE-LIB-NAME	PIC	X(ððð1ð).
	ð5	JOB-QUEUE-PRIORITY	PIC	X(ðððð2).
	ð5	HOLD-JOB-QUEUE	PIC	X(ððð1ð).
	ð5	OUTPUT-QUEUE-NAME	PIC	X(ððð1ð).
	ð5	OUTPUT-QUEUE-LIB-NAME	PIC	X(ððð1ð).
	ð5	OUTPUT-QUEUE-PRIORITY	PIC	X(ðððð2).
	ð5	PRINTER-DEVICE-NAME	PIC	X(ððð1ð).
	ð5	PRINT-TEXT	PIC	X(ððð3ð).
	ð5	SYNTAX-CHECK-SEVERITY	PIC S9(ðððð9) BINARY.
	ð5	END-SEVERITY	PIC S9(ðððð9) BINARY.
	ð5	MESSAGE-LOG-SEVERITY	PIC S9(ðððð9) BINARY.
	ð5	MESSAGE-LOG-LEVEL	PIC	X(ðððð1).
	ð5	MESSAGE-LOG-TEXT	PIC	X(ððð1ð).
	ð5	LOG-CL-PROGRAMS	PIC	X(ððð1ð).
	ð5	INQUIRY-MESSAGE-REPLY	PIC	X(ððð1ð).
	ð5	DEVICE-RECOVERY-ACTION	PIC	X(ððð13).
	ð5	TIME-SLICE-END-POOL	PIC	X(ððð1ð).
	ð5	ACCOUNTING-CODE	PIC	X(ððð15).
	ð5	ROUTING-DATA	PIC	X(ððð8ð).
	ð5	TEXT-DESCRIPTION	PIC	X(ððð5ð).
	ð5	RESERVED	PIC	X(ðððð1).
	ð5	OFFSET-INITIAL-LIB-LIST	PIC S9(ðððð9) BINARY. .19/
	ð5	NUMBER-LIBS-IN-LIB-LIST	PIC S9(ðððð9) BINARY. .2ð/
	ð5	OFFSET-REQUEST-DATA	PIC S9(ðððð9) BINARY.
	ð5	LENGTH-REQUEST-DATA	PIC S9(ðððð9) BINARY.
	ð5	JOB-MESSAGE-QUEUE-MAX-SIZE	PIC S9(ðððð9) BINARY.
	ð5	JOB-MESSAGE-QUEUE-FULL-ACTION	PIC	X(ððð1ð).
\	ð5	RESERVED2	PIC	X(ðððð1).
\
\		Varying length
\	ð5	INITIAL-LIB-LIST	PIC	X(ððð11).
\
\
\		Varying length
\	ð5	REQUEST-DATA	PIC	X(ðððð1).
\
\		Varying length
\

\Command String Data Structure

ð1 COMMAND-STRING.

ð5 TEXT1 PIC X(22) VALUE 'SNDMSG MSG(''LIBRARY- '. ð5 LIB PIC X(1ð).

ð5 TEXT2 PIC X(15) VALUE ''') TOUSR(QPGMR)'.

ð1 COMMAND-LENGTH PIC S9(1ð)V99999 COMP-3. ð1 RECEIVER-LENGTH PIC S9(9) COMP-4.

ð1 FORMAT-NAME PIC X(8) VALUE 'JOBDð1ðð'. ð1 QCMDEXC PIC X(1ð) VALUE 'QCMDEXC'.

Appendix B. Original Examples in Additional BLanguages-27