String ls_empl_name // 变量定义

Select empl_name INTO :ls_empl_name FROM bse_employee Where empl_no = 'system' Using SQLCA ;

if sqlca.sqlcode 0 then // …失败

Else // ….成功

End if

Long ld_id = 0

String as_table = “tableXXX” // update

UPDATE sys_system_id SET id_counter = :ld_id WHERE id_table_name = :as_table Using SQLCA;