with text_io, sql_communications_pkg, sql_char_pkg;
   use text_io, sql_communications_pkg, sql_char_pkg;

package body sql_database_error_pkg is
  procedure process_database_error is
  begin 
    -- this procedure is called in response to some unexpected database exception
    -- The procedure may be modified per the needs of the Abstract Interface 
    -- developer.
    -- This is a minimal implementation...get a descriptive error message from 
    -- the DBMS
    -- (through sql_communication_package) and display it on standard output...
    put_line (to_string (sql_char_not_null (sql_database_error_message)));
  end process_database_error;

end sql_database_error_pkg;