Inserting an index without reconstruction

Class dc.test Extends %Persistent
{

Index iF On F;

Property F As %Integer;

ClassMethod Fill(N = 10)
{
  k ^dc.testD,^dc.testI

  s ^dc.testD=4
  s ^dc.testD(1)=$lb("",22)
  s ^dc.testD(2)=$lb("",11)
  s ^dc.testD(3)=$lb("",44)
  s ^dc.testD(4)=$lb("",33)
  

  d $system.SQL.TuneTable($classname(),$$$YES)
  d $system.OBJ.Compile($classname(),"cu-d")
  
  k ^dc.testI
  
  d ##class(%SQL.Statement).%ExecDirect(,"select * from dc.test").%Display()

  s ^dc.testI("iF",1,22)="" w !!

  d ##class(%SQL.Statement).%ExecDirect(,"select * from dc.test").%Display()

  s ^dc.testI("iF",4,33)=""  w !!

  d ##class(%SQL.Statement).%ExecDirect(,"select * from dc.test").%Display()
}

}