SELECT XMLELEMENT("DATE", SYSDATE)
                        
                         as "RESULT"
   FROM DUal

<DATE>2016-06-03</DATE>

SQL> CREATE OR REPLACE directory utldata AS 'C:\temp';
 
Directory created.
 
SQL> DECLARE                                                                                                                
  2    doc  DBMS_XMLDOM.DOMDocument;                                                                                        
  3    xdata  XMLTYPE;                                                                                                      
  4                                                                                                                         
  5    CURSOR xmlcur IS                                                                                                     
  6    SELECT xmlelement("Employee",XMLAttributes('http://www.w3.org/2001/XMLSchema' AS "xmlns:xsi",                        
  7                                  'http://www.oracle.com/Employee.xsd' AS "xsi:nonamespaceSchemaLocation")               
  8                              ,xmlelement("EmployeeNumber",e.empno)                                                      
  9                              ,xmlelement("EmployeeName",e.ename)                                                        
 10                              ,xmlelement("Department",xmlelement("DepartmentName",d.dname)                              
 11                                                      ,xmlelement("Location",d.loc)                                      
 12                                         )                                                                               
 13                   )                                                                                                     
 14     FROM   emp e                                                                                                        
 15     ,      dept d                                                                                                       
 16     WHERE  e.DEPTNO=d.DEPTNO;                                                                                           
 17                                                                                                                         
 18  BEGIN                                                                                                                  
 19    OPEN xmlcur;                                                                                                         
 20    FETCH xmlcur INTO xdata;                                                                                             
 21    CLOSE xmlcur;                                                                                                        
 22    doc := DBMS_XMLDOM.NewDOMDocument(xdata);                                                                            
 23    DBMS_XMLDOM.WRITETOFILE(doc, 'UTLDATA/marco.xml');                                                                   
 24  END;                                                                                                                   
 25  /                                                                                                                       
 
PL/SQL PROCEDURE successfully completed.

SELECT xmlelement("Employee",XMLAttributes('http://www.w3.org/2001/XMLSchema' AS "xmlns:xsi",                        
  7                                  'http://www.oracle.com/Employee.xsd' AS "xsi:nonamespaceSchemaLocation")               
  8                              ,xmlelement("EmployeeNumber",e.empno)                                                      
  9                              ,xmlelement("EmployeeName",e.ename)                                                        
 10                              ,xmlelement("Department",xmlelement("DepartmentName",d.dname)                              
 11                                                      ,xmlelement("Location",d.loc)                                      
 12                                         )                                                                               
 13                   )                                                                                                     
 14     FROM   emp e                                                                                                        
 15     ,      dept d                                                                                                       
 16     WHERE  e.DEPTNO=d.DEPTNO; 

DECLARE                                                                                                                
      doc  DBMS_XMLDOM.DOMDocument;                                                                                        
      xdata  XMLTYPE;                                                                                                      
                                                                                                                           
      CURSOR xmlcur IS                                                                                                     
      SELECT xmlelement("Employee",XMLAttributes('http://www.w3.org/2001/XMLSchema' AS "xmlns:xsi",                        
                                    'http://www.oracle.com/Employee.xsd' AS "xsi:nonamespaceSchemaLocation")               
                                ,xmlelement("EmployeeNumber",e.empno)                                                      
                                ,xmlelement("EmployeeName",e.ename)                                                        
                               ,xmlelement("Department",xmlelement("DepartmentName",d.dname)                              
                                                       ,xmlelement("Location",d.loc)                                      
                                          )                                                                               
                    )                                                                                                     
      FROM   emp e                                                                                                        
      ,        dept d                                                                                                       
      WHERE  e.DEPTNO=d.DEPTNO;                                                                                           
                                                                                                                          
   BEGIN                                                                                                                  
     OPEN xmlcur;                                                                                                         
     FETCH xmlcur INTO xdata;                                                                                             
     CLOSE xmlcur;                                                                                                        
     doc := DBMS_XMLDOM.NewDOMDocument(xdata);                                                                            
     DBMS_XMLDOM.WRITETOFILE(doc, 'UTLDATA/marco.xml');                                                                   
   END;