Oracle Ebs 查询程序包代码

SELECT DECODE(DS.LINE,
              1,
              LTRIM(REPLACE('CREATE OR REPLACE ' || DS.TEXT, CHR(10), ''),
                    ''''''),
              LTRIM(REPLACE(DS.TEXT, CHR(10), ''), '''''')) TEXT
  FROM SYS.DBA_SOURCE DS
 WHERE DS.NAME = UPPER('CUX_WIP_WEB_AUTO_COMPLETE_PKG')
   AND DS.TYPE IN ('FUNCTION', 'PROCEDURE', 'PACKAGE BODY', 'TRIGGER')
 ORDER BY DS.LINE;