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;