!*** MODULE $LHIDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Library header information array offsets
 ! 
	STRUCTURE /LHIDEF/
	    INTEGER*4 LHI$L_TYPE			 !  Library type 
	    INTEGER*4 LHI$L_NINDEX			 !  Number of indices 
	    INTEGER*4 LHI$L_MAJORID			 !  Library format major id 
	    INTEGER*4 LHI$L_MINORID			 !  Library format minor id 
	    CHARACTER*32 LHI$T_LBRVER		 !  ASCIC version of librarian that created 
	    INTEGER*4 LHI$L_CREDAT			 !  Creation date/time 
	    INTEGER*4 %FILL				 !  ... 
	    INTEGER*4 LHI$L_UPDTIM			 !  Date/time of last update 
	    INTEGER*4 %FILL				 !  ... 
	    INTEGER*4 LHI$L_UPDHIS			 !  VBN of start of update history 
	    INTEGER*4 LHI$L_FREEVBN			 !  1st logically deleted block 
	    INTEGER*4 LHI$L_FREEBLK			 !  Number of deleted blocks 
	    BYTE      LHI$B_NEXTRFA(1:6)		 !  RFA of end of library 
	    INTEGER*2 LHI$W_RFAXTR			 !  Spare word, zeroed 
	    INTEGER*4 LHI$L_NEXTVBN			 !  Next VBN to allocate at end of file 
	    INTEGER*4 LHI$L_FREIDXBLK		 !  Number of free pre-allocated index blocks 
	    INTEGER*4 LHI$L_FREEIDX			 !  Listhead for pre-allocated index blocks 
	    INTEGER*4 LHI$L_HIPREAL			 !  VBN of highest pre-allocated block 
	    INTEGER*4 LHI$L_IDXBLKS			 !  Number of index blocks in use 
	    INTEGER*4 LHI$L_IDXCNT			 !  Number of index entries (total) 
	    INTEGER*4 LHI$L_MODCNT			 !  Number of entries in index 1 (module names) 
	    INTEGER*4 LHI$L_MHDUSZ			 !  Length of user-maintained info in module header 
	    INTEGER*4 LHI$L_MAXLUHREC		 !  Maximum number of library update histories records maintained 
	    INTEGER*4 LHI$L_NUMLUHREC		 !  Number of LUH records in history 
	    INTEGER*4 LHI$L_LIBSTATUS		 !  False if there was an error closing lib 
	    BYTE      LHI$B_FREEHDRS(1:6)		 !  Freed list header structure in RFA structure format
	    BYTE      LHI$B_FREENODES(1:6)		 !  Freed list nodes structure in RFA struture format
	    INTEGER*4 LHI$L_IDX3HEAP		 !  VBN of third index block
	END STRUCTURE	! LHIDEF
!DEC$ END OPTIONS