!*** MODULE $ACLDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER ACL$K_LENGTH = '0000000C'X	 !  Length of the overhead area 
	PARAMETER ACL$C_LENGTH = '0000000C'X	 !  Length of the overhead area 
	PARAMETER ACL$C_FILE = '00000001'X	 !  Files
	PARAMETER ACL$C_DEVICE = '00000002'X	 !  MBX, MT, TT, etc.
	PARAMETER ACL$C_JOBCTL_QUEUE = '00000003'X  !  Job controller queue
	PARAMETER ACL$C_COMMON_EF_CLUSTER = '00000004'X  !  Common event flag clusters
	PARAMETER ACL$C_LOGICAL_NAME_TABLE = '00000005'X  !  Logical name tables
	PARAMETER ACL$C_PROCESS = '00000006'X	 !  Process
	PARAMETER ACL$C_GROUP_GLOBAL_SECTION = '00000007'X  !  Group global sections
	PARAMETER ACL$C_SYSTEM_GLOBAL_SECTION = '00000008'X  !  System global sections
	PARAMETER ACL$C_CAPABILITY = '00000009'X  !  Capability
	PARAMETER ACL$C_EVENT_FACILITY = '0000000A'X  !  Event facility
	PARAMETER ACL$C_LOCK = '0000000B'X	 !  Lock block/resource
	PARAMETER ACL$C_VOLUME = '0000000C'X	 !  Disk volume (set)
	PARAMETER ACL$C_MAX_OBJECT = '0000000D'X  !  max object code
	PARAMETER ACL$C_NUM_OBJECTS = '0000000C'X  !  number of objects
	PARAMETER ACL$K_NUM_OBJECTS = '0000000C'X  !  number of objects
 !  Action codes
	PARAMETER ACL$C_ADDACLENT = '00000001'X	 !  Add an ACL entry
	PARAMETER ACL$C_DELACLENT = '00000002'X	 !  Delete an ACL entry
	PARAMETER ACL$C_MODACLENT = '00000003'X	 !  Modify an ACL entry
	PARAMETER ACL$C_FNDACLENT = '00000004'X	 !  Locate an ACL entry
	PARAMETER ACL$C_FNDACETYP = '00000005'X	 !  Locate specific ACE type
	PARAMETER ACL$C_DELETEACL = '00000006'X	 !  Delete ACL, leaving protected
	PARAMETER ACL$C_READACL = '00000007'X	 !  Read the ACL
	PARAMETER ACL$C_ACLLENGTH = '00000008'X	 !  Get the ACL's length
	PARAMETER ACL$C_READACE = '00000009'X	 !  Read a single ACE
	PARAMETER ACL$C_RLOCK_ACL = '0000000A'X	 !  Read lock on ACL
	PARAMETER ACL$C_WLOCK_ACL = '0000000B'X	 !  Write lock on ACL
	PARAMETER ACL$C_UNLOCK_ACL = '0000000C'X  !  Release exclusive lock
	PARAMETER ACL$C_GRANT_ACE = '0000000D'X	 !  ACE granting access
	PARAMETER ACL$C_NEXT_ACE = '0000000E'X	 !  Increment ACE number
	PARAMETER ACL$C_DELETE_ALL = '0000000F'X  !  Delete entire ACL
	PARAMETER ACL$C_RESERVED_ITEM_2 = '00000010'X  !  Reserved item code
	PARAMETER ACL$C_RESERVED_ITEM_3 = '00000011'X  !  Reserved item code
	PARAMETER ACL$S_ADDACLENT = '000000FF'X	 !  Add an ACL entry
	PARAMETER ACL$S_DELACLENT = '000000FF'X	 !  Delete an ACL entry
	PARAMETER ACL$S_MODACLENT = '000000FF'X	 !  Modify an ACL entry
	PARAMETER ACL$S_FNDACLENT = '000000FF'X	 !  Locate an ACL entry
	PARAMETER ACL$S_FNDACETYP = '000000FF'X	 !  Locate specific ACE type
	PARAMETER ACL$S_DELETEACL = '000000FF'X	 !  Delete ACL, leaving protected
	PARAMETER ACL$S_READACL = '00000200'X	 !  Read the ACL
	PARAMETER ACL$S_ACLLENGTH = '00000004'X	 !  Get the ACL's length
	PARAMETER ACL$S_READACE = '000000FF'X	 !  Read a single ACE
	PARAMETER ACL$S_RLOCK_ACL = '00000004'X	 !  Read lock on ACL
	PARAMETER ACL$S_WLOCK_ACL = '00000004'X	 !  Write lock on ACL
	PARAMETER ACL$S_UNLOCK_ACL = '00000004'X  !  Remove lock on ACL
	PARAMETER ACL$S_GRANT_ACE = '000000FF'X	 !  ACE granting access
	PARAMETER ACL$S_NEXT_ACE = '00000004'X	 !  Increment ACE number
	PARAMETER ACL$S_DELETE_ALL = '000000FF'X  !  Delete entire ACL
	PARAMETER ACL$S_RESERVED_ITEM_2 = '000000FF'X  !  Reserved item code
	PARAMETER ACL$S_RESERVED_ITEM_3 = '000000FF'X  !  Reserved item code
	PARAMETER ACL$C_MAX_SEGMENT_SIZE = '00000200'X  !  Maximum ACL segemnt size
	PARAMETER ACL$K_MAX_SEGMENT_SIZE = '00000200'X  !  Maximum ACL segemnt size
	STRUCTURE /ACLDEF/
	    INTEGER*4 ACL$L_FLINK			 !  Forward link to next list in the queue 
	    INTEGER*4 ACL$L_BLINK			 !  Back link to previous list in queue 
	    INTEGER*2 ACL$W_SIZE			 !  Total size of the list 
	    BYTE      ACL$B_TYPE			 !  Structure type code 
	    BYTE      %FILL				 !  Spare unused byte 
	    INTEGER*4 ACL$L_LIST			 !  Start of the Access Control Entries 
 !  Object types
	END STRUCTURE	! ACLDEF
!DEC$ END OPTIONS