!*** MODULE $MHDDEF ***
CDEC$ OPTIONS /NOALIGN
! 
!  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$K_OBJIDENT = '00000012'X	!  
	PARAMETER MHD$C_OBJIDENT = '00000012'X	!  
	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 
	        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
	END STRUCTURE	! MHDDEF
CDEC$ END OPTIONS