!*** MODULE $AGNDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  $ASSIGN FLAGS bit definitions
 ! -
	PARAMETER AGN$M_READONLY = '00000001'X
	PARAMETER AGN$M_WRITEONLY = '00000002'X
	PARAMETER AGN$M_CLONE = '00000004'X
	STRUCTURE /AGNDEF/
	UNION
	    MAP
	        PARAMETER AGN$S_READONLY = 1
	        PARAMETER AGN$V_READONLY = 0		 !  Channel to be assigned to device is READ ONLY.
	        PARAMETER AGN$S_WRITEONLY = 1
	        PARAMETER AGN$V_WRITEONLY = 1		 !  Channel to be assigned to device is WRITE ONLY.
	        PARAMETER AGN$S_CLONE = 1
	        PARAMETER AGN$V_CLONE = 2		 !  Channel will be cloned by POSIX fork().
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! AGNDEF
!DEC$ END OPTIONS