!*** MODULE $MHDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Module header record (MHD)
 ! 
	PARAMETER MHD$C_MHD = '00000000'X	 ! Main header record 
	PARAMETER MHD$C_LNM = '00000001'X	 ! Language name and version 
	PARAMETER MHD$C_SRC = '00000002'X	 ! Source file specification 
	PARAMETER MHD$C_TTL = '00000003'X	 ! Title text of module 
	PARAMETER MHD$C_CPR = '00000004'X	 ! Copyright notice 
	PARAMETER MHD$C_MTC = '00000005'X	 ! Maintenence status 
	PARAMETER MHD$C_GTX = '00000006'X	 ! General text 
	PARAMETER MHD$C_MAXHDRTYP = '00000006'X	 ! Maximum allowable type 
	STRUCTURE /MHDEF/
	    BYTE      MHD$B_RECTYP			 ! Record type (OBJ$C_MHD) 
	    BYTE      MHD$B_HDRTYP			 ! Type field for MHD 
 ! Types of header records 
	    BYTE      MHD$B_STRLVL			 ! Structure level 
	    INTEGER*2 MHD$W_RECSIZ			 ! Maximum record size 
	    BYTE      MHD$B_NAMLNG			 ! Module name length 
	    CHARACTER*31 MHD$T_NAME			 ! Module name 
	END STRUCTURE	! MHDEF
!DEC$ END OPTIONS