Output required in MS Excel from Reports Oracle 10g error with built in pac

Question

Hi All,
Our requirement is to get matrix report output in MS Excel. For that i found a report online. However, im having issues with Built-in Package OLE2.obj_type.
Below is the report log file:
******* Custom: Version : UNKNOWN
Copyright (c) 1979, 1999, Oracle Corporation. All rights reserved.
XX_MATRIX_REPORT module: XX_MATRIX_REPORT
Current system time is 10-AUG-2012 17:23:17
+-----------------------------
| Starting concurrent program execution...
+-----------------------------
APPLLCSP Environment Variable set to :
Current NLS_LANG and NLS_NUMERIC_CHARACTERS Environment Variables are :
American_America.UTF8
Enter Password:
REP-0736: There exist uncompiled program unit(s).
REP-0736: There exist uncompiled program unit(s).
REP-1247: Report contains uncompiled PL/SQL.
REP-0069: Internal error
REP-57054: In-process job terminated:Terminated with error:
REP-1247: There exist uncompiled program unit(s).
REP-1247: Report contains uncompiled PL/SQL.
Report Builder: Release 10.1.2.3.0 - Production on Fri Aug 10 17:23:19 2012
Copyright (c) 1982, 2005, Oracle. All rights reserved.
Start of log messages from FND_FILE
End of log messages from FND_FILE
Program exited with status 1
Concurrent Manager encountered an error while running Oracle*Report for your concurrent request 11242010.
Review your concurrent request log and/or report output file for more detailed information.
Executing request completion options...
Output file size:
0
Finished executing request completion options.
Concurrent request completed
Current system time is 10-AUG-2012 17:23:20
Please Help!!!

Answer 1

After Report:
function AfterReport return boolean is
begin
RPT2XLS.release_memory;
srw.user_exit('FND SRWEXIT');
srw.message(101,'After Report');
return (TRUE);
end;
RPT2XLS package body:
PACKAGE BODY RPT2XLS IS
     TYPE ExcelCell IS RECORD(RowNo binary_integer,
                                                                 ColNo binary_integer,
                                                                 Val varchar2(2000),
                                                                 FontName varchar2(20),
                                                                 FontSize binary_integer,
                                                                 FontStyle binary_integer,
                                                                 FontColor binary_integer,
                                                                 BgrColor binary_integer,
                                                                 Format varchar2(60),
                                                                 Align xlHAlign
     TYPE ExcelCells IS TABLE OF ExcelCell;
     Cell ExcelCells := ExcelCells();
     CurrentRow binary_integer := 1;
     PROCEDURE new_line IS
     BEGIN
          CurrentRow := CurrentRow + 1;
     END;
     PROCEDURE put_cell(ColNo binary_integer, CellValue in varchar2,
                                                  FontName in varchar2 DEFAULT null,
                                                  FontSize in binary_integer DEFAULT null,
                                                  FontStyle in binary_integer DEFAULT null,
                                                  FontColor in binary_integer DEFAULT null,
                                                  BgrColor in binary_integer DEFAULT null,
                                                  Format in varchar2 DEFAULT null,
                                                  Align in xlHAlign DEFAULT null
                                                  ) IS
     BEGIN
          Cell.Extend;
          Cell(Cell.Last).RowNo := CurrentRow;
          Cell(Cell.Last).ColNo := ColNo;
          Cell(Cell.Last).Val := CellValue;
          Cell(Cell.Last).FontName := FontName;
          Cell(Cell.Last).FontSize := FontSize;
          Cell(Cell.Last).FontStyle := FontStyle;
          Cell(Cell.Last).FontColor := FontColor;
          Cell(Cell.Last).BgrColor := BgrColor;
          Cell(Cell.Last).Format := Format;
          Cell(Cell.Last).Align := Align;
     END;
PROCEDURE run IS
          Application OLE2.OBJ_TYPE;
          Workbooks OLE2.OBJ_TYPE;
          Workbook OLE2.OBJ_TYPE;
          Worksheets OLE2.OBJ_TYPE;
          Worksheet OLE2.OBJ_TYPE;
          WorkCell OLE2.OBJ_TYPE;
          WorkColumn OLE2.OBJ_TYPE;
WorkFont OLE2.OBJ_TYPE;
WorkInterior OLE2.OBJ_TYPE;
          ArgList OLE2.LIST_TYPE;
     BEGIN
          Application := OLE2.create_obj('Excel.Application');
          OLE2.set_property(Application, 'Visible', 1);
          Workbooks := OLE2.get_obj_property(Application, 'Workbooks');
Workbook := OLE2.invoke_obj(WorkBooks, 'Add');
          Worksheets := OLE2.get_obj_property(Workbook, 'Worksheets');
          Worksheet := OLE2.get_obj_property(Application, 'ActiveSheet');
          for i in Cell.First .. Cell.Last
          loop
               if Cell(i).Val is not null then
                    ArgList := OLE2.create_arglist;
                    OLE2.add_arg(ArgList, Cell(i).RowNo);
                    ole2.add_arg(ArgList, Cell(i).ColNo);
                    WorkCell := OLE2.get_obj_property(Worksheet, 'Cells', ArgList);
                    ole2.destroy_arglist(ArgList);
                    ole2.set_property(WorkCell, 'Value', Cell(i).Val);
                    ole2.set_property(WorkCell, 'NumberFormat', Cell(i).Format);
                    if Cell(i).Align is not null then
                         ole2.set_property(WorkCell, 'HorizontalAlignment', Cell(i).Align);
                    end if;
                    WorkFont := OLE2.get_obj_property(WorkCell, 'Font');
                    WorkInterior := ole2.Get_Obj_Property(WorkCell, 'Interior');
                    if Cell(i).FontName is not null then
                         OLE2.set_property(WorkFont, 'Name', Cell(i).FontName);
                    end if;
                    if Cell(i).FontSize is not null then
                         OLE2.set_property(WorkFont, 'Size', Cell(i).FontSize);
                    end if;
                    if mod(Cell(i).FontStyle, 2) = 1 then
                         OLE2.set_property(WorkFont, 'Bold', 1);
                    end if;
                    if mod(Cell(i).FontStyle, 4) > 2 then
                         OLE2.set_property(WorkFont, 'Italic', 1);
                    end if;
                    if mod(Cell(i).FontStyle, 8) > 4 then
                         OLE2.set_property(WorkFont, 'Underline', 2);
                    end if;
                    if Cell(i).FontColor is not null then
                         OLE2.set_property(WorkFont, 'ColorIndex', Cell(i).FontColor);
                    end if;
                    if Cell(i).BgrColor is not null then
                         OLE2.set_property(WorkInterior, 'ColorIndex', Cell(i).BgrColor);
                    end if;
                    OLE2.release_obj(WorkInterior);
                    OLE2.release_obj(WorkFont);
                    OLE2.release_obj(WorkCell);
               end if;
          end loop;
          ArgList := ole2.create_arglist;
          ole2.add_arg(ArgList, 'A:Z');
          WorkColumn := ole2.Get_Obj_Property(WorkSheet, 'Columns', ArgList);
          ole2.destroy_arglist(ArgList);
          ole2.invoke(WorkColumn, 'AutoFit');
          OLE2.release_obj(WorkColumn);
          OLE2.release_obj(Worksheet);
          OLE2.release_obj(Worksheets);
          OLE2.release_obj(Workbook);
          OLE2.release_obj(Workbooks);
          OLE2.release_obj(Application);
     END;
     PROCEDURE release_memory IS
     BEGIN
          Cell := ExcelCells();
          SYS.DBMS_SESSION.free_unused_user_memory;
     END;
END;
We are getting the error in log file Report contains uncompiled PL/SQL.
due to ole2.obj_type...