public class Invoice {

  // Fields
  public String lineItem1Description;
  public double lineItem1Cost;

  public String lineItem2Description;
  public double lineItem2Cost;

  // An instance method
  public double totalSum() {
    double runningsum;
    double taxfactor =  1  + Invoice.rateOfTaxation();

    runningsum = lineItem1Cost + lineItem2Cost;
    runningsum = runningsum * taxfactor;

    return runningsum;
  }

  // A class method
  public static double rateOfTaxation() {
    double rate;
    rate = . 15 ;

    return rate;
  }
}

 -- Create an instance of the Invoice class as a SQL variable 
 
CREATE VARIABLE Inv Invoice
go
SET Inv = NEW Invoice()
go

 -- Check the value of the Inv variable.
 
SELECT IFNULL(Inv,
    'No object referenced',
    'Variable not null: contains object reference')
go

 -- Set values of the Invoice members
 
SET Inv.lineItem1Description = 'Work boots'
go
SET Inv.lineItem1Cost = '79.99'
go
SET Inv.lineItem2Description = 'Hay fork'
go
SET Inv.lineItem2Cost = '37.49'
go

 -- Retrieve values of the Invoice members
 
SELECT Inv.lineItem1Description;
output to 'report.txt'
go
SELECT Inv.lineItem1Cost;
output to 'report.txt'
append
go
SELECT Inv.lineItem2Description;
output to 'report.txt'
append
go
SELECT Inv.lineItem2Cost;
output to 'report.txt'
append
go

 -- Use a member of the Invoice class as a value in a query
 
SELECT * FROM PRODUCT
WHERE unit_price < Inv.lineItem2Cost;
output to 'report.txt'
append
go

 -- Invoke a method of the Invoice class using the SQL variable
 
SELECT Inv.totalSum();
output to 'report.txt'
append
go

 -- Address the class directly, instead of through the SQL variable
 
SELECT Invoice.rateOfTaxation();
output to 'report.txt'
append
go

if ( select count(*) 
     from SYSCATALOG 
     where tname = 'T1' 
     and creator = 'DBA' ) =  1  then
  drop table t1
end if
go

CREATE TABLE T1 (
    ID int,
    JCol Invoice
)
go

INSERT INTO T1
VALUES(  1 , Inv )
go

SELECT ID, JCol.lineItem1Description
FROM T1;
output to 'report.txt'
append
go

INSERT INTO T1
VALUES (  2 , NEW Invoice() )
go

SELECT ID, JCol.totalSum()
FROM t1;
output to 'report.txt'
append
go

CREATE VARIABLE Inv2 Invoice
go
SET Inv2 = (select JCol from T1 where ID =  2 )
go
SET Inv2.lineItem1Description = 'Sweet feed'
go
SET Inv2.lineItem2Description = 'Drive belt'
go

ASA почему дружит именно с Java? И расширенные хранимые процедуры на Delphi в DLL это не то? А то мне кто-то их советовал.

Жалко, что с Java я не дружу. Знаю Delphi и С++ поменьше.