function CF_PER_TOT_RECPFormula return Number is
X NUMBER := 0;
begin
IF :TOT_RECP <> 0 THEN
-----------------------------------
 if nvl(:SumTOT_RECPPerPL_MAIN_GRP,0)=0 then 
 :SumTOT_RECPPerPL_MAIN_GRP=1;
 end if;
----------------------------------- 
X := ( (:TOT_RECP/:SumTOT_RECPPerPL_MAIN_GRP) * 100 );
ELSE
X := 0;
END IF;
RETURN(X);
end;

SQL*Plus: Release 10.2.0.1.0 - Production on Mon Feb 8 13:17:38

Copyright (c) 1982, 2005, Oracle.  All rights reserved.

SQL> conn halim@test107
Enter password:
Connected.
SQL>
SQL>
SQL> select  (1  / 1 ) * 100  from dual
  2  /

 (1/1)*100
----------
       100

SQL> select  (0  / 1 ) * 100  from dual
  2  /

 (0/1)*100
----------
         0

SQL> select  (1  / 0 ) * 100  from dual
  2  /
select  (1  / 0 ) * 100  from dual
            *
ERROR at line 1:
ORA-01476: divisor is equal to zero


SQL>