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