!++
! Facility:	(DECL) - LIB:INCLUDE#IOS - VAX/VMS 3.? FORTRAN.
!
! Abstract:	Troy Frericks, ??-???-????
! 			declarations for ios routines:
!			LIB:UAF#IOSUAF
!			LIB:QUAX#IOSQUAX
!			LIB:ACC#IOSACC
!			LIB:MISC#IOSRDB
!
! Modified:	Troy Frericks, 15-Jan-1986
!			1. moved LIB:INCLUDE#USER to end of this defination
!			2. added err_eof variable (variable is TRUE, but neg)
!--
c
c IOS Declarations
c
	parameter
	1	err_inv = 0,		! undeclared integers have value of zero
	2	default = 1,		! read default record
	3	seql = 2,		! sequential read
	4	keyeq = 3,		! indexed read (keyeq)
	5	keygt = 4,		! indexed read (keygt)
	6	keyge = 5,		! indexed read (keyge)
	7	rewrite = 6,		! rewrite record
	8	write = 7,		! write record
	9	delete = 8,		! delete record
	1	open_keyed_ro = 9,	! open file access=keyed readonly
	2	open_seql_ro = 10,	! open file access=sequential readonly
	3	open_keyed = 11,	! open file access=keyed
	4	open_seql = 12,		! open file access=sequ
	5	open_new = 13		! open file status=new

	parameter      
	1	err_eof = -1
c
c User Specifications
c August 1983
c
	common	/userdef/username_def,uic_def,flag_def,save_def
c
	byte		username_def(24)
	character*12	from_username,to_username
	equivalence	(from_username,username_def(1))
	equivalence	(to_username,username_def(13))
c
	byte		uic_def(8)
	integer*4	from_uic,to_uic
	equivalence	(from_uic,uic_def(1))
	equivalence	(to_uic,uic_def(5))
	integer*2	from_group,from_member
	integer*2	to_group,to_member
	equivalence	(from_member,uic_def(1))
	equivalence	(from_group,uic_def(3))
	equivalence	(to_member,uic_def(5))
	equivalence	(to_group,uic_def(7))
c
	byte		flag_def(8)
	integer*4	from_flag,to_flag
	equivalence	(from_flag,flag_def(1))	! from_flag: 0=username, 1=uic, -1=group
	equivalence	(to_flag,flag_def(5))
c
	byte		save_def(20)
	character*12	save_username
	equivalence	(save_username,save_def(1))
	integer*4	save_uic
	equivalence	(save_uic,save_def(13))
	integer*2	save_group,save_member
	equivalence	(save_member,save_def(13))
	equivalence	(save_group,save_def(15))
	integer*4	save_flag
	equivalence	(save_flag,save_def(17))
c