!*** MODULE $LPRODEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  GSD entry - Module Local Procedure definition
 ! 
	PARAMETER LPRO$K_NAME = '0000000F'X
	PARAMETER LPRO$C_NAME = '0000000F'X
	STRUCTURE /LPRODEF/
	    UNION
	        MAP
	        BYTE      LPRO$B_GSDTYP			 ! Maps over LSY$B_GSDTYP 
	        END MAP
	        MAP
	            ! unsupported type CHARACTER*0 LPRO$T_START
	            BYTE      %FILL
	        END MAP
	    END UNION
	    BYTE      LPRO$B_DATYP			 ! Maps over LSY$B_DATYP 
	    INTEGER*2 LPRO$W_FLAGS			 ! Maps over LSY$W_FLAGS 
	    INTEGER*2 LPRO$W_ENVINDX		 ! Environment index symbol defined in 
	    INTEGER*2 LPRO$W_PSINDX			 ! Maps over LSDF$W_PSINDX 
	    INTEGER*4 LPRO$L_ADDRS			 ! Entry point address, maps 
 !  over LSDF$L_VALUE
	    INTEGER*2 LPRO$W_MASK			 ! Entry point mask 
	    BYTE      LPRO$B_NAMLNG			 ! Length of name 
	    CHARACTER*31 LPRO$T_NAME		 ! Symbol name 
	END STRUCTURE	! LPRODEF
!DEC$ END OPTIONS