Runtime parameter, report not running

Question

hii
i am using form 6i and on a button press, i am caling the following procedure that runs a report ...
procdure....
begin
   INCEXP_PARAMETER(M_PARAM_ID);
   RUN_PRODUCT(REPORTS,M_REP_ID,SYNCHRONOUS,RUNTIME,FILESYSTEM,M_PARAM_ID,NULL);
end;
PROCEDURE INCEXP_PARAMETER  (Param_id  IN OUT Paramlist) IS
    M_DESFORMAT VARCHAR2(20);
    M_DESNAME VARCHAR2(500);
    M_DESTYPE VARCHAR2(20);
BEGIN         
IF  :R_OPTION = 'S' THEN  -- on SCREEN
    M_DESFORMAT := 'dflt';
    M_DESNAME := '';
    M_DESTYPE := 'SCREEN';
ELSIF  :R_OPTION = 'P' THEN
    M_DESFORMAT := 'dflt';
    M_DESNAME := '';
    M_DESTYPE := 'PRINTER';
ELSIF  :R_OPTION = 'W' THEN
    M_DESFORMAT := 'RTF';
    M_DESNAME := :R_FILENAME;
    M_DESTYPE := 'FILE';
ELSIF  :R_OPTION = 'D' THEN
    M_DESFORMAT := 'PDF';
    M_DESNAME := :R_FILENAME;
    M_DESTYPE := 'FILE';
ELSIF  :R_OPTION = 'X' THEN
    M_DESFORMAT := 'delimiteddata';
    M_DESNAME := :R_FILENAME;
    M_DESTYPE := 'FILE';
END IF;
ADD_PARAMETER(PARAM_ID,'PARAMFORM',TEXT_PARAMETER,'NO');                 
ADD_PARAMETER(PARAM_ID,'M_YYYYMM',TEXT_PARAMETER,:M_PERIOD);
ADD_PARAMETER(PARAM_ID, 'DESTYPE',   TEXT_PARAMETER, M_DESTYPE);
ADD_PARAMETER(PARAM_ID, 'DESFORMAT', TEXT_PARAMETER, M_DESFORMAT);
ADD_PARAMETER(PARAM_ID, 'DESNAME',          TEXT_PARAMETER, :R_FILENAME);
Add_Parameter(PARAM_ID,'ORIENTATION',TEXT_PARAMETER,:R_ORIENTATION);
Add_Parameter(PARAM_ID,'MODE',TEXT_PARAMETER,:R_MODE);
ADD_PARAMETER(PARAM_ID, 'MAXIMIZE', TEXT_PARAMETER, 'YES');
END;
giving the above code, my report is not getting run...
at report builder it runs fine..

Answer 1

hii ..
M_PARAM_ID is getting its value from the procedure *'PROCEDURE INCEXP_PARAMETER (Param_id IN OUT Paramlist) IS'*
from my report block on my form...i have button press trigger, that calls first;
INCEXP_REPORT;
PROCEDURE INCEXP_REPORT IS
M_PARAM_ID   PARAMLIST ;
M_REP_ID     VARCHAR2(30) ;
BEGIN
   SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'BUSY');
   SYNCHRONIZE;
   M_REP_ID := :GLOBAL.M_REP_ID;
   M_PARAM_ID := GET_PARAMETER_LIST('REP_PARAM');
   IF ID_NULL(M_PARAM_ID) THEN
      M_PARAM_ID := CREATE_PARAMETER_LIST('REP_PARAM');
      IF ID_NULL(M_PARAM_ID) THEN
         MESSAGE('Error While creating Parameter List') ;
         RAISE FORM_TRIGGER_FAILURE;
      END IF;
   ELSE
      DESTROY_PARAMETER_LIST(M_PARAM_ID);
      M_PARAM_ID := CREATE_PARAMETER_LIST('REP_PARAM');
      IF ID_NULL(M_PARAM_ID) THEN
         MESSAGE('Error while creating Parameter List') ;
         RAISE FORM_TRIGGER_FAILURE;
      END IF;
   END IF;
   INCEXP_PARAMETER(M_PARAM_ID);
   RUN_PRODUCT(REPORTS,M_REP_ID,SYNCHRONOUS,RUNTIME,FILESYSTEM,M_PARAM_ID,NULL);
   SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
   DESTROY_PARAMETER_LIST(M_PARAM_ID) ;
   CLEAR_MESSAGE;
END;
PROCEDURE INCEXP_PARAMETER  (Param_id  IN OUT Paramlist) IS
    M_DESFORMAT VARCHAR2(20);
    M_DESNAME VARCHAR2(500);
    M_DESTYPE VARCHAR2(20);
BEGIN         
IF  :R_OPTION = 'S' THEN  -- on SCREEN
    M_DESFORMAT := 'dflt';
    M_DESNAME := '';
    M_DESTYPE := 'SCREEN';
ELSIF  :R_OPTION = 'P' THEN  -- directly to printer
    M_DESFORMAT := 'dflt';
    M_DESNAME := '';
    M_DESTYPE := 'PRINTER';
ELSIF  :R_OPTION = 'W' THEN  -- Word File
    M_DESFORMAT := 'RTF';
    M_DESNAME := :R_FILENAME;
    M_DESTYPE := 'FILE';
ELSIF  :R_OPTION = 'D' THEN  -- PDF File
    M_DESFORMAT := 'PDF';
    M_DESNAME := :R_FILENAME;
    M_DESTYPE := 'FILE';
ELSIF  :R_OPTION = 'X' THEN   -- Excel File
    M_DESFORMAT := 'delimiteddata';
    M_DESNAME := :R_FILENAME;
    M_DESTYPE := 'FILE';
END IF;
ADD_PARAMETER(PARAM_ID,'PARAMFORM',TEXT_PARAMETER,'NO');                 
ADD_PARAMETER(PARAM_ID,'M_YYYYMM',TEXT_PARAMETER,:M_PERIOD);
ADD_PARAMETER(PARAM_ID, 'DESTYPE',   TEXT_PARAMETER, M_DESTYPE);
ADD_PARAMETER(PARAM_ID, 'DESFORMAT', TEXT_PARAMETER, M_DESFORMAT);
ADD_PARAMETER(PARAM_ID, 'DESNAME',          TEXT_PARAMETER, :R_FILENAME);
Add_Parameter(PARAM_ID,'ORIENTATION',TEXT_PARAMETER,:R_ORIENTATION);
Add_Parameter(PARAM_ID,'MODE',TEXT_PARAMETER,:R_MODE);
ADD_PARAMETER(PARAM_ID, 'MAXIMIZE', TEXT_PARAMETER, 'YES');
END;i think setting Parameter part is ok...all i want to know the selection of report output to
"Sceen, Printer, Word, PDF & Excel..which i have defined inside IF....Endif...section,
is correct or not...?
TY..