log table and log library

table : azo_file
library : cl_azolog


DATABASE ds
GLOBALS "../../config/top.global"

FUNCTION cl_azolog(p_key,p_fn,p_src,p_tag)
  DEFINE p_key VARCHAR(40),                 # 索引值
         p_fn  VARCHAR(20),                 # 欄位名稱
         p_src VARCHAR(500),                # 原始值
         p_tag VARCHAR(500),                # 異動值
         p_log LIKE azo_file.azo06

  LET p_log = p_fn CLIPPED,' ',p_src CLIPPED,'->',p_tag CLIPPED

  WHENEVER ERROR CONTINUE
  INSERT INTO azo_file VALUES (g_prog,g_user,g_today,g_time,p_key,p_log)
  WHENEVER ERROR CALL cl_err_msg_log
  INSERT INTO tc_mem_file VALUES (g_prog,g_user,g_today,g_time,p_key,p_fn,p_src,p_tag)
END FUNCTION