CREATE TABLE EMPLOYEES
(
  EMPLOYEE_ID    NUMBER,
  SALARY         NUMBER                         NOT NULL,
  HIRE_DATE      DATE                           NOT NULL,
  JOB_ID         VARCHAR2(20 BYTE)              NOT NULL,
  EMAIL          VARCHAR2(100 BYTE),
  DEPARTMENT_ID  NUMBER                         NOT NULL,
  FIRST_NAME     VARCHAR2(30 BYTE),
  LAST_NAME      VARCHAR2(30 BYTE)
)


DECLARE
  insctx   dbms_xmlsave.ctxtype;
  l_rows     NUMBER;
  xmldoc   CLOB
    := '<EXAMPLE>
     <ROWSET>
       <EMPLOYEE NUM="1">
         <EMPLOYEE_ID>920</EMPLOYEE_ID>
         <SALARY>1800</SALARY>
         <DEPARTMENT_ID>30</DEPARTMENT_ID>
         <HIRE_DATE>17-DEC-2002T10:30:00</HIRE_DATE>
         <last_name>Strauss</last_name>
         <EMAIL>JSTRAUSS</EMAIL>
         <JOB_ID>ST_CLERK</JOB_ID>
       </EMPLOYEE>
       <EMPLOYEE>
         <USER_NAME>Fred3</USER_NAME>       
         <employee_id>921</employee_id>
         <SALARY>2000</SALARY>
         <DEPARTMENT_ID>30</DEPARTMENT_ID>
         <hire_date>31-DEC-2004T00:00:00</hire_date>
         <LAST_NAME>Jones</LAST_NAME>
         <EMAIL>EJONES</EMAIL>
         <JOB_ID>ST_CLERK</JOB_ID>
       </EMPLOYEE>
     </ROWSET>
     </EXAMPLE>';
  xvar     XMLTYPE;
  l_str    VARCHAR2 (2000);
BEGIN
  insctx := dbms_xmlsave.newcontext ('EMPLOYEES');                                                             -- Get saved context
  dbms_xmlsave.clearupdatecolumnlist (insctx);                                                         -- Clear the update settings
  dbms_xmlsave.propagateoriginalexception (insctx, TRUE);
  dbms_xmlsave.setdateformat (insctx, 'dd-MMM-yyyy''T''HH:mm:ss');
  dbms_xmlsave.setrowtag (insctx, 'EMPLOYEE');
  dbms_xmlsave.setignorecase (insctx, dbms_xmlsave.ignore_case);

  dbms_xmlsave.setupdatecolumn (insctx, 'EMPLOYEE_ID');
  dbms_xmlsave.setupdatecolumn (insctx, 'SALARY');
  dbms_xmlsave.setupdatecolumn (insctx, 'HIRE_DATE');
  dbms_xmlsave.setupdatecolumn (insctx, 'DEPARTMENT_ID');
  dbms_xmlsave.setupdatecolumn (insctx, 'JOB_ID');
  dbms_xmlsave.setupdatecolumn (insctx, 'EMAIL');
  dbms_xmlsave.setupdatecolumn (insctx, 'LAST_NAME');

  l_rows := dbms_xmlsave.insertxml (insctx, xmldoc);
  DBMS_OUTPUT.put_line (l_rows || ' rows inserted.');
  dbms_xmlsave.closecontext (insctx);
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.put_line (SQLERRM);
    ROLLBACK;
END;