!++
! Facility:	(DEFINATION) - LIB:INCLUDE#QUOTA - VAX/VMS 4.3 FORTRAN.
!
! Abstract:	Rod Eldridge, 15-Aug-1883
! 			Quota Record Definition
!
! Modified:	Troy Frericks, 19-Jun-1985
!			Added quota_length as integer*4
!
!		Troy Frericks, 1-Jun-1986
!			Defined QUOTA_REN_DOLLARS
!
!		Troy Frericks, 10-Aug-1986
!			1. Changed all REAL fields to INTEGER
!			2. Added quota_ratecode field as integer*4
!			3. Added quota_account field as character*8
!
!		Troy Frericks, 30-Dec-1986
!			Added quota_bin as integer*4
!
!		Troy Frericks, 13-Feb-1987
!			Changed quota_bin to character*4
!--

	common	/quota_def/quota_def,quota_length
	character*482	quota_record
	integer*4	quota_length
	byte		quota_def (0:481)
	equivalence	(quota_record,quota_def(0))

c
c Identification Fields
c

	character*12	quota_username		! username
	equivalence	(quota_username,quota_def(0))

	integer*4	quota_uic		! uic
	integer*2	quota_member,quota_group
	equivalence	(quota_uic,quota_def(12))
	equivalence	(quota_member,quota_def(12))
	equivalence	(quota_group,quota_def(14))

	character*30	quota_owner		! owners name
	equivalence	(quota_owner,quota_def(16))
	character*30	quota_address		! owners address
	equivalence	(quota_address,quota_def(46))
	character*2	quota_bldgnum		! building number
	equivalence	(quota_bldgnum,quota_def(76))
	character*10	quota_phonnum		! phone number
	equivalence	(quota_phonnum,quota_def(78))
	character*1	quota_collnum		! college number
	equivalence	(quota_collnum,quota_def(88))
	character*3	quota_deptnum		! department number
	equivalence	(quota_deptnum,quota_def(89))
	character*20	quota_deptname		! department name
	equivalence	(quota_deptname,quota_def(92))
c
c Privileges Fields
c
	integer*4	quota_mask		! quota mask
	integer*4	quota_status		! quota status
	equivalence	(quota_mask,quota_def(112))
	equivalence	(quota_status,quota_def(116))

	integer*4	quota_isupriv		! isu privileges
	equivalence	(quota_isupriv,quota_def(120))

	integer*2	unused_1
	equivalence	(unused_1,quota_def(124))

	integer*2	quota_keep		! purge/keep limit
	equivalence	(quota_keep,quota_def(126))

	character*8	quota_account	! account number
	equivalence	(quota_account,quota_def(128))

	character*12	unused_2
	equivalence	(unused_2,quota_def(136))
c
c Login/Logout Fields
c
	integer*4	quota_create(2) 	! creation date
	integer*4	unused_3(2)
	integer*4	quota_expire(2) 	! expiration date
	integer*4	unused_4(2)
	integer*4	unused_5(2)
	integer*4	quota_update(2) 	! date of last update
	equivalence	(quota_create(1),quota_def(148))
	equivalence	(unused_3(1),quota_def(156))
	equivalence	(quota_expire(1),quota_def(164))
	equivalence	(unused_4(1),quota_def(172))
	equivalence	(unused_5(1),quota_def(180))
	equivalence	(quota_update(1),quota_def(188))

	integer*4	quota_nlogin		! number of logins
	character*4	quota_bin
	equivalence	(quota_nlogin,quota_def(196))
	equivalence	(quota_bin,quota_def(200))

	character*1	quota_semester		! semester flag
	equivalence	(quota_semester,quota_def(204))

	character*17	quota_fundnum		! isu fund number
	equivalence	(quota_fundnum,quota_def(205))

	integer*2	quota_ratecode
	equivalence	(quota_ratecode,quota_def(222) )
c
c quota Fields
c
	integer*4	quota_quota(10)
	equivalence	(quota_quota(1),quota_def(224))

	integer*4	quota_dollars		! dollars authorized
	integer*4	quota_ytd_dollars	! dollars allocated
	integer*4	quota_ren_dollars	! dollars renewed
	integer*4	unused_7
	integer*4	unused_8
	integer*4	quota_pages		! page quota limit for username
	integer*4	quota_blocks		! to be unused
	integer*4	unused_10
	integer*4	unused_11
	integer*4	quota_sessions		! concurrent sessions

	equivalence	(quota_dollars,		quota_quota(1))
	equivalence	(quota_ytd_dollars,	quota_quota(2))
	equivalence	(quota_ren_dollars,	quota_quota(3))
	equivalence	(unused_7,		quota_quota(4))
	equivalence	(unused_8,		quota_quota(5))
	equivalence	(quota_pages,		quota_quota(6))
	equivalence	(quota_blocks,		quota_quota(7))
	equivalence	(unused_10,		quota_quota(8))
	equivalence	(unused_11,		quota_quota(9))
	equivalence	(quota_sessions,	quota_quota(10))

	character*40	unused_12
	equivalence	(unused_12,quota_def(264))
c
c Costs Fields
c
	integer*4	quota_costs(10)
	equivalence	(quota_costs(1),quota_def(304))

	integer*4	costs_purchase		! costs of purchase of materal (unused at present)
	integer*4	costs_cputime		! cpu time
	integer*4	costs_ios		! direct I/Os
	integer*4	costs_min_bill		! minimum billing (sent from NAS, unused at present)
	integer*4	costs_blocks		! disk blocks
	integer*4	costs_pages		! print pages
	integer*4	costs_trmtime		! terminal time
	integer*4	costs_audit		! audit charge from VAX - NAS (unused at present)
	integer*4	costs_misc		! miscellaneous computer charges (tape copy)
	integer*4	unused_13
	equivalence	(costs_purchase,	quota_costs(1))
	equivalence	(costs_cputime,		quota_costs(2))
	equivalence	(costs_ios,		quota_costs(3))
	equivalence	(costs_min_bill,	quota_costs(4))
	equivalence	(costs_blocks,		quota_costs(5))
	equivalence	(costs_pages,		quota_costs(6))
	equivalence	(costs_trmtime,		quota_costs(7))
	equivalence	(costs_audit,		quota_costs(8))
	equivalence	(costs_misc,		quota_costs(9))
	equivalence	(unused_13,		quota_costs(10))

	character*40	unused_14
	equivalence	(unused_14,quota_def(344))
c
c Usage Fields
c
	integer*4	quota_usage(10)
	equivalence	(quota_usage(1),quota_def(384))
c
	integer*4	usage_dollars		! dollars used
	integer*4	unused_15
	integer*4	usage_cputime		! cpu time
	integer*4	unused_16
	integer*4	usage_trmtime		! terminal time
	integer*4	usage_ios		! direct I/Os
	integer*4	usage_blocks		! disk blocks
	integer*4	unused_17
	integer*4	usage_pages		! print pages
	integer*4	usage_sessions		! concurrent sessions

	equivalence	(usage_dollars,		quota_usage(1))
	equivalence	(unused_15,		quota_usage(2))
	equivalence	(usage_cputime,		quota_usage(3))
	equivalence	(unused_16,		quota_usage(4))
	equivalence	(usage_trmtime,		quota_usage(5))
	equivalence	(usage_ios,		quota_usage(6))
	equivalence	(usage_blocks,		quota_usage(7))
	equivalence	(unused_17,		quota_usage(8))
	equivalence	(usage_pages,		quota_usage(9))
	equivalence	(usage_sessions,	quota_usage(10))

	character*30	quota_city_state	! city, state, zip
	equivalence	(quota_city_state,quota_def(424))

	character*28	unused_18
	equivalence	(unused_18,quota_def(454))