Код для СУБД Caché 2012.1.FT4
Class del.t2 Extends %Persistent
{

Parameter SQLTABLETYPE = "GLOBAL TEMPORARY";

Property c1 As %Integer;

Property c2 As %Integer;

Property c3 As %Integer;

}

Class del.t1 Extends %Persistent
{

Property c1 As %Integer;

Property c2 As %Integer;

Property c3 As %Integer;

Property c4 As %Integer;

Index i1 On (c1, c3, c2);

ClassMethod Fill()
{
  set time=$zhorolog
  
  &sql(truncate table del.t1)
  
  for i=1:1:1000 {
    for j=1:1:20 {
      set c2=$random(1000)
      set c3=$random(1000)
      &sql(insert into del.t1(c1,c2,c3,c4) values(:i,:c2,:c3,:j))
    }
  }
  
  write "time=",$zhorolog-time," s.",!
}

ClassMethod MyTest()
{
  set time=$zhorolog
  
  &sql(truncate table del.t2)
  
  set p=$random(1000)
  
  for i=1:1:1000000 {
    set j=$random(1000)

    &sql(declare c cursor for select top 10 c2 from del.t1 where c1 = :p order by abs(c3 - :j) desc for read only)
    &sql(open c)
    for  {
      &sql(fetch c into :curC2)
      quit:SQLCODE
      
      &sql(insert into del.t2(c1,c2,c3) values(:p,:curC2,:j))
      
      if p'=curC2 {
        set p=curC2
        quit:$random(1000000)>400000
      }
    }
    &sql(close c)
  }
  
  write "time=",$zhorolog-time," s.",!
  
  &sql(select count(*) into :count from del.t2)
  write "count=",count,!
}

ClassMethod FillDirect()
{
  set time=$zhorolog
  
  do DISABLE^%NOJRN
  
  do ##class(del.t1).%KillExtent()
  
  set id=0
  for i=1:1:1000 {
    for j=1:1:20 {
      set id=id+1
      set c2=$random(1000)
      set c3=$random(1000)
      set ^del.t1D(id)=$listbuild("",i,c2,c3,j)
      set ^del.t1I("i1",i,c3,c2,id)=""
    }
  }
  
  set ^del.t1D=id
  
  do ENABLE^%NOJRN
  
  write "time=",$zhorolog-time," s.",!
}

}

SQL и NoSQL вариантыClass del.t2 Extends %Persistent
{
Parameter SQLTABLETYPE = "GLOBAL TEMPORARY";
Property c1 As %Integer;
Property c2 As %Integer;
Property c3 As %Integer;
}

Class del.t1 Extends %Persistent
{

Index i1 On (c1, c3, c2);

Property c1 As %Integer;
Property c2 As %Integer;
Property c3 As %Integer;
Property c4 As %Integer;

ClassMethod Fill()
{
  set time=$zhorolog
  
  &sql(truncate table del.t1)
  
  for i=1:1:1000 {
    for j=1:1:20 {
      set c2=$random(1000)
      set c3=$random(1000)
      &sql(insert into del.t1(c1,c2,c3,c4) values(:i,:c2,:c3,:j))
    }
  }
  
  write "time=",$zhorolog-time," s.",!
}

ClassMethod MyTest()
{
  set time=$zhorolog
  
  &sql(truncate table del.t2)
  
  set p=$random(1000)
  
  for i=1:1:1000000 {
    set j=$random(1000)

lblEachT

    &sql(declare c cursor for select top 10 c2 from del.t1 where c1 = :p order by abs(c3 - :j) desc for read only)
    &sql(open c)
    for  {
      &sql(fetch c into :curC2)
      quit:SQLCODE
      
      &sql(insert into del.t2(c1,c2,c3) values(:p,:curC2,:j))
      
      if p'=curC2 {
        set p=curC2
        if $random(1000000)>400000 {
          &sql(close c)
          goto lblEachT
        }
      }
    }
    &sql(close c)
  }
  
  write "time=",$zhorolog-time," s.",!
  
  &sql(select count(*) into :count from del.t2)
  write "count=",count,!
}

ClassMethod MyTestDirect()
{
  set time=$zhorolog
  
  kill ^||del.t2D
  
  set id=0
  set p=$random(1000)
  
  for i=1:1:1000000 {
    set j=$random(1000)

lblEachT
    continue:$data(^del.t1I("i1",p))=0
    set q=$query(^del.t1I("i1",p,""))
    kill ^||a
    for k=1:1:20 {
      set ^||a(-$zabs($qsubscript(q,3)-j),$qsubscript(q,4),k)=""
      set q=$query(@q)
    }
    
    set q=$query(^||a(""))
    for k=1:1:10 {
      set curC2=$qsubscript(q,2)

      set id=id+1
      set ^||del.t2D(id)=$listbuild("",p,curC2,j)
      
      if p'=curC2 {
        set p=curC2
        goto:$random(1000000)>400000 lblEachT
      }
      set q=$query(@q)
    }
  }
  set ^||del.t2D=id

  write "time=",$zhorolog-time," s.",!
  
  &sql(select count(*) into :count from del.t2)
  write "count=",count,!
}

}