CREATE TABLE PAYMENT ( 
 PAYMENT_ID INT 
    PRIMARY KEY NOT NULL 
    GENERATED ALWAYS AS IDENTITY (START WITH 1, INCREMENT BY 1), 	
 CATEGORY INT, 
 DESCRIPTION CHAR(30), 
 AMOUNT DECIMAL(10,2), 
 FIXED_PAYMENT SMALLINT, 
 DUE_DATE DATE, 
 PAYEE_NAME CHAR(30), 
 PAYEE_ADDRESS1 CHAR(30), 	
 PAYEE_ADDRESS2 CHAR(30))

package services;
  
  import records.paymentRec;
  
  service TestSQLService
  
  ds SQLDataSource?{@Resource{uri="binding:Derby"}};
  
  function addTestPayment(newPayment paymentRec in)
       //logEntry ( "addPayment" ) ;
       try
           add newPayment to ds
               with #sql{
                       insert into PAYMENT
                             (CATEGORY, DESCRIPTION, AMOUNT, FIXED_PAYMENT, DUE_DATE, 
                             PAYEE_NAME, PAYEE_ADDRESS1, PAYEE_ADDRESS2)
                       values
                             (?, ?, ?, ?, ?, ?, ?, ?)
                 };
       onException(ex sqlException)
		SysLib.writeStdout(ex.message);
       end
  end
  
 end

package handlers;

// RUI Handler

import org.eclipse.edt.rui.widgets.Button;
import org.eclipse.edt.rui.widgets.GridLayout;
import org.eclipse.edt.rui.widgets.GridLayoutData;
import records.paymentRec;
import services.SQLService;

handler TestUI type RUIhandler{initialUI =[ui], onConstructionFunction = start, cssFile = "css/PaymentClient.css", title = ""}

    ui GridLayout{columns = 3, rows = 4, cellPadding = 4, children = [ CreateRecord ]};
    CreateRecord Button{ layoutData = new GridLayoutData{ row = 2, column = 2 }, text = "Create", onClick ::= CreateRecord_onClick };

    dbService SQLService?;				// EDT 0.8.0
    dedicatedServiceBinding HttpProxy;	// EDT 0.8.0

    function start()
    end
    
    function CreateRecord_onClick(event Event in)

       call dbService.addPayment(new paymentRec) 
       	using dedicatedServiceBinding
       	returning to recordAdded
          	onException serviceExceptionHandler;


    end

   function recordAdded()
    end
 
    function serviceExceptionHandler(ex anyException)
    end

end