with SQL_Standard;
use SQL_Standard;
with SQL_Ins;
with Table_Definition;
with Text_IO; use Text_IO;
procedure Example is
    Code : SQLCODE_Type;
begin
    Table_Definition.Def_Table;
    SQL_Ins.POH_Insert(Code);
    Put_Line("Code = " & SQLCODE_Type'Image(Code));
end;