select A.*,
          MyType(A.F2).OKK 
  from (select 1 F1,2 F2 from DUAL
            union all
           select 2 F1,3 F2 from DUAL
          ) A

create or replace type rcNbi1 as object(id_sap varchar2(20),
                                        total  number(18,2),
                                        duble  number(18,2),
                                        down   number(18,2),
                                        span   number(18,2)
                                       );
/
create or replace type tbNbi1 as table of rcNbi1;
/
create or replace type ttNbi1 as object
(
  main    rcNbi1,
  list    VARCHAR2(4000),
  
  constructor function ttNbi1(
                              id_sap VARCHAR2,
                              total  NUMBER,
                              duble  NUMBER
                             ) 
                             return self as result,

   static function Calculate (
                              id_sap in out VARCHAR2,
                              total  in out NUMBER,
                              duble  in out NUMBER,
                              down   in out NUMBER,
                              list   in out VARCHAR2
                             ) 
                             return varchar2,

   member function Show      (
                              key in NUMBER
                             ) 
                             return tbNbi1 pipelined
);


create or replace type body ttNbi1 as

  constructor function ttNbi1(id_sap  VARCHAR2,
                              total   NUMBER,
                              duble   NUMBER
                             ) return self as result
  as 
  begin
    declare
      s varchar2(2);
    begin
      self.main:=rcNbi1(id_sap,total,duble,0,0);
      s:=ttNbi1.Calculate(self.main.id_sap,self.main.total,self.main.duble,self.main.down,self.list);
      return;
    end;
  end;
  
  static function Calculate(id_sap in out VARCHAR2,
                            total  in out NUMBER,
                            duble  in out NUMBER,
                            down   in out NUMBER,
                            list   in out VARCHAR2
                           ) return varchar2
  as 
  begin 
    down:=total*2;
    for i in 1..duble loop
      if list is Null then list:=i; else list:=list||';'||i; end if;
    end loop;
    return 'OK';
  end;
  
  member function Show     (
                            key in NUMBER
                           ) return tbNbi1 pipelined
  as 
  begin
    declare 
      a numeric(18,2):=0;
      s numeric(18,2):=0;
    begin 
      for i in 1..self.main.duble loop
        a:=To_Number(RegExp_Substr(self.list,'[^;]+',1,i));
        if key=0 then s:=s+a; a:=s; end if;
        if key=0 and i=self.main.duble or key=1 then pipe row(rcNbi1(self.main.id_sap,self.main.total,self.main.duble,self.main.down,a)); end if;
      end loop;
    end;   
  end;

end;
/

select T.*
  from (select '123456789' F1,120.00 F2,12   F3 from DUAL        
         union all  
        select '910003444' F1,500.00 F2,10   F3 from DUAL        
       ) A,
       table(ttNbi1(A.F1,A.F2,A.F3).Show(1)) t