Галактика в вопросах и ответах

В примере проще некуда

Т.е. точная копия katorg-а.

cmInit :
{
  Delete All MyKatorg;
  _loop Katorg
    Insert current MyKatorg set MyKatorg.name := Katorg.name
                               ,MyKatorg.Nrec := Katorg.nrec;
}

должно работать по идее,хотя так вроде будет красивее
cminit:{
mtretrieve(#myKatorg,mfClear);
Insert into MyKatorg (name, nrec) Select name,nrec From katorg;
}
и в структуре атрибуты к индексу MyKatorg0:
Тable struct MyKatorg
(
nrec : comp
,name : string [ 80 ]
)
with index
(
MyKatorg0 = nrec ( Surrogate, Unique )
,MyKatorg1 = name
);

Галактика в вопросах и ответах

Странность в работе ТП под MSSQL