IF SOMETHING
   DO THIS;
ELSE
   DO THAT;
END IF;

IF SOMETHING
DO THIS;
ELSE
DO THAT;
END IF;

ACCEPT Source_Schema CHAR PROMPT 'Source Schema: ' 
ACCEPT Object_Name CHAR PROMPT 'Object Name: ' 

SET PAGES 0
SET TRIMS ON
SET LONG 2000000
SET VERIFY OFF
SET LINESIZE 1000
SET TERMOUT OFF
SET FEEDBACK OFF

column ddl format a200 word_wrapped

connect username/password@SID

spool &&Object_Name..sql

SELECT DBMS_METADATA.GET_DDL('PROCEDURE',UPPER('&&Object_Name'), UPPER('&&Source_Schema')) || '/' ddl from dual;

SPOOL OFF

scott@9i > create or replace procedure foobar
  2  as
  3  begin
  4     null;
  5     if something > nothing
  6             then 
  7                     dbms_output.put_line('Hello World!');
  8     end if;
  9  end;
 10  /

Warning: Procedure created with compilation errors.

scott@9i > set long 5000
scott@9i > column xxx format a90 
scott@9i > SELECT DBMS_METADATA.GET_DDL ('PROCEDURE','FOOBAR')||';' as xxx from dual;

XXX
------------------------------------------------------------------------------------------

  CREATE OR REPLACE PROCEDURE "SCOTT"."FOOBAR"
as
begin
        null;
        if something > nothing
                then
                        dbms_output.put_line('Hello World!');
        end if;
end;
 ;