PRC_S_SQL_DEBUG_LOG(1)

begin

    vi_max_sql_length := 4000;
    vi_sql_length := length(iv_sql);

    if (vi_sql_length > vi_max_sql_length) then
        vv_sql_text1 := substr(iv_sql, 1, vi_max_sql_length);
        vv_sql_text2 := substr(iv_sql, vi_max_sql_length+1, vi_max_sql_length);
    else
        vv_sql_text1 := iv_sql;
    end if;

    insert into LBI_SYS_VDF.t_s_sql_debug_log
    (
        log_time,
        task_name,
        sql_text1,
        sql_text2
    )
    values
    (
        sysdate,
        iv_task_name,
        vv_sql_text1,
        vv_sql_text2
    );

    commit;