用于从Oracle数据库表生成XML文件

Question

I have a Query I want t Create a store procedure for generate a xml file with respect table, Store procedure input parameter is table name , when User execute this store procedure then one xml file has created in select dir , I have created one store procedure but i am not getting proper xml format, please help

<? xml version= 1.0 encoding= utf-8 standalone= yes?>
<root xmlns xs="http //www.w3.org/2001/xmlschema"> 
<tablename> 
<column name1>column data</column name1>
<column name2>column data</column name2>
<column name3>column data</column name3>
<column name4>column data</column name4>

<column name1>column data</column name1>
<column name2>column data</column name2>
<column name3>column data</column name3>
<column name4>column data</column name4>

<column name1>column data</column name1>
<column name2>column data</column name2>
<column name3>column data</column name3>
<column name4>column data</column name4>

<column name1>column data</column name1>
<column name2>column data</column name2>
<column name3>column data</column name3>
<column name4>column data</column name4>
     ....
     ....
</tablename>


create or replace 
PROCEDURE Export_In_XML1 
(
   V_TABLE_NAME1 IN varchar2,
   v_FLAG OUT NUMBER
  )
AS
BEGIN
             ----- Export  table data
          DECLARE
            v_file  UTL_FILE.file_type;
            qryCtx DBMS_XMLGEN.ctxHandle;
            result CLOB;
            v_FILENAME varchar(50);
            xt_data xmltype;
            v_ctx dbms_xmlgen.ctxHandle;
            rc_data sys_refcursor;
            V_TABLE_NAME varchar(50);

     BEGIN
            ---------for Project table
           V_TABLE_NAME :=UPPER(V_TABLE_NAME1);    


         IF UPPER(V_TABLE_NAME) = 'LEG_DISTRICTS' THEN  

                                           BEGIN 
                                               v_file := UTL_FILE.fopen('MYXML',V_TABLE_NAME ||'.xml', 'W');

                                               OPEN rc_data FOR 
                                              'SELECT COUNTYID as COUNTYID,
                                                        ASSEMBLY,
                                                        SENATE,
                                                        CONG,
                                                        TXT_ASS,
                                                        TXT_SEN,
                                                        TXT_CON 
                                                        from '||V_TABLE_NAME ||'';

                                                  v_ctx := dbms_xmlgen.newContext (rc_data);

                                                  DBMS_XMLGEN.setrowsettag(v_ctx, 'LEG_DISTRICTS'); 
                                                  DBMS_XMLGEN.setrowtag(v_ctx, NULL);

                                                  xt_data := dbms_xmlgen.getXMLType(v_ctx);
                                                  dbms_xmlgen.closeContext (v_ctx);
                                                  v_file := UTL_FILE.fopen('MYXML', V_TABLE_NAME ||'.xml', 'A');

                                                  dbms_xslprocessor.clob2file( xt_data.getclobval( ), 'MYXML', ''||V_TABLE_NAME||'.xml',1);
                                                  v_FLAG := 1;

                                                  UTL_FILE.FCLOSE(v_file);

                                               EXCEPTION
                                                  WHEN OTHERS THEN
                                                       DBMS_OUTPUT.PUT_LINE(SQLERRM);
                                                       dbms_xmlgen.closeContext (v_ctx);
                                                        UTL_FILE.FCLOSE(v_file);
                                                        v_FLAG := 0;

                                               end ;

               ELSIF UPPER(V_TABLE_NAME) = 'EMAIL' THEN  

                                   BEGIN 
                                       v_file := UTL_FILE.fopen('MYXML',V_TABLE_NAME ||'.xml', 'W');

                                       OPEN rc_data FOR 
                                      '  SELECT SUBJECT as SUBJECT,
                                                TRIM(MESSAGE) AS MESSAGE,
                                                TRIM(SENDTO) AS SENDTO,
                                                TRIM(SENT) AS SENT,
                                                SENT_TIME,
                                                ID from '||V_TABLE_NAME ||'  ';

                                          v_ctx := dbms_xmlgen.newContext (rc_data);

                                          DBMS_XMLGEN.SETNULLHANDLING(v_ctx,0);
                                          DBMS_XMLGEN.setrowsettag(v_ctx, 'EMAIL'); 
                                          DBMS_XMLGEN.setrowtag(v_ctx, NULL);

                                          xt_data := dbms_xmlgen.getXMLType( nvl(v_ctx,''));
                                          dbms_xmlgen.closeContext (v_ctx);
                                          v_file := UTL_FILE.fopen('MYXML', V_TABLE_NAME || '.xml', 'A');

                                          dbms_xslprocessor.clob2file( xt_data.getclobval( ), 'MYXML', ''||V_TABLE_NAME||'.xml',1);
                                          v_FLAG := 1;

                                          UTL_FILE.FCLOSE(v_file);

                                       EXCEPTION
                                          WHEN OTHERS THEN
                                               DBMS_OUTPUT.PUT_LINE(SQLERRM);
                                               dbms_xmlgen.closeContext (v_ctx);
                                                UTL_FILE.FCLOSE(v_file);
                                                v_FLAG := 0;

                                       END ;
            -----for all other tables 
          ELSE


         BEGIN    
                    qryCtx :=  dbms_xmlgen.newContext ('SELECT * from '||V_TABLE_NAME ||''); 
                    v_FILENAME :=V_TABLE_NAME;
                    DBMS_XMLGEN.setMaxRows(qryCtx, 5);
                       v_file := UTL_FILE.fopen('MYXML',v_FILENAME ||'.xml', 'W');
                     UTL_FILE.put_line(v_file, '<'||v_FILENAME||'>');
                     -- v_file := UTL_FILE.FOPEN('MYXML', v_FILENAME|| '.xml', 'R');

                    LOOP
                    DBMS_XMLGEN.SETNULLHANDLING(qryCtx ,null);
                    DBMS_XMLGEN.setRowSetTag(qryCtx, 0);
                    DBMS_XMLGEN.setRowTag(qryCtx, '');

                    -- save the XML into the CLOB field
                    result :=  DBMS_XMLGEN.getXML(qryCtx);

                    result := REPLACE( result, '<?xml version="1.0"?>',' ');
                    result := REPLACE( result, '<_x0030_>',' ');
                    result := REPLACE( result, '</_x0030_>',' '); 

                    -- UTL_FILE.put_line(v_file, '');
                     EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0; 
                        -- store the XML to a XML files
                      UTL_FILE.put_line(v_file, result);
                       END LOOP; 
                    UTL_FILE.put_line(v_file,'</'||v_FILENAME||'>');
                     UTL_FILE.FCLOSE(v_file);
             END;  


        END IF;

   END;
END Export_In_XML1;

for above store procedure gives result

<AGNCY>

 <AGENCYID>01</AGENCYID>
 <NAME>ABC</NAME>
 <MARKDELETED>02</MARKDELETED>
 <AGENCYID>02</AGENCYID>
 <NAME>Area</NAME>
 <MARKDELETED>0</MARKDELETED>
 <AGENCYID>03</AGENCYID>
 <NAME>CTSA</NAME>
 <MARKDELETED>0</MARKDELETED>
 <AGENCYID>004</AGENCYID>
 <NAME>Glal</NAME>
 <MARKDELETED>0</MARKDELETED>
-----
-----
-----
</AGNCY>

and I required below output

requried output----------

<? xml version= 1.0 encoding= utf-8 standalone= yes?>
<root xmlns xs="http //www.w3.org/2001/xmlschema"> 
<AGNCY>
 <AGENCYID>01</AGENCYID>
 <NAME>ABC</NAME>
 <MARKDELETED>02</MARKDELETED>
 <AGENCYID>02</AGENCYID>
 <NAME>Area</NAME>
 <MARKDELETED>0</MARKDELETED>

-----
-----
-----
</AGNCY>

if, I use UTL_FILE.put_line befor generateing XML , then i loss some table data..

Answer 1

you could modifiy this line to replace default declaration with first 2 lines of "required output"

result := REPLACE( result, '<?xml version="1.0"?>',' ');

then add closing tag

DBMS_LOB.append(result, TO_CLOB('</root>'));

Looks like your problem is not with XML and DBMS_XMLGET, but with how to work with CLOBS. So, here is a link for you: http://docs.oracle.com/cd/B19306_01/appdev.102/b14258/d_lob.htm

Or maybe the problem was that your desired output is also not well-formed xml? you do not have closing root tag.

I will keep original answer, even if was not that helpful...

here is your code in general (i replaced <> with "):

.10 write "tablename" in a file

.20 List item

.30 write rows of table in a clob

.40 write clob to file

.50 write "/tablename" to file

I see few steps missing:

.05 write "?xml... to file

.06 write "root... to file

.55 write "/root" to file

Answer 2

Have you tried using XMLSERIALIZE to generate a CLOB with correct declaration and then

SQL> desc DBMS_XSLPROCESSOR
PROCEDURE CLOB2FILE
Argument Name                  Type                    In/Out Default?
------------------------------ ----------------------- ------ --------
CL                             CLOB                    IN
FLOCATION                      VARCHAR2                IN
FNAME                          VARCHAR2                IN
CSID                           NUMBER                  IN     DEFAULT