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