private void LoadProfil(String resource,String kind,int duration,int grace,Double monthly,Double amount[],Double unpaid[],Double outstanding[]) 
    throws IOException 
	{
		InputStream is = this.getClass().getResourceAsStream(resource);
		InputStreamReader ir = new InputStreamReader(is);
		BufferedReader br = new BufferedReader(ir);
		int i=0;
		String  line;
		while ((line = br.readLine()) != null) 
		{
			String[] parts = line.split(",");
			if (   parts[1].equals(kind)
				&& duration >= Double.parseDouble(parts[2])  	
				&& duration <= Double.parseDouble(parts[3])  	
				&& grace    >= Double.parseDouble(parts[4])  	
				&& grace    <= Double.parseDouble(parts[5])  	
				&& monthly  >= Double.parseDouble(parts[6])  	
				&& monthly  <= Double.parseDouble(parts[7])  
				&& duration >= Double.parseDouble(parts[8]) 
			   ) 
			{
				if(parts[0].equals("AMOUNT"     )){      amount[Integer.parseInt(parts[8])] = Double.parseDouble(parts[9]); i++;}
				if(parts[0].equals("UNPAID"     )){      unpaid[Integer.parseInt(parts[8])] = Double.parseDouble(parts[9]); i++;}
				if(parts[0].equals("OUTSTANDING")){ outstanding[Integer.parseInt(parts[8])] = Double.parseDouble(parts[9]); i++;}
				if(i==(duration+1)*3) break;  
			}
		}
		br.close();
		ir.close();
		is.close();
	}

AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,0,0.00000000
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,1,0.00000000
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,2,0.00500124
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,3,0.00957669
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,4,0.01556268
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,5,0.01837840
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,6,0.02344896
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,7,0.03395024
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,8,0.04275083
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,9,0.05045687
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,10,0.05385495
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,11,0.06786924
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,12,0.08264786
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,13,0.11315307
AMOUNT,POS_Pos_Comfy,0.0000,84.0000,0.0000,0.0000,0.0000,0.5000,14,0.11896008

create or replace type ttNbi as object
(
  contract         VARCHAR2(14),
  segment          VARCHAR2(2),
  .........................................
  nbi              NUMBER(18,8),

  constructor function ttNbi(
                             contract         VARCHAR2,
                             segment          VARCHAR2,
                             .....................................
                             sms_rate         NUMBER
                            ) return self as result,
     static function Execute(
                             contract         in out VARCHAR2,
                             segment          in out VARCHAR2,
                             .............................................
                             nbi              in out NUMBER
                            ) return varchar2
external name 'Analitic.Irr.Execute
                            (
                             java.lang.String[],
                             java.lang.String[],
                             ..........................
                             oracle.sql.NUMBER[]
                            ) return java.lang.String[]'
);
                     

create or replace type body ttNbi as

  constructor function ttNbi(contract         VARCHAR2,
                             segment          VARCHAR2,
                             program          VARCHAR2,
                             ....................................
                             sms_rate         NUMBER
                            ) return self as result
  as begin 
    declare 
      s varchar2(10);
    begin
      self.contract       :=contract;
      self.segment        :=segment;
      ........................................
      self.sms_rate       :=sms_rate;
      s:=ttNbi.Execute(self.contract,         
                       self.segment,          
                       ...........................
                       self.nbi
                      );
      return;
    end;
  end;
end;                     
                     
select A.NBI.CONTRACT,
       A.NBI.IRR,
       A.NBI.APR,
       A.NBI.AMO,
       A.NBI.NBI  
  from (
        select A.*,
               ttNbi(A.contract, 
                     A.segment,
                     ....................
                     A.sms_rate
                    ) NBI 
          from (
                select id_contract_sap   contract,
                       To_char(rsegment) segment,
                       ..................
                       sms_rate 
                  from LIST
               ) A  
       ) A