$SAVE NOLIST
/*****************************************************************************
 * IEXIOJ.LIT:	Definition of the exit$message data structure and exit codes
 *				returned by the EIOS to a parent io job upon receipt of an
 *				RQ$EXIT$IO$JOB system call from a task in a child io job.
 *****************************************************************************/

DECLARE
	EXIT$JOB$CODE		LITERALLY '0',		/* EIOS exit codes */
	EXIT$JOB$DELETED	LITERALLY '1',
	EXIT$JOB$PROBLEM	LITERALLY '2',

	EXIT$MSG$STRUCTURE  LITERALLY 'STRUCTURE(
                            			termination$code	WORD_16,
										user$fault$code		WORD_16,
										job$token			TOKEN,
										return$data$len		BYTE,
										return$data(1)		BYTE)';

$RESTORE