PRC_S_YYYY_MM_WW_DD(4)

 /**
  * @description program executed successfully.normality return
  * @call LBI_SYS_VDF#prc_s_sys_log
  * @field-mapping oi_return = (0)
  */
  vv_task_pos := 'program end logging in';
  LBI_SYS_VDF.prc_s_sys_log(vi_task_id,
                            null,
                            null,
                            null,
                            0,
                            null,
                            null,
                            vi_result);
  oi_return := 0;

exception

  when exc_error then
    /**
    * @call LBI_SYS_VDF.#prc_s_sys_log  return with customized exception(error) in program processing
    * @field-mapping vv_err_msg = (vv_err_msg)
    * @field-mapping oi_return = (vi_err_code)
    */
    vv_err_msg := substr(vv_err_msg, 1, 200);
    rollback;
    LBI_SYS_VDF.prc_s_sys_log(vi_task_id,
                              null,
                              null,
                              null,
                              vi_err_code,
                              vv_err_msg,
                              vv_task_pos,
                              vi_result);
    oi_return := vi_err_code;