@tangelo/tangelo-configuration-toolkit 1.6.1 → 1.8.0-beta.2

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tables/txd_export_parameters.sql

@@ -1,37 +0,0 @@
-declare
-  cursor c is
-    select   ''||id||' id, '||export_format_id||' export_format_id, '''||name||''' name, '''||allowed_values||''' allowed_values'
-             values_str
-    from     tancms.txd_export_parameters t
-    where    export_format_id in
-               (select id
-                from   tancms.txd_export_formats
-                where  document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-                )
-    order by id
-  ;
-  r c%rowtype;
-begin
-  open  c;
-  fetch c into r;
-  if c%found then
-    dbms_output.put_line('prompt txd_export_parameters:');
-    dbms_output.put_line('merge into tancms.txd_export_parameters t using (');
-    while c%found loop
-      if c%rowcount > 1 then dbms_output.put_line('  union all'); end if;
-      dbms_output.put_line('  select '||replace(r.values_str, ', '''' ', ', null '));
-      dbms_output.put_line('  from   dual');
-      fetch c into r;
-    end loop;
-    dbms_output.put_line(') v on (t.id = v.id)');
-    dbms_output.put_line('when not matched then');
-    dbms_output.put_line('  insert (id, export_format_id, name, allowed_values)');
-    dbms_output.put_line('  values (v.id, v.export_format_id, v.name, v.allowed_values)');
-    dbms_output.put_line('when     matched then');
-    dbms_output.put_line('  update');
-    dbms_output.put_line('  set    t.export_format_id = v.export_format_id, t.name = v.name, t.allowed_values = v.allowed_values');
-    dbms_output.put_line(';');
-  end if;
-  close c;
-end;
-/

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tables/txd_node_types.sql

@@ -1,37 +0,0 @@
-declare
-  cursor c is
-    select   ''||id||' id, '''||name||''' name, '''||xsl_prep_inc||''' xsl_prep_inc, '''||xsl_prep_template||''' xsl_prep_template, xmltype('''||replace(t.xml_default_xmldata.getstringval(),'''','''''')||''') xml_default_xmldata, '''||replace(xpath_name,'''','''''')||''' xpath_name, '''||ind_xpath_on_resolved_xml||''' ind_xpath_on_resolved_xml, '''||xsd||''' xsd'
-             values_str
-    from     tancms.txd_node_types t
-    where    id in
-               (select node_type_id
-                from   tancms.txd_section_types
-                where  document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-                )
-    order by id
-  ;
-  r c%rowtype;
-begin
-  open  c;
-  fetch c into r;
-  if c%found then
-    dbms_output.put_line('prompt txd_node_types:');
-    dbms_output.put_line('merge into tancms.txd_node_types t using (');
-    while c%found loop
-      if c%rowcount > 1 then dbms_output.put_line('  union all'); end if;
-      dbms_output.put_line('  select '||replace(r.values_str, ', '''' ', ', null '));
-      dbms_output.put_line('  from   dual');
-      fetch c into r;
-    end loop;
-    dbms_output.put_line(') v on (t.id = v.id)');
-    dbms_output.put_line('when not matched then');
-    dbms_output.put_line('  insert (id, name, xsl_prep_inc, xsl_prep_template, xml_default_xmldata, xpath_name, ind_xpath_on_resolved_xml, xsd)');
-    dbms_output.put_line('  values (v.id, v.name, v.xsl_prep_inc, v.xsl_prep_template, v.xml_default_xmldata, v.xpath_name, v.ind_xpath_on_resolved_xml, v.xsd)');
-    dbms_output.put_line('when     matched then');
-    dbms_output.put_line('  update');
-    dbms_output.put_line('  set    t.name = v.name, t.xsl_prep_inc = v.xsl_prep_inc, t.xsl_prep_template = v.xsl_prep_template, t.xml_default_xmldata = v.xml_default_xmldata, t.xpath_name = v.xpath_name, t.ind_xpath_on_resolved_xml = v.ind_xpath_on_resolved_xml, t.xsd = v.xsd');
-    dbms_output.put_line(';');
-  end if;
-  close c;
-end;
-/

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tables/txd_object_elements.sql

@@ -1,33 +0,0 @@
-declare
-  cursor c is
-    select   ''||id||' id, '||document_type_id||' document_type_id, '''||object_type||''' object_type, '''||element_selector||''' element_selector, '''||attribute_name||''' attribute_name'
-             values_str
-    from     tancms.txd_object_elements t
-    where    document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-    order by id
-  ;
-  r c%rowtype;
-begin
-  open  c;
-  fetch c into r;
-  if c%found then
-    dbms_output.put_line('prompt txd_object_elements:');
-    dbms_output.put_line('merge into tancms.txd_object_elements t using (');
-    while c%found loop
-      if c%rowcount > 1 then dbms_output.put_line('  union all'); end if;
-      dbms_output.put_line('  select '||replace(r.values_str, ', '''' ', ', null '));
-      dbms_output.put_line('  from   dual');
-      fetch c into r;
-    end loop;
-    dbms_output.put_line(') v on (t.id = v.id)');
-    dbms_output.put_line('when not matched then');
-    dbms_output.put_line('  insert (id, document_type_id, object_type, element_selector, attribute_name)');
-    dbms_output.put_line('  values (v.id, v.document_type_id, v.object_type, v.element_selector, v.attribute_name)');
-    dbms_output.put_line('when     matched then');
-    dbms_output.put_line('  update');
-    dbms_output.put_line('  set    t.document_type_id = v.document_type_id, t.object_type = v.object_type, t.element_selector = v.element_selector, t.attribute_name = v.attribute_name');
-    dbms_output.put_line(';');
-  end if;
-  close c;
-end;
-/

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tables/txd_paste_stylesheets.sql

@@ -1,42 +0,0 @@
-declare
-  cursor c is
-    select   ''||id||' id, '||from_section_type_id||' from_section_type_id, '||to_section_type_id||' to_section_type_id, '''||stylesheet_type||''' stylesheet_type, '''||xsl||''' xsl'
-             values_str
-    from     tancms.txd_paste_stylesheets t
-    where    from_section_type_id in
-               (select id
-                from   tancms.txd_section_types
-                where  document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-                )
-       or    to_section_type_id in
-               (select id
-                from   tancms.txd_section_types
-                where  document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-                )
-    order by id
-  ;
-  r c%rowtype;
-begin
-  open  c;
-  fetch c into r;
-  if c%found then
-    dbms_output.put_line('prompt txd_paste_stylesheets:');
-    dbms_output.put_line('merge into tancms.txd_paste_stylesheets t using (');
-    while c%found loop
-      if c%rowcount > 1 then dbms_output.put_line('  union all'); end if;
-      dbms_output.put_line('  select '||replace(r.values_str, ', '''' ', ', null '));
-      dbms_output.put_line('  from   dual');
-      fetch c into r;
-    end loop;
-    dbms_output.put_line(') v on (t.id = v.id)');
-    dbms_output.put_line('when not matched then');
-    dbms_output.put_line('  insert (id, from_section_type_id, to_section_type_id, stylesheet_type, xsl)');
-    dbms_output.put_line('  values (v.id, v.from_section_type_id, v.to_section_type_id, v.stylesheet_type, v.xsl)');
-    dbms_output.put_line('when     matched then');
-    dbms_output.put_line('  update');
-    dbms_output.put_line('  set    t.from_section_type_id = v.from_section_type_id, t.to_section_type_id = v.to_section_type_id, t.stylesheet_type = v.stylesheet_type, t.xsl = v.xsl');
-    dbms_output.put_line(';');
-  end if;
-  close c;
-end;
-/

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tables/txd_section_types.sql

@@ -1,37 +0,0 @@
-declare
-  cursor c is
-    select   ''||id||' id, '||document_type_id||' document_type_id, '''||name||''' name, '''||parent_id||''' parent_id, '||node_type_id||' node_type_id, '''||replace(display_name,'''','''''')||''' display_name, '||seq||' seq, '||min_occurs||' min_occurs, '''||max_occurs||''' max_occurs, '''||allow_sharing_ind||''' allow_sharing_ind, '''||allow_using_ind||''' allow_using_ind, '''||browse_setting||''' browse_setting, '''||part_pdf_ind||''' part_pdf_ind, '''||nav_tree_child_levels||''' nav_tree_child_levels, '''||template_section_type_id||''' template_section_type_id, '''||xml_hook_function||''' xml_hook_function'
-             values_str
-    from     tancms.txd_section_types t
-    where    document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-    order by document_type_id, parent_id nulls first, id
-  ;
-  r c%rowtype;
-begin
-  open  c;
-  fetch c into r;
-  if c%found then
-    dbms_output.put_line('prompt txd_section_types:');
-    dbms_output.put_line('alter table tancms.txd_section_types disable constraint txd_stp_stp_fk1;');
-    dbms_output.put_line('alter table tancms.txd_section_types disable constraint txd_stp_stp_fk2;');
-    dbms_output.put_line('merge into tancms.txd_section_types t using (');
-    while c%found loop
-      if c%rowcount > 1 then dbms_output.put_line('  union all'); end if;
-      dbms_output.put_line('  select '||replace(r.values_str, ', '''' ', ', null '));
-      dbms_output.put_line('  from   dual');
-      fetch c into r;
-    end loop;
-    dbms_output.put_line(') v on (t.id = v.id)');
-    dbms_output.put_line('when not matched then');
-    dbms_output.put_line('  insert (id, document_type_id, name, parent_id, node_type_id, display_name, seq, min_occurs, max_occurs, allow_sharing_ind, allow_using_ind, browse_setting, part_pdf_ind, nav_tree_child_levels, template_section_type_id, xml_hook_function)');
-    dbms_output.put_line('  values (v.id, v.document_type_id, v.name, v.parent_id, v.node_type_id, v.display_name, v.seq, v.min_occurs, v.max_occurs, v.allow_sharing_ind, v.allow_using_ind, v.browse_setting, v.part_pdf_ind, v.nav_tree_child_levels, v.template_section_type_id, v.xml_hook_function)');
-    dbms_output.put_line('when     matched then');
-    dbms_output.put_line('  update');
-    dbms_output.put_line('  set    t.document_type_id = v.document_type_id, t.name = v.name, t.parent_id = v.parent_id, t.node_type_id = v.node_type_id, t.display_name = v.display_name, t.seq = v.seq, t.min_occurs = v.min_occurs, t.max_occurs = v.max_occurs, t.allow_sharing_ind = v.allow_sharing_ind, t.allow_using_ind = v.allow_using_ind, t.browse_setting = v.browse_setting, t.part_pdf_ind = v.part_pdf_ind, t.nav_tree_child_levels = v.nav_tree_child_levels, t.template_section_type_id = v.template_section_type_id, t.xml_hook_function = v.xml_hook_function');
-    dbms_output.put_line(';');
-    dbms_output.put_line('alter table tancms.txd_section_types enable constraint txd_stp_stp_fk1;');
-    dbms_output.put_line('alter table tancms.txd_section_types enable constraint txd_stp_stp_fk2;');
-  end if;
-  close c;
-end;
-/

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tables/txd_xml_file_set_type_pasters.sql

@@ -1,37 +0,0 @@
-declare
-  cursor c is
-    select   ''||id||' id, '||type_id||' type_id, '||node_type_id||' node_type_id, '''||element_name||''' element_name, '''||paster_type||''' paster_type, '''||xslt_path||''' xslt_path'
-             values_str
-    from     tancms.txd_xml_file_set_type_pasters t
-    where    node_type_id in
-               (select node_type_id
-                from   tancms.txd_section_types
-                where  document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-                )
-    order by id
-  ;
-  r c%rowtype;
-begin
-  open  c;
-  fetch c into r;
-  if c%found then
-    dbms_output.put_line('prompt txd_xml_file_set_type_pasters:');
-    dbms_output.put_line('merge into tancms.txd_xml_file_set_type_pasters t using (');
-    while c%found loop
-      if c%rowcount > 1 then dbms_output.put_line('  union all'); end if;
-      dbms_output.put_line('  select '||replace(r.values_str, ', '''' ', ', null '));
-      dbms_output.put_line('  from   dual');
-      fetch c into r;
-    end loop;
-    dbms_output.put_line(') v on (t.id = v.id)');
-    dbms_output.put_line('when not matched then');
-    dbms_output.put_line('  insert (id, type_id, node_type_id, element_name, paster_type, xslt_path)');
-    dbms_output.put_line('  values (v.id, v.type_id, v.node_type_id, v.element_name, v.paster_type, v.xslt_path)');
-    dbms_output.put_line('when     matched then');
-    dbms_output.put_line('  update');
-    dbms_output.put_line('  set    t.type_id = v.type_id, t.node_type_id = v.node_type_id, t.element_name = v.element_name, t.paster_type = v.paster_type, t.xslt_path = v.xslt_path');
-    dbms_output.put_line(';');
-  end if;
-  close c;
-end;
-/

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tables/txd_xml_file_set_types.sql

@@ -1,38 +0,0 @@
-declare
-  cursor c is
-    select   ''||id||' id, '''||replace(display_name,'''','''''')||''' display_name, '''||format||''' format, '''||xsl_custom||''' xsl_custom'
-             values_str
-    from     tancms.txd_xml_file_set_types t
-    where    id in
-               (select tp.type_id
-                from              tancms.txd_xml_file_set_type_pasters tp
-                       inner join tancms.txd_section_types             st on st.node_type_id = tp.node_type_id
-                where  document_type_id in (&l_txd_types) or '&l_txd_types' = '0'
-                )
-    order by id
-  ;
-  r c%rowtype;
-begin
-  open  c;
-  fetch c into r;
-  if c%found then
-    dbms_output.put_line('prompt txd_xml_file_set_types:');
-    dbms_output.put_line('merge into tancms.txd_xml_file_set_types t using (');
-    while c%found loop
-      if c%rowcount > 1 then dbms_output.put_line('  union all'); end if;
-      dbms_output.put_line('  select '||replace(r.values_str, ', '''' ', ', null '));
-      dbms_output.put_line('  from   dual');
-      fetch c into r;
-    end loop;
-    dbms_output.put_line(') v on (t.id = v.id)');
-    dbms_output.put_line('when not matched then');
-    dbms_output.put_line('  insert (id, display_name, format, xsl_custom)');
-    dbms_output.put_line('  values (v.id, v.display_name, v.format, v.xsl_custom)');
-    dbms_output.put_line('when     matched then');
-    dbms_output.put_line('  update');
-    dbms_output.put_line('  set    t.display_name = v.display_name, t.format = v.format, t.xsl_custom = v.xsl_custom');
-    dbms_output.put_line(';');
-  end if;
-  close c;
-end;
-/

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tan.sql

@@ -1,21 +0,0 @@
-spool dist/tan_install.sql
-prompt set serveroutput on format wrapped
-prompt prompt
-prompt prompt Installing common objects
-prompt prompt
-prompt
-
-prompt @@tan_contexts.sql
-prompt @@tan_xmlcache_files.sql
-
-prompt
-prompt commit;;
-spool off
-
-spool dist/tan_contexts.sql
-@core/tables/tan_contexts.sql
-spool off
-
-spool dist/tan_xmlcache_files.sql
-@core/tables/tan_xmlcache_files.sql
-spool off

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tdl.sql

@@ -1,46 +0,0 @@
-spool dist/tdl_install.sql
-prompt set serveroutput on format wrapped
-prompt prompt
-prompt prompt Installing collection types: &l_tdl_types
-prompt prompt
-prompt
-
-prompt @@tdl_collection_types.sql
-prompt @@tdl_collections.sql
-prompt @@tdl_context_collections.sql
-prompt @@tdl_media_types.sql
-prompt @@tdl_file_types.sql
-prompt @@tdl_file_type_extensions.sql
-prompt --@@tdl__tan_user_obj_privs.sql
-
-prompt
-prompt commit;;
-spool off
-
-spool dist/tdl_collection_types.sql
-@core/tables/tdl_collection_types.sql
-spool off
-
-spool dist/tdl_collections.sql
-@core/tables/tdl_collections.sql
-spool off
-
-spool dist/tdl_context_collections.sql
-@core/tables/tdl_context_collections.sql
-spool off
-
-spool dist/tdl_media_types.sql
-@core/tables/tdl_media_types.sql
-spool off
-
-spool dist/tdl_file_types.sql
-@core/tables/tdl_file_types.sql
-spool off
-
-spool dist/tdl_file_type_extensions.sql
-@core/tables/tdl_file_type_extensions.sql
-spool off
-
-spool dist/tdl__tan_user_obj_privs.sql
-@core/tables/tan_user_obj_privs.sql 10 &l_tdl_types
-spool off

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tfq.sql

@@ -1,31 +0,0 @@
-spool dist/tfq_install.sql
-prompt set serveroutput on format wrapped
-prompt prompt
-prompt prompt Installing subject types: &l_tfq_types
-prompt prompt
-prompt
-
-prompt @@tfq_subject_types.sql
-prompt @@tfq_subjects.sql
-prompt @@tfq_context_subjects.sql
-prompt --@@tfq__tan_user_obj_privs.sql
-
-prompt
-prompt commit;;
-spool off
-
-spool dist/tfq_subject_types.sql
-@core/tables/tfq_subject_types.sql
-spool off
-
-spool dist/tfq_subjects.sql
-@core/tables/tfq_subjects.sql
-spool off
-
-spool dist/tfq_context_subjects.sql
-@core/tables/tfq_context_subjects.sql
-spool off
-
-spool dist/tfq__tan_user_obj_privs.sql
-@core/tables/tan_user_obj_privs.sql 8 &l_tfq_types
-spool off

package/build/project/tangelo-default-implementation/tct/sql/generate/core/til.sql

@@ -1,35 +0,0 @@
-spool dist/til_install.sql
-prompt set serveroutput on format wrapped
-prompt prompt
-prompt prompt Installing image types: &l_til_types
-prompt prompt
-prompt
-
-prompt @@til_image_types.sql
-prompt @@til_image_type_renditions.sql
-prompt @@til_collections.sql
-prompt @@til_collection_imagetypes.sql
-prompt --@@til__tan_user_obj_privs.sql
-
-prompt
-prompt commit;;
-
-spool dist/til_image_types.sql
-@core/tables/til_image_types.sql
-spool off
-
-spool dist/til_image_type_renditions.sql
-@core/tables/til_image_type_renditions.sql
-spool off
-
-spool dist/til_collections.sql
-@core/tables/til_collections.sql
-spool off
-
-spool dist/til_collection_imagetypes.sql
-@core/tables/til_collection_imagetypes.sql
-spool off
-
-spool dist/til__tan_user_obj_privs.sql
-@core/tables/tan_user_obj_privs.sql 12 &l_til_types
-spool off

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tmd.sql

@@ -1,26 +0,0 @@
-spool dist/tmd_install.sql
-prompt set serveroutput on format wrapped
-prompt prompt
-prompt prompt Installing metadata types: &l_tmd_types
-prompt prompt
-prompt
-
-prompt @@tmd_types.sql
-prompt --@@tmd_values.sql
-prompt --@@tmd__tan_user_obj_privs.sql
-
-prompt
-prompt commit;;
-spool off
-
-spool dist/tmd_types.sql
-@core/tables/tmd_types.sql
-spool off
-
-spool dist/tmd_values.sql
-@core/tables/tmd_values.sql
-spool off
-
-spool dist/tmd__tan_user_obj_privs.sql
-@core/tables/tan_user_obj_privs.sql 4 &l_tmd_types
-spool off

package/build/project/tangelo-default-implementation/tct/sql/generate/core/tne.sql

@@ -1,46 +0,0 @@
-spool dist/tne_install.sql
-prompt set serveroutput on format wrapped
-prompt prompt
-prompt prompt Installing newsroom types: &l_tne_types
-prompt prompt
-prompt
-
-prompt @@tne_newsroom_types.sql
-prompt @@tne_newsroom_type_weights.sql
-prompt @@tne_newsrooms.sql
-prompt @@tne_channels.sql
-prompt @@tne_channel_sources.sql
-prompt @@tne_context_channels.sql
-prompt --@@tne__tan_user_obj_privs.sql
-
-prompt
-prompt commit;;
-spool off
-
-spool dist/tne_newsroom_types.sql
-@core/tables/tne_newsroom_types.sql
-spool off
-
-spool dist/tne_newsroom_type_weights.sql
-@core/tables/tne_newsroom_type_weights.sql
-spool off
-
-spool dist/tne_newsrooms.sql
-@core/tables/tne_newsrooms.sql
-spool off
-
-spool dist/tne_channels.sql
-@core/tables/tne_channels.sql
-spool off
-
-spool dist/tne_channel_sources.sql
-@core/tables/tne_channel_sources.sql
-spool off
-
-spool dist/tne_context_channels.sql
-@core/tables/tne_context_channels.sql
-spool off
-
-spool dist/tne__tan_user_obj_privs.sql
-@core/tables/tan_user_obj_privs.sql 5 &l_tne_types
-spool off

package/build/project/tangelo-default-implementation/tct/sql/generate/core/txd.sql

@@ -1,76 +0,0 @@
-spool dist/txd_install.sql
-prompt set serveroutput on format wrapped
-prompt prompt
-prompt prompt Installing document types: &l_txd_types
-prompt prompt
-prompt
-
-prompt @@txd_document_types.sql
-prompt @@txd_node_types.sql
-prompt @@txd_section_types.sql
-prompt @@txd_export_formats.sql
-prompt @@txd_export_parameters.sql
-prompt @@txd_paste_stylesheets.sql
-prompt @@txd_object_elements.sql
-prompt @@txd_xml_file_set_types.sql
-prompt @@txd_xml_file_set_type_pasters.sql
-prompt @@txd_auto_file_generation.sql
-prompt @@txd_custom_menu_items.sql
-prompt @@txd__tan_user_obj_privs_default.sql
-prompt --@@txd__tan_user_obj_privs.sql
-
-prompt
-prompt commit;;
-spool off
-
-spool dist/txd_document_types.sql
-@core/tables/txd_document_types.sql
-spool off
-
-spool dist/txd_node_types.sql
-@core/tables/txd_node_types.sql
-spool off
-
-spool dist/txd_section_types.sql
-@core/tables/txd_section_types.sql
-spool off
-
-spool dist/txd_export_formats.sql
-@core/tables/txd_export_formats.sql
-spool off
-
-spool dist/txd_export_parameters.sql
-@core/tables/txd_export_parameters.sql
-spool off
-
-spool dist/txd_paste_stylesheets.sql
-@core/tables/txd_paste_stylesheets.sql
-spool off
-
-spool dist/txd_object_elements.sql
-@core/tables/txd_object_elements.sql
-spool off
-
-spool dist/txd_xml_file_set_type_pasters.sql
-@core/tables/txd_xml_file_set_type_pasters.sql
-spool off
-
-spool dist/txd_xml_file_set_types.sql
-@core/tables/txd_xml_file_set_types.sql
-spool off
-
-spool dist/txd_auto_file_generation.sql
-@core/tables/txd_auto_file_generation.sql
-spool off
-
-spool dist/txd_custom_menu_items.sql
-@core/tables/txd_custom_menu_items.sql
-spool off
-
-spool dist/txd__tan_user_obj_privs_default.sql
-@core/tables/tan_user_obj_privs_default.sql 1 &l_txd_types
-spool off
-
-spool dist/txd__tan_user_obj_privs.sql
-@core/tables/tan_user_obj_privs.sql 1 &l_txd_types
-spool off

package/build/project/tangelo-default-implementation/tct/sql/generate/dev/upsert_script_creator.tst

@@ -1,109 +0,0 @@
-PL/SQL Developer Test script 3.0
-99
-declare
-  l_val         varchar2(500);
-  l_merge_on    varchar2(100);
-  l_values_row  clob;
-  l_insert_cols clob;
-  l_values_cols clob;
-  l_set_cols    clob;
-  l_plsql       clob;
-  
-  function q(n in integer)
-  return varchar2
-  is
-    s varchar2(10);
-  begin
-    for i in 1..n loop
-      s := s || '''';
-    end loop;
-    return s;
-  end;
-begin
-  for r in (
-    select   tc.column_name, tc.data_type, tc.nullable, decode(a.column_name,null,'N','Y') pk
-    ,        't.' || tc.column_name ||' = v.' || tc.column_name col_match_expr
-    from     user_tab_cols tc
-             left join 
-               (select c.table_name, cc.column_name
-                from              user_constraints  c
-                       inner join user_cons_columns cc on cc.constraint_name = c.constraint_name
-                where  c.constraint_type = 'P'
-                ) a
-                on a.table_name = tc.table_name and a.column_name = tc.column_name
-    where    upper(tc.table_name) = upper(:table_name) and tc.hidden_column = 'NO'
-    order by tc.column_id
-  )
-  loop
-    if r.data_type in ('XMLTYPE','CLOB') then
-      l_val     := q(3)||'||replace(t.'||r.column_name||'.getstringval(),'||q(4)||','||q(6)||')||'||q(3);
-      if r.data_type = 'XMLTYPE' then
-        l_val   := 'xmltype('||l_val||')';
-      end if;
-      
-    elsif upper(r.column_name) in ('DISPLAY_NAME','DESCRIPTION') then
-      l_val     := q(3)||'||replace('||r.column_name||','||q(4)||','||q(6)||')||'||q(3);
-      
-    elsif r.data_type in ('VARCHAR2') or r.nullable = 'Y' then
-      l_val     := q(3)||'||'||r.column_name||'||'||q(3);
-      
-    else
-      l_val     := '''||'||r.column_name||'||''';
-    end if;
-    
-    l_values_row  := case when l_values_row  is not null then l_values_row  || ', ' end || l_val || ' ' || r.column_name;
-    l_insert_cols := case when l_insert_cols is not null then l_insert_cols || ', ' end || r.column_name;
-    l_values_cols := case when l_values_cols is not null then l_values_cols || ', ' end || 'v.' || r.column_name;
-    
-    if r.pk = 'Y' then
-      l_merge_on := case when l_merge_on is not null then l_merge_on || ', ' end || r.col_match_expr;
-    else
-      l_set_cols := case when l_set_cols is not null then l_set_cols || ', ' end || r.col_match_expr;
-    end if;
-    
-  end loop;
-  
-  l_plsql :=   'declare'
-    ||chr(10)||'  cursor c is'
-    ||chr(10)||'    select   '''||l_values_row||''''
-    ||chr(10)||'             values_str'
-    ||chr(10)||'    from     tancms.'||:table_name||' t'
-    ||chr(10)||'    where    id in (&l_'||substr(:table_name,0,3)||'_types) or ''&l_'||substr(:table_name,0,3)||'_types'' = ''0'''
-    ||chr(10)||'    order by id'
-    ||chr(10)||'  ;'
-    ||chr(10)||'  r c%rowtype;'
-    ||chr(10)||'begin'
-    ||chr(10)||'  open  c;'
-    ||chr(10)||'  fetch c into r;'
-    ||chr(10)||'  if c%found then'
-    ||chr(10)||'    dbms_output.put_line(''prompt '||:table_name||':'');'
-    ||chr(10)||'    dbms_output.put_line(''merge into tancms.'||:table_name||' t using ('');'
-    ||chr(10)||'    while c%found loop'
-    ||chr(10)||'      if c%rowcount > 1 then dbms_output.put_line(''  union all''); end if;'
-    ||chr(10)||'      dbms_output.put_line(''  select ''||replace(r.values_str, '', '''''''' '', '', null ''));'
-    ||chr(10)||'      dbms_output.put_line(''  from   dual'');'
-    ||chr(10)||'      fetch c into r;'
-    ||chr(10)||'    end loop;'
-    ||chr(10)||'    dbms_output.put_line('') v on ('||l_merge_on||')'');'
-    ||chr(10)||'    dbms_output.put_line(''when not matched then'');'
-    ||chr(10)||'    dbms_output.put_line(''  insert ('||l_insert_cols||')'');'
-    ||chr(10)||'    dbms_output.put_line(''  values ('||l_values_cols||')'');'
-    ||chr(10)||'    dbms_output.put_line(''when     matched then'');'
-    ||chr(10)||'    dbms_output.put_line(''  update'');'
-    ||chr(10)||'    dbms_output.put_line(''  set    '||l_set_cols||''');'
-    ||chr(10)||'    dbms_output.put_line('';'');'
-    ||chr(10)||'  end if;'
-    ||chr(10)||'  close c;'
-    ||chr(10)||'end;'
-    ||chr(10)||'/'
-  ;
-  :out := lower(l_plsql);
-end;
-2
-table_name
-0
-5
-out
-0
-10
-0