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