tldm-universe/Ardent/UV/INCLUDE/FILEINFO.INS.IBAS

116 lines
4.5 KiB
Plaintext
Raw Permalink Normal View History

2024-09-09 21:51:08 +00:00
********************************************************************************
*
* uniVerse include file for BASIC FILEINFO() function
*
* Module %M% Version %I% Date %H%
*
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
* This is unpublished proprietary source code of Ardent Software Inc.
* The copyright notice above does not evidence any actual or intended
* publication of such source code.
*
*******************************************************************************
*
* Maintenence log - insert most recent change descriptions at top
*
* Date.... GTAR# WHO Description.........................................
* 04/23/99 24742 GMH Add special FINFO$HDRLAYOUT and access keywords
* 10/14/98 23801 SAP Change copyrights.
* 12/20/94 15741 EAP Added FINFO$NLSMAP
* 02/01/94 12297 JSW Initial implementation.
*
*******************************************************************************
EQUATE FINFO$IS.FILEVAR TO 0 ;* Anything
EQUATE FINFO$VOCNAME TO 1 ;* PI only
EQUATE FINFO$PATHNAME TO 2 ;* ALL
EQUATE FINFO$TYPE TO 3 ;* ALL
EQUATE FINFO$HASHALG TO 4 ;* LH, SH
EQUATE FINFO$MODULUS TO 5 ;* LH, SH
EQUATE FINFO$MINMODULUS TO 6 ;* LH
EQUATE FINFO$GROUPSIZE TO 7 ;* LH
EQUATE FINFO$LARGERECORDSIZE TO 8 ;* LH
EQUATE FINFO$MERGELOAD TO 9 ;* LH
EQUATE FINFO$SPLITLOAD TO 10 ;* LH
EQUATE FINFO$CURRENTLOAD TO 11 ;* LH (percentage)
EQUATE FINFO$NODENAME TO 12 ;* ALL. Null if local, else nodename
EQUATE FINFO$IS.AKFILE TO 13 ;* LH
EQUATE FINFO$CURRENTLINE TO 14 ;* SEQ
EQUATE FINFO$PARTNUM TO 15 ;* Distributed, Multivolume
EQUATE FINFO$STATUS TO 16 ;* Distributed, Multivolume
EQUATE FINFO$RECOVERYTYPE TO 17 ;* ALL
EQUATE FINFO$RECOVERYID TO 18 ;* LH
EQUATE FINFO$IS.FIXED.MODULUS TO 19 ;* LH
EQUATE FINFO$NLSMAP TO 20 ;* ALL
EQUATE FINFO$MAXOPTION TO 20 ;* Maximum key
EQUATE FINFO$HDRLAYOUT to 99 ;* Special key to retrieve hdr layout
** These EQUATES are used with the FILEINFO function when a user
** requests the FINFO$HDRLAYOUT key. The values here are 1 greater
** then their 'C' counterpart (in filehdr.h), since these are used as
** field indexes into a dynamic array. Do not change these without
** changing those in filehdr.h
EQUATE FH$REVISION TO 1
EQUATE FH$MODULUS TO 2
EQUATE FH$SEPARATION TO 3
EQUATE FH$FILETYPE TO 4
EQUATE FH$INDEXFLAGS TO 5
EQUATE FH$FREECHAIN TO 6
EQUATE FH$T30INFOALL TO 7
EQUATE FH$T30TYPE TO 8
EQUATE FH$T30SPLIT TO 9
EQUATE FH$T30MERGE TO 10
EQUATE FH$T30CURMOD TO 11
EQUATE FH$T30BASEMOD TO 12
EQUATE FH$T30LARGEREC TO 13
EQUATE FH$T30CURRLOAD TO 14
EQUATE FH$T30SELECTCNT TO 15
EQUATE FH$T30NEXTSPLIT TO 16
EQUATE FH$SICADATA TO 17
EQUATE FH$PARTBLOCK TO 18
EQUATE FH$STATALL TO 30
EQUATE FH$STAT01 TO 31
EQUATE FH$STAT02 TO 32
EQUATE FH$STAT03 TO 33
EQUATE FH$STAT04 TO 34
EQUATE FH$STAT05 TO 35
EQUATE FH$STAT06 TO 36
EQUATE FH$STAT07 TO 37
EQUATE FH$STAT08 TO 38
EQUATE FH$STAT09 TO 39
EQUATE FH$STAT10 TO 40
EQUATE FH$STAT11 TO 41
EQUATE FH$STAT12 TO 42
EQUATE FH$STAT13 TO 43
EQUATE FH$STAT14 TO 44
EQUATE FH$STAT15 TO 45
EQUATE FH$STAT16 TO 46
EQUATE FH$STAT17 TO 47
EQUATE FH$STAT18 TO 48
EQUATE FH$NLSSORTCUM TO 49
EQUATE FH$NLSSORTMAP TO 50
EQUATE FH$TLFILNUM TO 61
EQUATE FH$pTLFILNUM TO 62
EQUATE FH$TLFLAGS TO 63
EQUATE FH$CHKPOINT TO 64
EQUATE FH$TXWARMLSN TO 65
EQUATE FH$NLSMAPCSUM TO 66
EQUATE FH$NLSMAPNAME TO 67
EQUATE FH$CLEARTIME TO 81
EQUATE FH$BAKTIME TO 82
EQUATE FH$BAKFLGS TO 83
EQUATE FH$BAKCNT TO 84
EQUATE FH$INDEXPATH TO 86
EQUATE FH$MKDBSTAMP TO 88
EQUATE FH$UVREADONLY TO 89
EQUATE FH$UVSCHEMA TO 90
EQUATE FH$IDXCOLCNT TO 91
EQUATE FH$IDXCOLMAP TO 92
EQUATE FH$UDRFLAGS TO 93
EQUATE FH$UDRUNIQUE TO 94
EQUATE FH$RESIZEPATH TO 95