drop index     Sv_Test_Index;
drop table     Sv_Test_Table;
drop indextype Sv_Test_IndType;
drop operator  Sv_Test_Oper;
drop function  Sv_Test_Exe;
drop type      Sv_Test_Method;
drop type      Sv_OdciVarchar2List;
drop type      Sv_Varchar2;

create or replace type Sv_Varchar2 authid current_user as object
(
  Keys Varchar2(4000)
);

create or replace type Sv_OdciVarchar2List as Varray(32767) of Varchar2(4000);
--create or replace type Sv_OdciVarchar2List as Varray(32767) of Sv_Varchar2;

create or replace type Sv_Test_Method as object
(
  Step Number,
  Static Function OdciIndexInsert  (iA Sys.OdciIndexInfo, Rid Varchar2, NewVal Varchar2,                           Env Sys.OdciEnv) Return Number,
  --Static function OdciIndexInsert  (iA Sys.OdciIndexInfo, Rid Varchar2, NewVal Sv_Varchar2,                        Env Sys.OdciEnv) Return Number,
  Static Function OdciIndexInsert  (iA Sys.OdciIndexInfo, RidList Sys.OdciRidList, NewValList Sv_OdciVarchar2List, Env Sys.OdciEnv) Return Number,
  Static Function OdciGetInterfaces(ifClist out Sys.OdciObjectList                                                                 ) Return Number,
  Static Function OdciIndexCreate  (iA Sys.OdciIndexInfo, Parms Varchar2,                                          Env Sys.OdciEnv) Return Number,
  Static Function OdciIndexDrop    (iA Sys.OdciIndexInfo,                                                          Env Sys.OdciEnv) Return Number
);
/
create or replace type body Sv_Test_Method
is
  Static Function OdciIndexInsert  (iA Sys.OdciIndexInfo, Rid Varchar2, NewVal Varchar2,                         Env Sys.OdciEnv) Return Number
  --Static function OdciIndexInsert  (iA Sys.OdciIndexInfo, Rid Varchar2, NewVal Sv_Varchar2,                      Env Sys.OdciEnv) Return Number
  is 
  begin
    dbms_output.put_line('Insert row');
    Return OdciConst.Success;
  end;
                                                                                              
  Static Function OdciIndexInsert  (iA Sys.OdciIndexInfo, RidList Sys.OdciRidList, NewValList Sv_OdciVarchar2List, Env Sys.OdciEnv) Return Number
  is
     S Varchar2(50):='';
  begin 
    if(RidList.Count<>200 and RidList.Count<>55)then S:='Last record'; end if;
    dbms_output.put_line('Insert array= '||S||' '||RidList.Count);
    return OdciConst.Success;
  end;

  Static Function OdciGetInterfaces(ifClist out Sys.OdciObjectList                                                              ) Return Number
  is
  begin
    ifClist:=Sys.OdciObjectList(Sys.OdciObject('SYS','ODCIINDEX2'));
    dbms_output.put_line('Get');
    Return OdciConst.Success;
  end;

  Static Function OdciIndexCreate  (iA Sys.OdciIndexInfo, Parms Varchar2,                                        Env Sys.OdciEnv) Return Number
  is
  begin
    dbms_output.put_line('Create');
    Return OdciConst.Success;
  end;

  Static Function OdciIndexDrop    (iA Sys.OdciIndexInfo,                                                        Env Sys.OdciEnv) Return Number
  is
  begin
    dbms_output.put_line('Drop');
    Return OdciConst.Success;
  end;

end;
/
create or replace function Sv_Test_Exe(A Number,B Number) Return Number 
is
begin
  dbms_output.put_line('Execute');
  if a=b then return 1; else return 0; end if;
end;
/
create or replace operator Sv_Test_Oper binding(Number,Number) Return Number using Sv_Test_Exe;

/

create indextype Sv_Test_IndType for Sv_Test_Oper(Number,Number) using Sv_Test_Method with array DML(Varchar2,Sv_OdciVarchar2List);
--create indextype Sv_Test_IndType for Sv_Test_Oper(Number,Number) using Sv_Test_Method with array DML(Sv_Varchar2,Sv_OdciVarchar2List);

create table     Sv_Test_Table(ID Number(18,2),NM Varchar2(10));

create index     Sv_Test_Index on Sv_Test_Table(NM) indextype is Sv_Test_IndType;
--create index     Sv_Test_Index on Sv_Test_Table(Sv_Varchar2(NM)) indextype is Sv_Test_IndType;

insert into Sv_Test_Table values(0,'One');
insert into Sv_Test_Table select A.* from (select Level F1,'Array' F2 from DUAL connect by Level<301) A;
commit;
select * 
  from Sv_Test_Table
 where Sv_Test_Oper(1,1)=1;