|
Creates index with specified list of fields in mainkey. |
|
FIELD |
Add a group fields to index |
|
RecordBegin(DIVc,-,"");
RecordField(Code,M4Code,10,0);
RecordField(Name,M4Str,60,0);
RecordField(DispGroups,M4UStr,200,DIVc);
RecordField(CType,M4Code,10,0);
RecordField(colnr,M4Set,46,0);
MainKeyBegin(Code,0);
KeySegment(Code);
SynchronizationIndex;
KeyBegin(Name);
KeySegment(Name);
KeySegment(Code);
SubsetKeyBegin2(DICode);
StoreInBaseKey;
AppendListFieldToKeyName(DispGroups);
KeySegment(Code);
SubsetKeyBegin2(DIName);
StoreInBaseKey;
AppendListFieldToKeyName(DispGroups);
KeySegment(Name);
KeySegment(Code);
KeyBegin(CType);
KeySegment(CType);
KeySegment(Code);
EndRecord;
««