>I guess that is what happens when I don't 'think about' what I'm reading! I should have paid closer attention!
>
>Thanks for the code!
>Tracy
VFP version :)

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
Endif

Cetin