TO take Procedure Backup

REM procedure, package or package body.
REM This SCRIPT is provided as a guide and is not supported by
REM ORACLE Corporation.
set verify off
set feedback off
set lines 132
set pages 0
set heading off
set space 0
column text format a79
column line noprint
select DECODE(line,1,'create or replace ','')||text, line
from dba_source
where
owner = upper('TRUTK') and
type = upper('PROCEDURE')
and name = upper('SYS')
and line >= 1;
set verify on
set feedback on