-- $Source: /commtar/monoBANK/SQL_MC/sql_std.dat,v $ 
-- $Revision: 1.2 $ $Date: 88/07/28 17:50:28 $ $Author: rac $
with Host_character_Pkg ;
package SQL_Standard is
        -- this package defines the data types for the SQL Ada
        -- interface.  The types defined in this package should
        -- reflect the characteristics of the data base, not the
        -- Ada compiler.
        
    package Character_Set renames Host_Character_Pkg ;
    subtype Character_Type is Character_Set.Host_Character;
    
    type Char is array(Positive range <>) of Character_Type;
            -- this type is used for DATA stored in the data base.
            -- "Host_String" should be used for column/table names.
            
    type Smallint is range -2**15 .. 2**15-1;
    type Int is range -2**31 .. 2**31-1;
    type Real is digits 5;
    type Double_Precision is digits 9;
    
    type SQLCode_Type is range -100 .. 100;
    subtype SQL_Error is SQLCode_Type range SQLCode_Type'FIRST .. -1;
    subtype Not_Found is SQLCode_Type range 100 .. 100;
    subtype Indicator_Type is Smallint;
    
end SQL_Standard;
-- $Cprt start$
--  
-- Copyright (C) 1988 by Intermetrics, Inc. 
--  
--     This material may be used duplicated or disclosed by or for the 
-- U.S. Government pursuant to the copyright license under DAR clause 
-- 7-104.9(a) (May 1981). 
--  
--     This project was sponsored by the STARS Foundation 
--     Naval Research Laboratory, Washington DC 
--  
-- $Cprt end$