Ver un codigo en DBA_SOURCE..

/* ******************************************************************* */
/*  EXTRAER CODIGO FUENTE                                              */
/* ******************************************************************* */ ===================================================================
PROMPT  EXPORTA A UN FICHERO EL CODIGO DE LA BASE DE DATOS
PROMPT  ===================================================================
PROMPT
set pagesize 5000
set linesize 90
set echo off
set verify off
set heading off
spool ./codigo.sql

SELECT TEXT FROM dba_source
  WHERE name=UPPER(‘&objeto’)
    AND owner = UPPER(‘&owner’)
  ORDER BY type,name,line
/

spool off
set verify on
set heading on
set linesize 80
set pagesize 14