Passing the xml data as parameter to procedure

Question

i have table like this
CREATE TABLE employeeDetails
EmpName VARCHAR2(50),
EmpSal INTEGER,
DeptNo INTEGER,
JoinDate DATE
i am getting the i/p data in xml format to extract data i saw the code in net.http://riteshk.blogspot.com/2008/09/sending-xml-string-as-input-parameter.html
CREATE OR REPLACE PROCEDURE Insert_Employee_Data (ip_emp_details IN XMLTYPE)
IS
BEGIN
FOR i IN
(SELECT XMLTYPE.EXTRACT (VALUE (a),
'/Root/EmpName/text()').getstringval
() AS ipempname,
XMLTYPE.EXTRACT (VALUE (a), '/Root/EmpSal/text()').getstringval
() AS ipempsal,
XMLTYPE.EXTRACT (VALUE (a), '/Root/DeptNo/text()').getstringval
() AS ipdeptno,
XMLTYPE.EXTRACT (VALUE (a),
'/Root/JoinDate/text()'
).getstringval () AS ipjoindate
FROM TABLE (XMLSEQUENCE (ip_emp_details.EXTRACT ('/EmployeeData/Root')
) a)
LOOP
INSERT INTO EMPLOYEEDETAILS
(empname, empsal, deptno, joindate
VALUES (i.ipempname, i.ipempsal, i.ipdeptno, i.ipjoindate
END LOOP;
END Insert_Employee_Data;
i want to test the procedure in database itself.
how to call the procedure in database to test that procedure by passing sample data.how to pass paratmeters while cakking that procedure in database itself to test that the procedure is working or not
/

Answer 1

Thats the way you would test it:
SQL> create table employeedetails
   empname    varchar2 (50),
   empsal     integer,
   deptno     integer,
   joindate   date
Table created.
SQL> create or replace procedure insert_employee_data (ip_emp_details in xmltype)
is
begin
   for i
   in (select   xmltype.extract (value (a),
                                 'Root/EmpName/text()').getstringval ()
                   as ipempname,
                xmltype.extract (value (a),
                                 'Root/EmpSal/text()').getnumberval ()
                   as ipempsal,
                xmltype.extract (value (a),
                                 'Root/DeptNo/text()').getnumberval ()
                   as ipdeptno,
                xmltype.extract (value (a),
                                 'Root/JoinDate/text()').getstringval ()
                   as ipjoindate
         from   table(xmlsequence (
                         ip_emp_details.extract ('/EmployeeData/Root')
                      )) a)
   loop
      insert into employeedetails (empname,
                                   empsal,
                                   deptno,
                                   joindate)
        values   (i.ipempname,
                  i.ipempsal,
                  i.ipdeptno,
                  to_date (i.ipjoindate, 'dd-mon-rrrr', 'nls_date_language=english'));
   end loop;
end insert_employee_data;
Procedure created.
SQL> begin
   insert_employee_data(xmltype('<?xml version=''1.0'' encoding=''utf-8'' ?>
<EmployeeData>
<Root>
<EmpName>Ritesh</EmpName>
<EmpSal>10000</EmpSal>
<DeptNo>1010</DeptNo>
<JoinDate>03-Apr-2006</JoinDate>
</Root>
<Root>
<EmpName>Rajiv</EmpName>
<EmpSal>20000</EmpSal>
<DeptNo>2020</DeptNo>
<JoinDate>05-May-2007</JoinDate>
</Root>
</EmployeeData>'));
end;
PL/SQL procedure successfully completed.
SQL> select   * from employeedetails
EMPNAME                  EMPSAL     DEPTNO JOINDATE
Ritesh                    10000       1010 03.04.06
Rajiv                     20000       2020 05.05.07
2 rows selected.Much better and more efficient is of course to completly avoid the loop and just use:
insert into employeedetails
   select   xmltype.extract (value (a),
                             'Root/EmpName/text()').getstringval ()
               as ipempname,
            xmltype.extract (value (a), 'Root/EmpSal/text()').getnumberval ()
               as ipempsal,
            xmltype.extract (value (a), 'Root/DeptNo/text()').getnumberval ()
               as ipdeptno,
            to_date (
               xmltype.extract (value (a),
                                'Root/JoinDate/text()').getstringval (),
               'dd-mon-rrrr',
               'nls_date_language=english'
               as ipjoindate
     from   table (
               xmlsequence (ip_emp_details.extract ('/EmployeeData/Root'))
            ) a;
....