!*** MODULE $ARMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Access Rights Mask longword definitions
 ! -
	PARAMETER ARM$M_READ = '00000001'X
	PARAMETER ARM$M_WRITE = '00000002'X
	PARAMETER ARM$M_EXECUTE = '00000004'X
	PARAMETER ARM$M_DELETE = '00000008'X
	PARAMETER ARM$M_CONTROL = '00000010'X
	PARAMETER ARM$M_CREATE = '00000004'X
	PARAMETER ARM$M_LOCK = '00000004'X
	PARAMETER ARM$M_PHYSICAL = '00000004'X
	PARAMETER ARM$M_LOGICAL = '00000008'X
	PARAMETER ARM$M_ASSOCIATE = '00000001'X
	PARAMETER ARM$M_SUBMIT = '00000002'X
	PARAMETER ARM$M_MANAGE = '00000004'X
	STRUCTURE /ARMDEF/
	UNION
	    MAP
	    UNION
	        MAP
	        INTEGER*4 %FILL
	        END MAP
	        MAP
	            PARAMETER ARM$S_READ = 1
	            PARAMETER ARM$V_READ = 0		 !  Read access
	            PARAMETER ARM$S_WRITE = 1
	            PARAMETER ARM$V_WRITE = 1		 !  Write access
	            PARAMETER ARM$S_EXECUTE = 1
	            PARAMETER ARM$V_EXECUTE = 2		 !  Execute access
	            PARAMETER ARM$S_DELETE = 1
	            PARAMETER ARM$V_DELETE = 3		 !  Delete access
	            PARAMETER ARM$S_CONTROL = 1
	            PARAMETER ARM$V_CONTROL = 4		 !  Control access
	            PARAMETER ARM$S_FILL = 27
	            PARAMETER ARM$V_FILL = 5
	            BYTE %FILL (4)				 !  [LOADSS]SYSACLSRV depends on this being here!
	        END MAP
	    END UNION
	    END MAP
	    MAP
	    UNION
	        MAP
	        INTEGER*4 %FILL
	        END MAP
	        MAP
	            PARAMETER ARM$S_CREATE = 1
	            PARAMETER ARM$V_CREATE = 2		 !  Create access (volume)
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    END MAP
	    MAP
	    UNION
	        MAP
	        INTEGER*4 %FILL
	        END MAP
	        MAP
	            PARAMETER ARM$S_LOCK = 1
	            PARAMETER ARM$V_LOCK = 2		 !  Lock access (resource domain)
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    END MAP
	    MAP
	    UNION
	        MAP
	        INTEGER*4 %FILL
	        END MAP
	        MAP
	            PARAMETER ARM$S_PHYSICAL = 1
	            PARAMETER ARM$V_PHYSICAL = 2		 !  Physical I/O access (device)
	            PARAMETER ARM$S_LOGICAL = 1
	            PARAMETER ARM$V_LOGICAL = 3		 !  Logical I/O access (device)
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    END MAP
	    MAP
	    UNION
	        MAP
	        INTEGER*4 %FILL
	        END MAP
	        MAP
	            PARAMETER ARM$S_ASSOCIATE = 1
	            PARAMETER ARM$V_ASSOCIATE = 0		 !  Associate access (common event cluster)
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    END MAP
	    MAP
	    UNION
	        MAP
	        INTEGER*4 %FILL
	        END MAP
	        MAP
	            PARAMETER ARM$S_SUBMIT = 1
	            PARAMETER ARM$V_SUBMIT = 1		 !  Submit access (queue)
	            PARAMETER ARM$S_MANAGE = 1
	            PARAMETER ARM$V_MANAGE = 2		 !  Manage access (queue)
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    END MAP
	END UNION
	END STRUCTURE	! ARMDEF
!DEC$ END OPTIONS