LOCAL lnI, lcDecimals FOR lnI = 1 TO 18 lcDecimals = STR(lnI-1) SET DECIMALS TO &lcDecimals CREATE CURSOR crsTest (CharField C(6), NumField N(10)) INSERT INTO crsTest (CharField) VALUES ("2098") INSERT INTO crsTest (CharField) VALUES ("0092") INSERT INTO crsTest (CharField) VALUES ("3100") INSERT INTO crsTest (CharField) VALUES ("2101") INSERT INTO crsTest (CharField) VALUES ("2435") SCAN REPLACE NumField WITH VAL(CharField) ENDSCAN BROWSE NORMAL nextand it worked for any setting of SET DECIMALS.