$SAVE NOLIST
/*****************************************************************************
 * ISGTCS.LIT:	Definition of the connection$status data structure used in
 *				the EIOS system call RQ$S$GET$CONNECTION$STATUS.
 *****************************************************************************/

DECLARE
	S$CS$STRUCT$1	LITERALLY '
			file$driver		BYTE,
			flags			BYTE,
			open$mode		BYTE,
			share$mode		BYTE,
			file$pointer	WORD_32',
	S$CS$STRUCT$2	LITERALLY '
			access			BYTE,
			number$buffers	BYTE,
			buffer$size		WORD_16,
			seek$ok			BOOLEAN',

	S$CONN$STATUS$STRUCTURE		LITERALLY 'STRUCTURE(
													S$CS$STRUCT$1,
													S$CS$STRUCT$2)';
$RESTORE