!*** MODULE $CHPDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Item code definition for the $CHKPRO (check protection) system service.
 ! 
	PARAMETER CHP$_END = '00000000'X	 !  list end
	PARAMETER CHP$_ACCESS = '00000001'X	 !  intended access
	PARAMETER CHP$_FLAGS = '00000002'X	 !  read / write flags
	PARAMETER CHP$_PRIV = '00000003'X	 !  privilege mask
	PARAMETER CHP$_ACMODE = '00000004'X	 !  accessor access mode
	PARAMETER CHP$_ACCLASS = '00000005'X	 !  accessor security classification
	PARAMETER CHP$_RIGHTS = '00000006'X	 !  rights list
	PARAMETER CHP$_ADD_RIGHTS = '00000007'X	 !  additional rights list segments
	PARAMETER CHP$_MODE = '00000008'X	 !  simple access mode
	PARAMETER CHP$_MODES = '00000009'X	 !  per action access mode
	PARAMETER CHP$_MIN_CLASS = '0000000A'X	 !  minimum security classification
	PARAMETER CHP$_MAX_CLASS = '0000000B'X	 !  maximum security classification
	PARAMETER CHP$_OWNER = '0000000C'X	 !  object owner UIC
	PARAMETER CHP$_PROT = '0000000D'X	 !  protection mask
	PARAMETER CHP$_ACL = '0000000E'X	 !  access control list segment
	PARAMETER CHP$_AUDIT_NAME = '0000000F'X	 !  audit names returned
	PARAMETER CHP$_ALARM_NAME = '00000010'X	 !  alarm names returned
	PARAMETER CHP$_MATCHED_ACE = '00000011'X  !  address of matching ACE
	PARAMETER CHP$_PRIVUSED = '00000012'X	 !  address of mask of privileges used
	PARAMETER CHP$_AUDIT_LIST = '00000013'X	 !  address of supplemental audit item list
	PARAMETER CHP$_OBJECT_NAME = '00000014'X  !  object name descriptor
	PARAMETER CHP$_OBJECT_CLASS = '00000015'X  !  object class name descriptor
	PARAMETER CHP$_UIC = '00000016'X	 !  accessor UIC
	PARAMETER CHP$_OBJECT_SPECIFIC = '00000017'X  !  object specific longword (for OSR)
 !  add new item codes before here
	PARAMETER CHP$_MAX_CODE = '00000018'X	 !  highest CHP$ item code
	PARAMETER CHP$_ADDRIGHTS = '00000007'X
	PARAMETER CHP$_MINCLASS = '0000000A'X
	PARAMETER CHP$_MAXCLASS = '0000000B'X
	PARAMETER CHP$_AUDITNAME = '0000000F'X
	PARAMETER CHP$_ALARMNAME = '00000010'X
	PARAMETER CHP$_MATCHEDACE = '00000011'X
	PARAMETER CHP$_CLASS = '00000005'X
	PARAMETER CHP$K_MATCHED_ACE_LENGTH = '000000FF'X
	PARAMETER CHP$K_ALARM_LENGTH = '00000300'X
	PARAMETER CHP$K_AUDIT_LENGTH = '00000618'X
	PARAMETER CHP$M_SYSPRV = '00000001'X
	PARAMETER CHP$M_BYPASS = '00000002'X
	PARAMETER CHP$M_UPGRADE = '00000004'X
	PARAMETER CHP$M_DOWNGRADE = '00000008'X
	PARAMETER CHP$M_GRPPRV = '00000010'X
	PARAMETER CHP$M_READALL = '00000020'X
	PARAMETER CHP$M_OPER = '00000040'X
	PARAMETER CHP$M_GRPNAM = '00000080'X
	PARAMETER CHP$M_SYSNAM = '00000100'X
	PARAMETER CHP$M_GROUP = '00000200'X
	PARAMETER CHP$M_WORLD = '00000400'X
	PARAMETER CHP$M_PRMCEB = '00000800'X
	PARAMETER CHP$K_NUMBER_OF_PRIVS = '0000000C'X
	STRUCTURE /PRIVS_USED_BITS/
	    PARAMETER CHP$S_SYSPRV = 1
	    PARAMETER CHP$V_SYSPRV = 0		 !  access via SYSPRV privilege
	    PARAMETER CHP$S_BYPASS = 1
	    PARAMETER CHP$V_BYPASS = 1		 !  access via BYPASS privilege
	    PARAMETER CHP$S_UPGRADE = 1
	    PARAMETER CHP$V_UPGRADE = 2		 !  access via UPGRADE privilege
	    PARAMETER CHP$S_DOWNGRADE = 1
	    PARAMETER CHP$V_DOWNGRADE = 3		 !  access via DOWNGRADE privilege
	    PARAMETER CHP$S_GRPPRV = 1
	    PARAMETER CHP$V_GRPPRV = 4		 !  access via GRPPRV privilege
	    PARAMETER CHP$S_READALL = 1
	    PARAMETER CHP$V_READALL = 5		 !  access via READALL privilege
	    PARAMETER CHP$S_OPER = 1
	    PARAMETER CHP$V_OPER = 6		 !  access via OPER privilege
	    PARAMETER CHP$S_GRPNAM = 1
	    PARAMETER CHP$V_GRPNAM = 7		 !  access via GRPNAM privilege
	    PARAMETER CHP$S_SYSNAM = 1
	    PARAMETER CHP$V_SYSNAM = 8		 !  access via SYSNAM privilege
	    PARAMETER CHP$S_GROUP = 1
	    PARAMETER CHP$V_GROUP = 9		 !  access via GROUP privilege
	    PARAMETER CHP$S_WORLD = 1
	    PARAMETER CHP$V_WORLD = 10		 !  access via WORLD privilege
	    PARAMETER CHP$S_PRMCEB = 1
	    PARAMETER CHP$V_PRMCEB = 11		 !  access via PRMCEB privilege
	BYTE %FILL (2)
	END STRUCTURE	! PRIVS_USED_BITS
	PARAMETER CHP$M_OBSERVE = '00000001'X
	PARAMETER CHP$M_ALTER = '00000002'X
	PARAMETER CHP$M_READ = '00000001'X
	PARAMETER CHP$M_WRITE = '00000002'X
	PARAMETER CHP$M_USEREADALL = '00000004'X
	PARAMETER CHP$M_AUDIT = '00000008'X
	PARAMETER CHP$M_NOFAILAUD = '00000010'X
	PARAMETER CHP$M_NOSUCCAUD = '00000020'X
	PARAMETER CHP$M_DELETE = '00000040'X
	PARAMETER CHP$M_MANDATORY = '00000080'X
	PARAMETER CHP$M_FLUSH = '00000100'X
	PARAMETER CHP$M_CREATE = '00000200'X
	PARAMETER CHP$M_INTERNAL = '00000400'X
	PARAMETER CHP$M_SERVER = '00000800'X
	STRUCTURE /FLAG_BITS/
	UNION
	    MAP
	        PARAMETER CHP$S_OBSERVE = 1
	        PARAMETER CHP$V_OBSERVE = 0		 !  non-discretionary read access
	        PARAMETER CHP$S_ALTER = 1
	        PARAMETER CHP$V_ALTER = 1		 !  non-discretionary write access
	    BYTE %FILL (1)
	    END MAP
	    MAP
	        PARAMETER CHP$S_READ = 1
	        PARAMETER CHP$V_READ = 0		 !  non-discretionary read access
	        PARAMETER CHP$S_WRITE = 1
	        PARAMETER CHP$V_WRITE = 1		 !  non-discretionary write access
	        PARAMETER CHP$S_USEREADALL = 1
	        PARAMETER CHP$V_USEREADALL = 2		 !  READALL privilege applies
	        PARAMETER CHP$S_AUDIT = 1
	        PARAMETER CHP$V_AUDIT = 3		 !  access audit requested
	        PARAMETER CHP$S_NOFAILAUD = 1
	        PARAMETER CHP$V_NOFAILAUD = 4		 !  do not perform failed access audit
	        PARAMETER CHP$S_NOSUCCAUD = 1
	        PARAMETER CHP$V_NOSUCCAUD = 5		 !  do not perform successful access audit
	        PARAMETER CHP$S_DELETE = 1
	        PARAMETER CHP$V_DELETE = 6		 !  perform audit as delete event type
	        PARAMETER CHP$S_MANDATORY = 1
	        PARAMETER CHP$V_MANDATORY = 7		 !  perform mandatory audit
	        PARAMETER CHP$S_FLUSH = 1
	        PARAMETER CHP$V_FLUSH = 8		 !  force buffer flush in AUDIT_SERVER
	        PARAMETER CHP$S_CREATE = 1
	        PARAMETER CHP$V_CREATE = 9		 !  perform audit as create event type
	        PARAMETER CHP$S_INTERNAL = 1
	        PARAMETER CHP$V_INTERNAL = 10		 !  audit on behalf of VMS TCB
	        PARAMETER CHP$S_SERVER = 1
	        PARAMETER CHP$V_SERVER = 11		 !  audit originates in TCB server process
	    BYTE %FILL (2)
	    END MAP
	END UNION
	END STRUCTURE	! FLAG_BITS
	PARAMETER CHP$M_NOACCESS = '00000001'X
	PARAMETER CHP$M_REMDUPID = '00000002'X
	PARAMETER CHP$M_INCSYSID = '00000004'X
	PARAMETER CHP$M_INCIMGID = '00000008'X
	PARAMETER CHP$M_DEFPRIV = '00000010'X
	PARAMETER CHP$M_DEFCLASS = '00000020'X
	STRUCTURE /PROFILE_FLAGS/
	    PARAMETER CHP$S_NOACCESS = 1
	    PARAMETER CHP$V_NOACCESS = 0		 !  do not access UAF to build profile
	    PARAMETER CHP$S_REMDUPID = 1
	    PARAMETER CHP$V_REMDUPID = 1		 !  remove duplicate system rights IDs
	    PARAMETER CHP$S_INCSYSID = 1
	    PARAMETER CHP$V_INCSYSID = 2		 !  include system rights IDs
	    PARAMETER CHP$S_INCIMGID = 1
	    PARAMETER CHP$V_INCIMGID = 3		 !  include image rights IDs
	    PARAMETER CHP$S_DEFPRIV = 1
	    PARAMETER CHP$V_DEFPRIV = 4		 !  initialize privs from default mask
	    PARAMETER CHP$S_DEFCLASS = 1
	    PARAMETER CHP$V_DEFCLASS = 5		 !  initialize class from default mask
	BYTE %FILL (1)
	END STRUCTURE	! PROFILE_FLAGS
!DEC$ END OPTIONS