create or replace PACKAGE BODY AAA IS
 SYSTEM_CONTEXT  VARCHAR2(40);
 USER_CONTEXT    VARCHAR2(40);
 KEYS_CONTEXT    VARCHAR2(40);
 RIGHTS_CONTEXT  VARCHAR2(40);
 ORIGHTS_CONTEXT VARCHAR2(40);
 ERIGHTS_CONTEXT VARCHAR2(40);
 ACCESS_CONTEXT   VARCHAR2(40);
 SES_LOCKED     BOOLEAN;
 CHECK_ACTIVE   BOOLEAN;
 CAN_DELETE     BOOLEAN;
 FILL_RIGHTS    BOOLEAN;
 FILL_ORIGHTS   BOOLEAN;
 FILL_ERIGHTS   BOOLEAN;
 USE_CONTEXT    BOOLEAN;
 NOT_DEFAULT    BOOLEAN;
 INIT_CONTEXT   BOOLEAN;
 INIT_USR_CTX   BOOLEAN;
 INIT_PACK      BOOLEAN DEFAULT TRUE;
 CUR_PROFILE    VARCHAR2(30);
 CUR_ID         PLS_INTEGER;
 SYSTEM_ID      VARCHAR2(100);
 INSTALL_ID     VARCHAR2(100);
 SC_LOGGING  BOOLEAN;
PROCEDURE INIT_USER_CONTEXT(P_OPEN BOOLEAN,P_INIT BOOLEAN,P_RAISE BOOLEAN);

PROCEDURE SETNLSPARAMETERS(P_RAISE BOOLEAN DEFAULT TRUE) IS
  SETTS   VARCHAR2(2000);
  B       BOOLEAN;
  CR_SYN  BOOLEAN;
BEGIN
  B := INIT_CONTEXT;
  IF B THEN
    INIT_CONTEXT := FALSE;
    SET_SYSTEM_CONTEXT(USE_CONTEXT,NULL,FALSE);
  END IF;
  IF SETTS IS NULL AND NOT_DEFAULT THEN
    SETTS := GET_RESOURCE('DEFAULT',';

set echo off heading off headsep off linesize 1000 feedback off pagesize 0 trimspool on
spool pkg.sql
select text from user_source
 where name  = 'xxx'
   and type  = 'PACKAGE BODY'
 order by line;
spool off;
exit;