!*** MODULE $ENVDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  ENV - Define/reference an environment
 ! 
	PARAMETER ENV$M_DEF = '00000001'X
	PARAMETER ENV$M_NESTED = '00000002'X
	STRUCTURE /ENVDEF/
	    BYTE      ENV$B_GSDTYP			 ! Type field 
	    UNION
	        MAP
	        INTEGER*2 ENV$W_FLAGS			 ! Environment flags 
	        END MAP
	        MAP
	            PARAMETER ENV$S_DEF = 1
	            PARAMETER ENV$V_DEF = 0			 ! Definition of environment 
	            PARAMETER ENV$S_NESTED = 1
	            PARAMETER ENV$V_NESTED = 1		 ! Nested environment if set
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*2 ENV$W_ENVINDX			 ! Index of parent environment 
	    BYTE      ENV$B_NAMLNG			 ! Length of environment name 
	    CHARACTER*31 ENV$T_NAME			 ! Environment name 
	END STRUCTURE	! ENVDEF
!DEC$ END OPTIONS