!*** MODULE $CREDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Create options table
 ! 
	PARAMETER CRE$C_VMSV2 = '00000002'X	 !  VMS version V04-000 format 
	PARAMETER CRE$C_VMSV3 = '00000003'X	 !  VMS version 3 format 
	PARAMETER CRE$C_VMSV4 = '00000004'X	 !  VMS version 4 format for an ELF files.
	PARAMETER CRE$C_VMSV5 = '00000005'X	 !  VMS version 5 format for an ELF files.
	PARAMETER CRE$C_VMSV6 = '00000006'X	 !  VMS version 6 format for an ELF files.
	PARAMETER CRE$M_NOCASECMP = '00000001'X
	PARAMETER CRE$M_NOCASENTR = '00000002'X
	PARAMETER CRE$M_UPCASNTRY = '00000004'X
	PARAMETER CRE$C_HLPCASING = '00000006'X	 !  Treat upper casing as it is for HELP libs 
	PARAMETER CRE$C_OBJCASING = '00000003'X	 !  Treat upper casing as it is for OBJECT libs 
	PARAMETER CRE$C_MACTXTCAS = '00000000'X	 !  Treat upper casing as it is for MACRO and TEXT libs 
	PARAMETER CRE$K_LENGTH = '00000050'X	 !  
	PARAMETER CRE$C_LENGTH = '00000050'X	 !  
	STRUCTURE /CREDEF/
	    INTEGER*4 CRE$L_TYPE			 !  Type of library 
 !   (library types defined in $LBRDEF)
	    INTEGER*4 CRE$L_KEYLEN			 !  Length of keys in library 
	    INTEGER*4 CRE$L_ALLOC			 !  Initial file allocation 
	    INTEGER*4 CRE$L_IDXMAX			 !  Maximum number of indices 
	    INTEGER*4 CRE$L_UHDMAX			 !  Size of additional module header data 
	    INTEGER*4 CRE$L_ENTALL			 !  Number of index entries to pre-allocate 
	    INTEGER*4 CRE$L_LUHMAX			 !  Number of library update history records to store 
	    INTEGER*4 CRE$L_VERTYP			 !  Version type of library to create 
	    UNION
	        MAP
	        INTEGER*4 CRE$L_IDXOPT			 !  Index options 
	        END MAP
	        MAP
	            PARAMETER CRE$S_NOCASECMP = 1
	            PARAMETER CRE$V_NOCASECMP = 0		 !  Do not upper case the match key 
	            PARAMETER CRE$S_NOCASENTR = 1
	            PARAMETER CRE$V_NOCASENTR = 1		 !  Do not upper case the index key when comparing with 
					!  Do not upper case the index key when comparing with a match
	            PARAMETER CRE$S_UPCASNTRY = 1
	            PARAMETER CRE$V_UPCASNTRY = 2		 !  Upper case the index key when entering it into the l
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*4 %FILL(1:11)			 !  Reserved 11 longwords 
	END STRUCTURE	! CREDEF
!DEC$ END OPTIONS