!*** MODULE $CREDEF *** CDEC$ OPTIONS /NOALIGN ! ! 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$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 a match key PARAMETER CRE$S_UPCASNTRY = 1 PARAMETER CRE$V_UPCASNTRY = 2 ! Upper case the index key when entering it into the library BYTE %FILL (1) END MAP END UNION INTEGER*4 %FILL(1:11) ! Reserved 11 longwords END STRUCTURE ! CREDEF CDEC$ END OPTIONS