select
   dbms_metadata.GET_DDL('PROCEDURE',u.object_name), u.object_name
from
   user_objects u
where
   object_type = 'PROCEDURE'
   AND object_name in( 'P1');

SET LIN 512 TRIMS ON PAGES 0 LONG 32000 LONGC 120
SPO gen_proc_ddl.sql

SELECT
   'spo cr_' || owner || '_' || object_name || '.pls' ||CHR (10)||
   'select dbms_metadata.GET_DDL(''PROCEDURE'',''' ||object_name ||''',''' 
        || owner ||''')||chr(10||''/'' from dual;' ||CHR (10)||
   'spo off'
    FROM dba_procedures
   WHERE owner = 'MYSCHEMA'
     AND object_type = 'PROCEDURE'
ORDER BY owner, object_name
/

SPO OFF
SET LIN 256 TRIMS ON PAGES 0 LONG 32000 LONGC 120
SET VER OFF FEED OFF TERM OFF ECHO OFF
@gen_proc_ddl