Ошибок нет, но не обновляет столбец  ‘column1’
int li_rows 
double ld_column1  // хочу обновить только один столбец в таблице

DECLARE icur_my CURSOR FOR 
  SELECT column1
FROM table_1; 

SQLCA.DBParm = "icur_my =1" // пускай эта строка некорректная
SQLCA.DBParm = "CursorUpdate = 1" 

OPEN icur_my ;  

li_rows =  1   
ld_column1 =  1 	//  1 . 01 
SQLCA.DBParm = "CursorUpdate = 1" 

DO 
FETCH icur_my INTO  :ld_column1; 
IF sqlca.SqlCode =  100  THEN 
		EXIT 
END IF	
// li_rows++  
li_rows +=  5  
ld_column1 = li_rows
UPDATE table_1
		SET  column1 =  :li_rows 	
	WHERE CURRENT OF  icur_my;
LOOP WHILE True  

// All done; close the cursor.
DELETE icur_my;	
CLOSE icur_my ;	
MessageBox("","li_rows = " + string(li_rows))  // определено  4206