******************************************************************************* * * 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