Oracle forms how to create excel format report

Question

hello :)
these are my codes that generates report in live previewer. my problem is how to create an excel report producing the same output i can get in live previewer.
Declare
     pl_id ParamList;
     v_alrt number;
     v_acct_ent_date date;
     v_start_date date;
     v_end_date date;
     v_end_date1 date;
     v_end_date2 date;
     v_end_date3 date;
     v_end_date4 date;
     iss_group varchar2(100);
     monthidentify date;
Begin
     SELECT B.USER_GRP
     INTO ISS_GROUP
     FROM GIIS_USERS A,GIIS_USER_GRP_HDR B
     WHERE A.USER_GRP = B.USER_GRP
     AND A.USER_ID = USER;
Select max(acct_ent_date)
INTO v_acct_ent_date
FROM gipi_polbasic;
     SELECT TRUNC(ADD_MONTHS(SYSDATE, -24))
     INTO v_end_date1
     FROM DUAL;
     select LAST_DAY(:FILTERS.FROM_DATE)
     INTO V_END_DATE2
     FROM DUAL;
     SELECT TRUNC (TO_DATE (:FILTERS.END_DATE), 'MONTH')     
     INTO V_END_DATE3
     FROM DUAL;
IF :FILTERS.FROM_DATE IS NULL THEN
          MESSAGE('Please Enter a starting date in the format "MM/DD/YYYY"');
     MESSAGE('Please Enter a starting date in the format "MM/DD/YYYY"');
     GO_ITEM('FILTERS.FROM_DATE');
     Raise FORM_TRIGGER_FAILURE;
     END IF;
     IF :FILTERS.END_DATE IS NULL THEN
     MESSAGE('Please enter an Ending date in the format "MM/DD/YYYY"');
     GO_ITEM('FILTERS.END_DATE');
     Raise FORM_TRIGGER_FAILURE;
     END IF;
     IF :FILTERS.FROM_DATE > :FILTERS.END_DATE THEN
     MESSAGE('Starting Date cannot be greater than Ending Date');
     MESSAGE('Starting Date cannot be greater than Ending Date');
     :FILTERS.FROM_DATE := NULL;
     :FILTERS.END_DATE := NULL;
     GO_ITEM('FILTERS.FROM_DATE');
     Raise FORM_TRIGGER_FAILURE;
     END IF;
     IF :FILTERS.DATE_FILTER = 'AED' and :FILTERS.FROM_DATE > v_acct_ent_date and
          :FILTERS.END_DATE > v_acct_ent_date then
          MESSAGE('No premium batch production occured between the given dates');
     MESSAGE('No premium batch production occured between the given dates');
     Raise FORM_TRIGGER_FAILURE;     
     END IF;
IF ISS_GROUP <> 2 or USER = 'MKMIF' THEN
/* IF :FILTERS.END_DATE <> V_END_DATE2 THEN
          MESSAGE('DATE PARAMETER SHOULD BE EXACTLY 1 MONTH');
          MESSAGE('DATE PARAMETER SHOULD BE EXACTLY 1 MONTH');
     Raise FORM_TRIGGER_FAILURE;
     END IF;
     IF :FILTERS.FROM_DATE <> V_END_DATE3 THEN
          MESSAGE('FROM DATE PARAMETER SHOULD BE THE FIRST DAY OF THE MONTH');
          MESSAGE('FROM DATE PARAMETER SHOULD BE THE FIRST DAY OF THE MONTH');
     Raise FORM_TRIGGER_FAILURE;
     END IF;*/
     IF :FILTERS.FROM_DATE < V_END_DATE1 THEN
          MESSAGE('FROM DATE SHOULD BE 2 YEARS BEFORE OR 2 YEARS BETWEEN THE SYSTEM DATE');
          MESSAGE('FROM DATE SHOULD BE 2 YEARS BEFORE OR 2 YEARS BETWEEN THE SYSTEM DATE');
          Raise FORM_TRIGGER_FAILURE;
     END IF;
END IF;     
IF :FILTERS.DATE_FILTER = 'AED' THEN     
     BEGIN
     Select acct_ent_date
     INTO v_acct_ent_date
     from gipi_polbasic where acct_ent_date between :FILTERS.FROM_DATE and :FILTERS.END_DATE;
     EXCEPTION
          When TOO_MANY_ROWS Then
          Null;
          When No_Data_Found Then
          Message('Premium batch productions can only be done at the end of the month. Kindly check the dates you entered.');
          Message('Premium batch productions can only be done at the end of the month. Kindly check the dates you entered.');
          Raise Form_Trigger_Failure;
     END;
END IF;     
     v_alrt := show_alert('PRINT_ALERT');
     IF v_alrt = alert_button1 then
               pl_id:= Get_Parameter_List('tmpdata');
               IF NOT ID_NULL(pl_id) then
                    DESTROY_PARAMETER_LIST(pl_id);
               END IF;
               pl_id:=Create_parameter_List('tmpdata');
                    Add_Parameter(pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');
                    Add_Parameter(pl_id,'start_date',TEXT_PARAMETER,TO_CHAR(:FILTERS.FROM_DATE,'MM/DD/RRRR'));
                    Add_Parameter(pl_id,'end_date',TEXT_PARAMETER,TO_CHAR(:FILTERS.END_DATE,'MM-DD-RRRR'));
                    Add_Parameter(pl_id,'CREDITING_BRANCH',TEXT_PARAMETER,:FILTERS.BRANCH_CODE);
                    Add_Parameter(pl_id,'LINE_CODE',TEXT_PARAMETER,:FILTERS.LINE_CD);
                    Add_Parameter(pl_id,'INTERMEDIARY_NAME',TEXT_PARAMETER,:FILTERS.INTM_NAME);
                    Add_Parameter(pl_id,'INTERMEDIARY_TYPE',TEXT_PARAMETER,:FILTERS.INTM_TYPE);
          IF :FILTERS.Date_Filter = 'AED' then           
               RUN_PRODUCT(REPORTS, 'PREM_PROD_AEDALL.rep' ,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id);
          elsif :FILTERS.Date_Filter = 'ED' then
          RUN_PRODUCT(REPORTS, 'PREM_PROD_EDALL.rep' ,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id);
          End IF;
          END IF;               
End;
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Answer 1

Hello,
build a standard report using REPORT BUILDER (Oracle 10g Release 2)
set
DESFORMAT=SPREADSHEET
Regards,
Tarun