Create cursor crsINDEXES ; (TAG_NAME C(10) nocptrans, ; KEY_EXPR M, ; NDXTYPE C(1), ; IS_DESC L, ; FILTEREXPR M nocptrans, ; _TABLENAME M nocptrans) *.. If tagcount()>0 Dimension arrIndexes[tagcount(),6] For jx=1 to tagcount() arrIndexes[jx,1] = tag(jx) arrIndexes[jx,2] = key(jx) arrIndexes[jx,3] = iif(Primary(jx),'P',; iif(Candidate(jx),'C',iif(unique(jx),'U','R'))) arrIndexes[jx,4] = descending(jx) arrIndexes[jx,5] = sys(2021,jx) arrIndexes[jx,6] = arrTables[ix,1] Endfor Insert into crsINDEXES from array arrIndexes EndifCetin