!*** MODULE $MHDDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Module header
 ! 
	PARAMETER MHD$C_MHDID = '000000AD'X	 !  Value that must be in the ident 
	PARAMETER MHD$K_REFLNG = '00000008'X	 !  Length of record to end of ref count 
	PARAMETER MHD$C_REFLNG = '00000008'X	 !  Length of record to end of ref count 
	PARAMETER MHD$K_INSTIME = '00000008'X	 !  Label for start of insert time 
	PARAMETER MHD$C_INSTIME = '00000008'X	 !  Label for start of insert time 
	PARAMETER MHD$K_USRDAT = '00000010'X	 !  Start of user additional header data 
	PARAMETER MHD$C_USRDAT = '00000010'X	 !  Start of user additional header data 
	PARAMETER MHD$K_MHDLEN = '00000010'X	 !  Length of fixed part of MHD 
	PARAMETER MHD$C_MHDLEN = '00000010'X	 !  Length of fixed part of MHD 
	PARAMETER MHD$M_SELSRC = '00000001'X
	PARAMETER MHD$M_OBJTIR = '00000002'X
	PARAMETER MHD$M_WKSYM = '00000004'X
	PARAMETER MHD$K_OBJIDENT = '00000012'X	 !  
	PARAMETER MHD$C_OBJIDENT = '00000012'X	 !  
	PARAMETER MHD$K_OREFOFFSET = '00000034'X  !  Offset of the other ref. count
	PARAMETER MHD$C_OREFOFFSET = '00000034'X  !  Offset of the other ref. count
	STRUCTURE /MHDDEF/
	    BYTE      MHD$B_LBRFLAG			 !  Librarian-controlled flag byte 
	    BYTE      MHD$B_ID			 !  Ident 
	    INTEGER*2 %FILL				 !  Reserved word 
	    INTEGER*4 MHD$L_REFCNT			 !  Reference count 
	    INTEGER*4 MHD$L_DATIM			 !  Date/time inserted 
	    UNION
	        MAP
	        INTEGER*4 %FILL				 !  ... 
	        END MAP
	        MAP
	            BYTE      %FILL(1:4)
	            ! unsupported type CHARACTER*0 MHD$B_USRDAT  !  Start of user additional header data 
	        END MAP
	    END UNION
	    UNION
	        MAP
	        BYTE      MHD$B_OBJSTAT			 !  Status of object module 
	        END MAP
	        MAP
	            PARAMETER MHD$S_SELSRC = 1
	            PARAMETER MHD$V_SELSRC = 0		 !  Selective search 
	            PARAMETER MHD$S_OBJTIR = 1
	            PARAMETER MHD$V_OBJTIR = 1		 !  Module contains TIR records 
	            PARAMETER MHD$S_WKSYM = 1
	            PARAMETER MHD$V_WKSYM = 2		 !  Module contains other non-group global symbol
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    UNION
	        MAP
	        BYTE      MHD$B_OBJIDLNG		 !  Length of ident 
	        END MAP
	        MAP
	            BYTE      %FILL
	            ! unsupported type CHARACTER*0 MHD$T_OBJIDENT  !  Object module ident 
	        END MAP
	    END UNION
	    BYTE      %FILL(1:31)			 !  Object module ident data or GSMATCH area
	    BYTE      %FILL(1:3)			 !  space
	    INTEGER*4 MHD$L_OTHEREFCNT		 !  Other reference count
	    INTEGER*4 MHD$L_MODSIZE			 !  Module size
	    INTEGER*4 MHD$L_FILL_7			 !   part of module size.
	END STRUCTURE	! MHDDEF
!DEC$ END OPTIONS