FUNCTION CDXBloatRatio
LPARAMETERS ;
  tcTableName

LOCAL ;
  lnSelected, ;
  lcTempTableName, ;
  lnRetVal, ;
  lcOldCompatible

lnSelected = SELECT(0)
lcTempTableName = SYS(2015)
lcOldCompatible = SET([COMPATIBLE])

USE (tcTableName) IN 0 SHARED
COPY TO (lcTempTableName) WITH PRODUCTION

* or, if COPY TO ... WITH PRODUCTION simply copies the .CDX,
* COPY TO ... (without PRODUCTION) and manually rebuild the indices

SET COMPATIBLE ON
lnRetVal = (FSIZE(tcTableName + [.CDX]) / FSIZE(tcTempTableName + [.CDX])) - 1
SET COMPATIBLE &lcOldCompatible

ERASE (tcTempTableName + [.*])
USE IN (tcTableName)

SELECT lnSelected

RETURN lnRetVal