85 lines
2.2 KiB
Plaintext
Executable File
85 lines
2.2 KiB
Plaintext
Executable File
*******************************************************************************
|
|
*
|
|
* SQL catalog verification tool common definitions.
|
|
*
|
|
* 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.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenance log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description.........................................
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 08/08/94 14217 MGM Add view/assoc support for Rev. 8
|
|
* 07/18/93 10131 DPB Initial creation of catalog verification tool.
|
|
*
|
|
*******************************************************************************
|
|
COMMON uvtables,uvcolumns,uvassoc,uvusers,uvschema,uvview,Pchan,LPTR,ECount,FECount,IECount,UV.ROOT
|
|
|
|
Width = SYSTEM(2)
|
|
|
|
* Sections of the SICA
|
|
EQU NAME TO 1 ;* Line 1 is the table information
|
|
|
|
EQU TABLENAME TO 1
|
|
EQU SCHEMANAME TO 2
|
|
EQU CHECKSUM TO 3
|
|
EQU CHECKSHOULD TO 4
|
|
EQU SIZE TO 5
|
|
EQU OWNER TO 6
|
|
|
|
EQU NUMBERS TO 2 ;* Line 2 is the number of columns, etc.
|
|
|
|
EQU TOTCOLS TO 1
|
|
EQU COLCOUNT TO 2
|
|
EQU KEYCOUNT TO 3
|
|
EQU CHECKCOUNT TO 4
|
|
EQU PERMCOUNT TO 5
|
|
EQU ASSCOUNT TO 6
|
|
|
|
EQU COLUMN TO 3 ;* Lines 3 through 3+(COLCOUNT+KEYCOUNT) are columns.
|
|
|
|
EQU COLNAME TO 1
|
|
EQU POSITION TO 2
|
|
EQU KEYPOS TO 3
|
|
EQU MULTIVALUED TO 4
|
|
EQU NOTNULL TO 5
|
|
EQU NOTEMPTY TO 6
|
|
EQU UNIQUE TO 7
|
|
EQU ROWUNIQUE TO 8
|
|
EQU PRIMARYKEY TO 9
|
|
EQU DEFTYPE TO 10 ;* Default type of the data
|
|
|
|
EQU NONE TO 0
|
|
EQU NULL TO 1
|
|
EQU USER TO 2
|
|
EQU LITERAL TO 3
|
|
|
|
EQU DATATYPE TO 11
|
|
|
|
EQU INT TO 0
|
|
EQU SMALLINT TO 1
|
|
EQU CHAR TO 2
|
|
EQU FLOAT TO 3
|
|
EQU REAL TO 4
|
|
EQU DOUBLE TO 5
|
|
EQU VARCHAR TO 6
|
|
EQU DECIMAL TO 7
|
|
EQU NUMERIC TO 8
|
|
EQU DATE TO 9
|
|
EQU TIME TO 10
|
|
|
|
DATATYPES = "INT":@FM:"SMALLINT":@FM:"CHAR":@FM:"FLOAT":@FM:"REAL":@FM:"DOUBLE":@FM:"VARCHAR":@FM:"DECIMAL":@FM:"NUMERIC":@FM:"DATE":@FM:"TIME"
|
|
|
|
EQU DATALEN TO 12
|
|
EQU CONV TO 13
|
|
EQU FORMAT TO 14
|
|
EQU DEFAULT TO 15
|
|
EQU ASSOC TO 16
|
|
|