Causing a Report page to be opened in Excel or MS Word

Question

Hello Every body
I want to redirect an HTMLDB Report page to an excel spread sheet or MS Word
in read only mode and with an order to directly send content to printer.
Can any body tell me how to procede ?
thanks in advance
sidaty

Answer 1

I'm not sure if something like this might help...
Using SQL/XML you can build a view that is compliant with the Excel 2K3 Spreadsheet ML XML Schema. You can then folder the rows in the view as documents in the XML DB repository. When you open one of these documents in Excel Excel will treat it as worksheet.
The missing piece here would be can you embed an macro in excel that will force the document to print when it's opened...
set define off
set echo on
create or replace view DEPARTMENT_WORKBOOK_XML of xmltype
with object id
   substr
     extractValue
       object_value,
       '/Workbook/Worksheet/Table/Row[@ss:Index="2"]/Cell[@ss:Index="8"]/Data/text()',
       'xmlns="urn:schemas-microsoft-com:office:spreadsheet"
        xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"'
     1,32
as
select xmlroot
         xmlconcat
           xmlPI(NAME "mso-application",'progid="Excel.Sheet"'),
           xmlElement
             "Workbook",
             xmlAttributes
                'urn:schemas-microsoft-com:office:spreadsheet' as "xmlns",
                'urn:schemas-microsoft-com:office:office' as "xmlns:o",
                'urn:schemas-microsoft-com:office:excel' as "xmlns:x",
                'urn:schemas-microsoft-com:office:spreadsheet' as "xmlns:ss",
                'http://www.w3.org/TR/REC-html40' as "xmlns:html"
             xmlElement
               "DocumentProperties",
               xmlAttributes('urn:schemas-microsoft-com:office:office' as "xmlns"),
               xmlForest
                 USER as "Author",
                 USER as "LastAuthor",
                 '2002-10-11T15:47:35Z' as "Created",
                 'Oracle Corporation' as "Company",
                 '11.5703' as "Version"
             xmlElement
               "OfficeDocumentSettings",
               xmlAttributes('urn:schemas-microsoft-com:office:office' as "xmlns"),
               xmlElement("DownloadComponents"),
               xmlElement
                 "LocationOfComponents",
                 xmlAttributes('file://' as "HRef")
             xmlElement
               "ExcelWorkbook",
               xmlAttributes('urn:schemas-microsoft-com:office:excel' as "xmlns"),
               xmlForest
                 '8835' as "WindowHeight",
                 '14220' as "WindowWidth",
                 '480' as "WindowTopX",
                 '60' as "WindowTopY",
                 'False' as "ProtectStructure",
                 'False' as "ProtectWindows"
               xmlElement("HideHorizontalScrollBar")
             xdburiType('/home/SCOTT/Workbooks/Styles.xml').getXML(),
             xmlElement
               "Worksheet",
               xmlAttributes(d.DEPARTMENT_NAME as "ss:Name"),
               xmlElement
                 "Table",
                 xmlAttributes
                   '11' as "ss:ExpandedColumnCount",
                   ( select '' || 14 + count(*) || '' from HR.EMPLOYEES e where e.DEPARTMENT_ID = d.DEPARTMENT_ID) as "ss:ExpandedRowCount",
                   '1' as "x:FullColumns",
                   '1' as "x:FullRows"
                 xmlElement("Column",xmlAttributes('25' as "ss:Width")),
                 xmlElement("Column",xmlAttributes('75' as "ss:Width")),
                 xmlElement("Column",xmlAttributes('60' as "ss:Width", '1' as "ss:Span")),
                 xmlElement("Column",xmlAttributes('5' as "ss:Index", '75' as "ss:Width")),
                 xmlElement("Column",xmlAttributes('100' as "ss:Width", '1' as "ss:Span")),
                 xmlElement("Column",xmlAttributes('8' as "ss:Index", '100' as "ss:Width")),
                 xmlElement("Column",xmlAttributes('60' as "ss:Width")),
                 xmlElement("Column",xmlAttributes('60' as "ss:Width")),
                 xmlElement("Column",xmlAttributes('75' as "ss:Width")),
                 xmlElement
                   "Row",
                   xmlAttributes('2' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('2' as "ss:Index", '3' as "ss:MergeAcross", '2' as "ss:MergeDown",'DepartmentName' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Department : ' || DEPARTMENT_NAME )
                   xmlElement
                     "Cell",
                     xmlAttributes('7' as "ss:Index", 'Caption' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'ID :' )
                   xmlElement
                     "Cell",
                     xmlAttributes('8' as "ss:Index", 'Bold' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), d.DEPARTMENT_ID )
                 xmlElement
                   "Row",
                   xmlAttributes('4' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('7' as "ss:Index", 'Caption' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Location :' )
                   xmlElement
                     "Cell",
                     xmlAttributes('8' as "ss:Index", 'Bold' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), STREET_ADDRESS )
                 xmlElement
                   "Row",
                   xmlAttributes('5' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('8' as "ss:Index", 'Bold' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), CITY )
                 xmlElement
                   "Row",
                   xmlAttributes('6' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('8' as "ss:Index", 'Bold' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), STATE_PROVINCE )
                 xmlElement
                   "Row",
                   xmlAttributes('7' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('8' as "ss:Index", 'Bold' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), POSTAL_CODE )
                 xmlElement
                   "Row",
                   xmlAttributes('8' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('8' as "ss:Index", 'Bold' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), COUNTRY_NAME )
                 xmlElement
                   "Row",
                   xmlAttributes('10' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('7' as "ss:Index", 'Caption' as "ss:StyleID"),
                  xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Manager :' )
                   xmlElement
                     "Cell",
                     xmlAttributes('8' as "ss:Index", 'Bold' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), m.FIRST_NAME || ' ' || m.LAST_NAME )
                 xmlElement
                   "Row",
                   xmlAttributes('12' as "ss:Index"),                
                   xmlElement
                     "Cell",
                     xmlAttributes('2' as "ss:Index", 'BoldRight' as "ss:StyleID"),
                     xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Employee ID')
                   xmlElement("Cell", xmlAttributes('BoldLeft' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'First Name')),
                   xmlElement("Cell", xmlAttributes('BoldLeft' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Last Name')),
                   xmlElement("Cell", xmlAttributes('BoldLeft' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Email Address' )),
                   xmlElement("Cell", xmlAttributes('BoldCentered' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Phone Number' )),
                   xmlElement("Cell", xmlAttributes('BoldRight' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Hire Date')),
                   xmlElement("Cell", xmlAttributes('BoldRight' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Job Title')),
                   xmlElement("Cell", xmlAttributes('BoldRight' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Salary')),
                   xmlElement("Cell", xmlAttributes('BoldRight' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"), 'Commission'))
                 xmlElement
                   "Row",
                   xmlElement("Cell",xmlAttributes('2' as "ss:Index", 'BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID"))
                 ( select xmlAgg
                            xmlElement
                              "Row",
                              xmlElement
                                "Cell",
                                xmlAttributes('2' as "ss:Index", 'BodyDefault' as "ss:StyleID"),
                                xmlElement("Data", xmlAttributes('Number' as "ss:Type"),  e.EMPLOYEE_ID)
                              xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"),  e.FIRST_NAME)),
                              xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"),  e.LAST_NAME)),
                              xmlElement("Cell", xmlAttributes('BodyDefault' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"),  e.EMAIL )),
                              xmlElement("Cell", xmlAttributes('BodyRight' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"),  e.PHONE_NUMBER )),
                              xmlElement("Cell", xmlAttributes('HireDate' as "ss:StyleID"), xmlElement("Data", xmlAttributes('DateTime' as "ss:Type"),  to_char(to_char(e.HIRE_DATE,'YYYY-MM-DD"T00:00:00.000"')))),
                              xmlElement("Cell", xmlAttributes('BodyRight' as "ss:StyleID"), xmlElement("Data", xmlAttributes('String' as "ss:Type"),  j.JOB_TITLE)),
                              xmlElement("Cell", xmlAttributes('Currency' as "ss:StyleID"), xmlElement("Data", xmlAttributes('Number' as "ss:Type"),  e.SALARY)),
                              xmlElement("Cell", xmlAttributes('Percent' as "ss:StyleID"), xmlElement("Data", xmlAttributes('Number' as "ss:Type"),  e.COMMISSION_PCT))
                     from HR.EMPLOYEES e, HR.JOBS j  
                    where e.DEPARTMENT_ID = d.DEPARTMENT_ID
                      and e.JOB_ID = j.JOB_ID
                 xmlElement
                   "Row",
                   xmlElement("Cell", xmlAttributes('2' as "ss:Index", 'TableBottom' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('TableBottom' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('TableBottom' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('TableBottom' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('TableBottom' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('TableBottom' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes('TableBottom' as "ss:StyleID")),
                   xmlElement("Cell", xmlAttributes
                                        'SalaryTotal' as "ss:StyleID",
                                        'SUM(R[-' || ( select '' || count(*) || '' from HR.EMPLOYEES e where e.DEPARTMENT_ID = d.DEPARTMENT_ID) || ']C:R[-1]C)' as "ss:Formula")
                   xmlElement("Cell", xmlAttributes('TableBottom' as "ss:StyleID"))
               xmlElement
                 "WorksheetOptions",
                 xmlAttributes('urn:schemas-microsoft-com:office:excel' as "xmlns"),
                 xmlElement
                   "Print",
                   xmlElement("ValidPrintInfo"),
                   xmlElement("HorizontalResolution",96),
                   xmlElement("VerticalResolution",96),
                   xmlElement("NumberOfCopies",0)
              xmlElement("DoNotDisplayGridlines"),
                 xmlElement("Selected"),
                 xmlElement
                   "Panes",
                   xmlElement
                     "Pane",
                     xmlElement("Number",1),
                     xmlElement("ActiveRow",1),
                     xmlElement("ActiveCol",1)
                 xmlElement("ProectedObjects",'False'),
                 xmlElement("ProectedSecenarios",'False')
         ),VERSION '1.0'
  from HR.DEPARTMENTS d, HR.LOCATIONS l, HR.COUNTRIES c, HR.EMPLOYEES m
where d.LOCATION_ID = l.LOCATION_ID
   and l.COUNTRY_ID = c.COUNTRY_ID
   and d.MANAGER_ID = m.EMPLOYEE_ID
show errors
create or replace trigger DEPARTMENT_WORKBOOK_DML
instead of INSERT or UPDATE or DELETE on DEPARTMENT_WORKBOOK_XML
begin
null;
end;
show errors
pause
declare
  targetPath varchar2(1024) := '/home/SCOTT/Workbooks';
  xmlText CLOB :=
'<Styles xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:x="urn:schemas-microsoft-com:office:excel">
          <Style ss:ID="Default" ss:Name="Normal">
               <Alignment ss:Vertical="Bottom" ss:Horizantal="Left"/>
               <Borders/>
               <Font/>
               <Interior ss:Color="#FFFFFF" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="Caption">
               <Font x:Family="Swiss" ss:Bold="1" ss:Italic="1"/>
          </Style>
          <Style ss:ID="Bold">
               <Font x:Family="Swiss" ss:Bold="1"/>
          </Style>
          <Style ss:ID="BodyDefault">
               <Alignment ss:Vertical="Bottom" ss:Horizantal="Left"/>
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font/>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="TableBottom">
               <Alignment ss:Vertical="Bottom" ss:Horizantal="Left"/>
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Bottom" ss:LineStyle="Double" ss:Weight="3"/>
               </Borders>
               <Font/>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="SalaryTotal">
               <Alignment ss:Vertical="Bottom" ss:Horizantal="Left"/>
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Bottom" ss:LineStyle="Double" ss:Weight="3"/>
               </Borders>
               <Font/>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat ss:Format="_(&quot;$&quot;* #,##0.00_);_(&quot;$&quot;* \(#,##0.00\);_(&quot;$&quot;* &quot;-&quot;??_);_(@_)"/>
               <Protection/>
          </Style>
          <Style ss:ID="HeadDefault">
               <Alignment ss:Vertical="Bottom" ss:Horizantal="Left"/>
               <Borders/>
               <Font/>
               <Interior ss:Color="#00CCFF" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="HireDate">
               <Alignment ss:Vertical="Bottom" ss:Horizontal="Right"/>
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font/>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat ss:Format="[ENG][$-409]mmmm\ d\,\ yyyy;@"/>
               <Protection/>
          </Style>
          <Style ss:ID="DepartmentName">
               <Alignment ss:Vertical="Center" ss:Horizontal="Left"/>
               <Borders>
                    <Border ss:Position="Bottom" ss:LineStyle="Double" ss:Weight="3"/>
                    <Border ss:Position="Left" ss:LineStyle="Double" ss:Weight="3"/>
                    <Border ss:Position="Right" ss:LineStyle="Double" ss:Weight="3"/>
                    <Border ss:Position="Top" ss:LineStyle="Double" ss:Weight="3"/>
               </Borders>
               <Font x:Family="Swiss" ss:Bold="1" ss:Size="18"/>
               <Interior ss:Color="#FFCC00" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="BoldCentered">
               <Alignment ss:Vertical="Bottom" ss:Horizontal="Center"/>
               <Borders>
                    <Border ss:Position="Top" ss:LineStyle="Double" ss:Weight="3"/>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font ss:Color="#FFFFFF" x:Family="Swiss" ss:Bold="1"/>
               <Interior ss:Color="#0000FF" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="BoldLeft">
               <Alignment ss:Vertical="Bottom" ss:Horizontal="Left"/>
               <Borders>
                    <Border ss:Position="Top" ss:LineStyle="Double" ss:Weight="3"/>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font ss:Color="#FFFFFF" x:Family="Swiss" ss:Bold="1"/>
               <Interior ss:Color="#0000FF" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="BoldRight">
               <Alignment ss:Vertical="Bottom" ss:Horizontal="Right"/>
               <Borders>
                    <Border ss:Position="Top" ss:LineStyle="Double" ss:Weight="3"/>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font ss:Color="#FFFFFF" x:Family="Swiss" ss:Bold="1"/>
               <Interior ss:Color="#0000FF" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="BodyCentered">
               <Alignment ss:Vertical="Bottom" ss:Horizontal="Center"/>
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font x:Family="Swiss"/>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="BodyLeft">
               <Alignment ss:Vertical="Bottom" ss:Horizontal="Left"/>
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font x:Family="Swiss"/>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="BodyRight">
               <Alignment ss:Vertical="Bottom" ss:Horizontal="Right"/>
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Font x:Family="Swiss"/>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat/>
               <Protection/>
          </Style>
          <Style ss:ID="Currency" ss:Name="Currency">
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat ss:Format="_(&quot;$&quot;* #,##0.00_);_(&quot;$&quot;* \(#,##0.00\);_(&quot;$&quot;* &quot;-&quot;??_);_(@_)"/>
          </Style>
          <Style ss:ID="Percent" ss:Name="Percent">
               <Borders>
                    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
                    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
               </Borders>
               <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
               <NumberFormat ss:Format="0%"/>
          </Style>
     </Styles>';
  res boolean;
begin
  if (not dbms_xdb.existsResource(targetPath)) then
    res := dbms_xdb.createFolder(targetPath);
  end if;
  targetPath := targetPath || '/' || 'Styles.xml';
  if dbms_xdb.existsResource(targetPath) then
    dbms_xdb.deleteResource(targetPath);
  end if;
  res := dbms_xdb.createResource(targetPath,xmlText);
end;
commit
pause
declare
  cursor getDepartments is
    select ref(d) XMLREF,
           substr
             extractValue
               object_value,
               '/Workbook/Worksheet[1]/@ss:Name',
               'xmlns="urn:schemas-microsoft-com:office:spreadsheet"
               xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"'
             1,32
           ) NAME
      from DEPARTMENT_WORKBOOK_XML d;
  res boolean;
  targetFolder varchar2(1024) :=  '/home/SCOTT/Workbooks/Departments';
begin
  if dbms_xdb.existsResource(targetFolder) then
     dbms_xdb.deleteResource(targetFolder,dbms_xdb.DELETE_RECURSIVE);
  end if;
  res := dbms_xdb.createFolder(targetFolder);
  for dept in getDepartments loop
    res := DBMS_XDB.createResource(targetFolder || '/' || dept.NAME || '.xml', dept.XMLREF);
  end loop;
end;
commit
pause
quitThe above example assumes user SCOTT (yeah I know !), and that user SCOTT has access to the HR schema and write access to an xdb repository folder called /home/SCOTT. It will create a document for each DEPARTMENT containing the employees for that department.