Index progress

[Rimantas]

Hi !

I'm using this for CDX index progress , this works fine :

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;
IndProgres( oMeter, @lEnd, cInd_key, cInd_name, cDbf_name,
cDb_kel ) }, "File - " + alltrim( cDbf_name ) + " . Index - " + ;
alltrim( str( i, 2 ) ) + " ... ", ;
"Please wait , creating index of database . " + alltrim( str( len( aKeys ),
2 ) ) + " ind." )

function IndProgres( oMeter, lEnd, cInd_key, cInd_name, cDbf_name, cDb_kel )
oMeter:nTotal := ( cDbf_name )->( RecCount() )
index on &cInd_key tag &cInd_name to ( cDb_kel + cDbf_name ) ;
eval( oMeter:Set( ( cDbf_name )->( RecNo() ) ), SysRefresh(), !lEnd )
return( NIL )

How it make to work ADS CDX ? What values to use instead RecCount() and recno() ?

With best regards !