package sql_standard is 
   package character_set renames standard;
   subtype character_type is character_set. character; 
   type char is array (positive range <>) of character_type; 
   type smallint is range -32768 .. 32767; 
   type int is range - 2 ** 31 .. (2 ** 31) - 1; 
   type real is digits 7; 
   type double_precision is digits 15; 
   type sqlcode_type is range - 1003 .. 1000; 
   subtype sql_error is sqlcode_type range sqlcode_type'first .. - 1; 
   subtype not_found is sqlcode_type range 100 .. 100; 
   subtype indicator_type is int; 
end;