!*** MODULE $EGPSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  EVAX GSD entry - P-section definition
 ! 
	PARAMETER EGPS$M_PIC = '00000001'X
	PARAMETER EGPS$M_LIB = '00000002'X
	PARAMETER EGPS$M_OVR = '00000004'X
	PARAMETER EGPS$M_REL = '00000008'X
	PARAMETER EGPS$M_GBL = '00000010'X
	PARAMETER EGPS$M_SHR = '00000020'X
	PARAMETER EGPS$M_EXE = '00000040'X
	PARAMETER EGPS$M_RD = '00000080'X
	PARAMETER EGPS$M_WRT = '00000100'X
	PARAMETER EGPS$M_VEC = '00000200'X
	PARAMETER EGPS$M_NOMOD = '00000400'X
	PARAMETER EGPS$M_COM = '00000800'X
	PARAMETER EGPS$M_ALLOC_64BIT = '00001000'X
	PARAMETER EGPS$K_NAME = '0000000C'X
	PARAMETER EGPS$C_NAME = '0000000C'X
	STRUCTURE /EGPSDEF/
	    UNION
	        MAP
	        INTEGER*2 EGPS$W_GSDTYP			 ! Typ field 
	        END MAP
	        MAP
	            ! unsupported type CHARACTER*0 EGPS$T_START
	            INTEGER*2 %FILL
	        END MAP
	    END UNION
	    INTEGER*2 EGPS$W_SIZE			 ! size of this EGPS
	    BYTE      EGPS$B_ALIGN			 ! P-sect alignment 
	    BYTE      EGPS$B_TEMP			 ! pad for aligning
	    UNION
	        MAP
	        INTEGER*2 EGPS$W_FLAGS			 ! P-sect flags 
	        END MAP
	        MAP
	            PARAMETER EGPS$S_PIC = 1
	            PARAMETER EGPS$V_PIC = 0		 ! Position independent 
	            PARAMETER EGPS$S_LIB = 1
	            PARAMETER EGPS$V_LIB = 1		 ! From a shareable image 
	            PARAMETER EGPS$S_OVR = 1
	            PARAMETER EGPS$V_OVR = 2		 ! Overlaid memory allocation 
	            PARAMETER EGPS$S_REL = 1
	            PARAMETER EGPS$V_REL = 3		 ! Relocatable 
	            PARAMETER EGPS$S_GBL = 1
	            PARAMETER EGPS$V_GBL = 4		 ! Global scope 
	            PARAMETER EGPS$S_SHR = 1
	            PARAMETER EGPS$V_SHR = 5		 ! Shareable 
	            PARAMETER EGPS$S_EXE = 1
	            PARAMETER EGPS$V_EXE = 6		 ! Executable 
	            PARAMETER EGPS$S_RD = 1
	            PARAMETER EGPS$V_RD = 7			 ! Readable 
	            PARAMETER EGPS$S_WRT = 1
	            PARAMETER EGPS$V_WRT = 8		 ! Writeable 
	            PARAMETER EGPS$S_VEC = 1
	            PARAMETER EGPS$V_VEC = 9		 ! Vector psect 
	            PARAMETER EGPS$S_NOMOD = 1
	            PARAMETER EGPS$V_NOMOD = 10		 ! Not stored into
	            PARAMETER EGPS$S_COM = 1
	            PARAMETER EGPS$V_COM = 11		 ! Associated with COMM sym
	            PARAMETER EGPS$S_ALLOC_64BIT = 1
	            PARAMETER EGPS$V_ALLOC_64BIT = 12	 ! Load in 64-bit space
	        BYTE %FILL (2)
	        END MAP
	    END UNION
	    INTEGER*4 EGPS$L_ALLOC			 ! Length of this contribution 
	    BYTE      EGPS$B_NAMLNG			 ! Length of p-sect name 
	    CHARACTER*31 EGPS$T_NAME		 ! Name field 
	END STRUCTURE	! EGPSDEF
 ! 
 !  EVAX GSD entry - 64-Bit P-section definition
 ! 
	PARAMETER EGPS64$M_PIC = '00000001'X
	PARAMETER EGPS64$M_LIB = '00000002'X
	PARAMETER EGPS64$M_OVR = '00000004'X
	PARAMETER EGPS64$M_REL = '00000008'X
	PARAMETER EGPS64$M_GBL = '00000010'X
	PARAMETER EGPS64$M_SHR = '00000020'X
	PARAMETER EGPS64$M_EXE = '00000040'X
	PARAMETER EGPS64$M_RD = '00000080'X
	PARAMETER EGPS64$M_WRT = '00000100'X
	PARAMETER EGPS64$M_VEC = '00000200'X
	PARAMETER EGPS64$M_NOMOD = '00000400'X
	PARAMETER EGPS64$M_COM = '00000800'X
	PARAMETER EGPS64$M_ALLOC_64BIT = '00001000'X
	PARAMETER EGPS64$K_NAME = '00000010'X
	PARAMETER EGPS64$C_NAME = '00000010'X
	STRUCTURE /EGPS64DEF/
	    UNION
	        MAP
	        INTEGER*2 EGPS64$W_GSDTYP		 ! Typ field 
	        END MAP
	        MAP
	            ! unsupported type CHARACTER*0 EGPS64$T_START
	            INTEGER*2 %FILL
	        END MAP
	    END UNION
	    INTEGER*2 EGPS64$W_SIZE			 ! size of this EGPS
	    BYTE      EGPS64$B_ALIGN		 ! P-sect alignment 
	    BYTE      EGPS64$B_TEMP			 ! pad for aligning
	    UNION
	        MAP
	        INTEGER*2 EGPS64$W_FLAGS		 ! P-sect flags 
	        END MAP
	        MAP
	            PARAMETER EGPS64$S_PIC = 1
	            PARAMETER EGPS64$V_PIC = 0		 ! Position independent 
	            PARAMETER EGPS64$S_LIB = 1
	            PARAMETER EGPS64$V_LIB = 1		 ! From a shareable image 
	            PARAMETER EGPS64$S_OVR = 1
	            PARAMETER EGPS64$V_OVR = 2		 ! Overlaid memory allocation 
	            PARAMETER EGPS64$S_REL = 1
	            PARAMETER EGPS64$V_REL = 3		 ! Relocatable 
	            PARAMETER EGPS64$S_GBL = 1
	            PARAMETER EGPS64$V_GBL = 4		 ! Global scope 
	            PARAMETER EGPS64$S_SHR = 1
	            PARAMETER EGPS64$V_SHR = 5		 ! Shareable 
	            PARAMETER EGPS64$S_EXE = 1
	            PARAMETER EGPS64$V_EXE = 6		 ! Executable 
	            PARAMETER EGPS64$S_RD = 1
	            PARAMETER EGPS64$V_RD = 7		 ! Readable 
	            PARAMETER EGPS64$S_WRT = 1
	            PARAMETER EGPS64$V_WRT = 8		 ! Writeable 
	            PARAMETER EGPS64$S_VEC = 1
	            PARAMETER EGPS64$V_VEC = 9		 ! Vector psect 
	            PARAMETER EGPS64$S_NOMOD = 1
	            PARAMETER EGPS64$V_NOMOD = 10		 ! Not stored into
	            PARAMETER EGPS64$S_COM = 1
	            PARAMETER EGPS64$V_COM = 11		 ! Associated with COMM sym
	            PARAMETER EGPS64$S_ALLOC_64BIT = 1
	            PARAMETER EGPS64$V_ALLOC_64BIT = 12	 ! Load in 64-bit space
	        BYTE %FILL (2)
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 EGPS64$Q_ALLOC(2)		 ! Length of this contribution 
	        END MAP
	        MAP
	        INTEGER*4 EGPS64$L_ALLOC		 !  Low Longword
	        END MAP
	    END UNION
	    BYTE      EGPS64$B_NAMLNG		 ! Length of p-sect name 
	    CHARACTER*31 EGPS64$T_NAME		 ! Name field 
	END STRUCTURE	! EGPS64DEF
!DEC$ END OPTIONS