代码如下

-- 将要导出的包名放在一个表中
CREATE TABLE packages_to_export (pkg_name VARCHAR(100));
INSERT INTO PACKAGES_TO_EXPORT SELECT OBJECT_NAME FROM DBA_OBJECTS WHERE OBJECT_TYPE='PACKAGE' AND OWNER='DMHR';

-- 遍历表中的包名，逐个导出到文件中
DECLARE
  file_handle UTL_FILE.FILE_TYPE;
  file_path VARCHAR2(200);
  package_body VARCHAR2(32767);
BEGIN
  FOR p IN (SELECT pkg_name FROM packages_to_export) LOOP
    -- 生成要导出的包的文件名
    file_path := '/home/dmdba/pkg' || p.pkg_name || '.pkb';
    
    -- 打开要导出的文件并写入包体内容
    file_handle := UTL_FILE.FOPEN('DIR01', p.pkg_name || '.pkb', 'w');
    SELECT text INTO package_body FROM user_source WHERE name = p.pkg_name AND type = 'PACKAGE BODY' ORDER BY line;
    UTL_FILE.PUT_LINE(file_handle, package_body);
    UTL_FILE.FCLOSE(file_handle);
  END LOOP;
END;
/
复制

使用以上代码，导出来的包只有包体，没有包头部分内容，请问是什么原因呢？