oracle表数据转变成json

工作需要把表的数据全部转成json，于是就写了下面的代码，供大家参考

create table tb_column_json
(id number,table_name varchar2(100),json clob,create_time date);

create or replace procedure p_column_json(i_table_name varchar2) is

cursor c_column is select column_name   from   user_col_comments where table_name= upper(i_table_name);
v_sql_tem1   varchar2(4000);
v_sql_tem2  varchar2(4000);
v_sql varchar2(4000);
begin
  DBMS_OUTPUT.ENABLE(buffer_size => null);--设置输出缓存不受限制
  execute immediate 'delete tb_column_json where table_name='''||i_table_name||'''';
  for i in c_column loop
       v_sql_tem1 := v_sql_tem1||'|'||'|'||'''"'''||'|'||'|'||''''||i.column_name||''''||'|'||'|'||'''":"'''||'|'||'|'||i.column_name||'|'||'|'||'''",''';
    --dbms_output.put_line(sql_tem);

  end loop;
  v_sql:='insert into tb_column_json (table_name,json,create_time) select '''||i_table_name||''',replace(''{'''||substr(v_sql_tem1,1,length(v_sql_tem1)-4)||'''"}'','':""'','':null''),sysdate from '||i_table_name;

  -- dbms_output.put_line(v_sql);
  execute immediate v_sql;
  commit;
  
end;