1  PROCEDURE load_book (
 2    doc_in     IN       xmldom.domdocument,

 3    isbn_out   OUT      book.isbn%ROWTYPE
 4  )
 5  IS
 6    book_info   xmldom.domnodelist;
 7    l_node      xmldom.domnode;

 8    book_rec    book%ROWTYPE;
 9  BEGIN
10    book_info := selected_nodes (doc_in, '/errata/book');
11  
12    l_node := xmldom.item (book_info_in, 0);
13  

14    book_rec.title := xslprocessor.valueof (l_node, '@title');
15    book_rec.author := xslprocessor.valueof (l_node, '@author');
16    book_rec.isbn := xslprocessor.valueof (l_node, '@isbn');
17  
18    INSERT INTO book
19      (title, author, isbn)
20         VALUES (book_rec.title, book_rec.author,

21                 book_rec.isbn);
22    isbn_out := book_rec.isbn;
23 END;