!*** MODULE $RSDMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER RSDM$_JOIN_SYSTEM = '00000001'X  !  System RD Join function
	PARAMETER RSDM$_JOIN_DEFAULT = '00000002'X  !  Process default RD Join function
	PARAMETER RSDM$_JOIN_DOMAIN = '00000003'X  !  Other RD Join function
	PARAMETER RSDM$_LEAVE = '00000004'X	 !  Leave RD function
	PARAMETER RSDM$K_SYSTEM_RSDM_ID = '00000001'X
 !  System RSDM_ID
	PARAMETER RSDM$K_PROCESS_RSDM_ID = '00000002'X
 !  Process RSDM_ID
 ! +
 !  RSDM$ bitfields 
 ! -
	PARAMETER RSDM$M_READ = '00000001'X
	PARAMETER RSDM$M_WRITE = '00000002'X
	PARAMETER RSDM$M_LOCK = '00000004'X
	STRUCTURE /RSDMBITS/
	UNION
	    MAP
	    UNION
	        MAP
	        INTEGER*4 %FILL
	        END MAP
	        MAP
	            PARAMETER RSDM$S_READ = 1
	            PARAMETER RSDM$V_READ = 0		 !  Read access
	            PARAMETER RSDM$S_WRITE = 1
	            PARAMETER RSDM$V_WRITE = 1		 !  Write access
	            PARAMETER RSDM$S_LOCK = 1
	            PARAMETER RSDM$V_LOCK = 2		 !  Lock access
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    END MAP
	END UNION
	END STRUCTURE	! RSDMBITS
!DEC$ END OPTIONS