DECLARE--以上五个变量照搬即可URL                 VARCHAR2 (2000);DB_FILE             NUMBER;WEB_SERVER_PREFIX   VARCHAR2 (255);RES                 BOOLEAN;MIME_TYPE           VARCHAR2 (255);L_ORGANZIATION_ID   NUMBER;--定义一个包含主从关系数据的CURSORCURSOR CSR ( V_ORGANIZATION_ID   IN            NUMBER)ISSELECT   CST.COST_GROUP_CODE,CST.COST_GROUP_DESCRIPTION,CST.COST_GROUP_DISABLE_DATE,CAP.CAPABILITY,EQP.EQP_CAP_DESC DESCRIPTION,CAP.ACTIVEFROM   CUX2_CST_COST_GROUP_ALL CST,CUX2_CST_COST_GROUP_EQPS_ALL CAP,CUX2_BOM_EQP_CAP_TYPE EQPWHERE       CAP.COST_GROUP_ID(+) = CST.COST_GROUP_IDAND EQP.EQP_CAP_CODE(+) = CAP.CAPABILITYAND EQP.ORGANIZATION_ID(+) = CAP.ORGANIZATION_IDAND CAP.ORGANIZATION_ID(+) = CST.ORGANIZATION_IDAND CST.ORGANIZATION_ID = V_ORGANIZATION_IDORDER BY   CST.ORGANIZATION_ID, CST.COST_GROUP_CODE, CAP.CAPABILITY;
BEGIN--获取Organzition_idL_ORGANZIATION_ID := FND_PROFILE.VALUE ('MFG_ORGANIZATION_ID');--更改鼠标式样：漏斗鼠标（忙状态）SET_APPLICATION_PROPERTY (CURSOR_STYLE, 'BUSY');--显示进度条窗口，并设置进度为0APP_WINDOW.PROGRESS (0);--创建数据包，并设置文件头类型。DB_FILE :=FND_GFM.FILE_CREATE (CONTENT_TYPE   => 'text/html',PROGRAM_NAME   => 'export');--输出题头行 注:chr(9) 为 tab键
   FND_GFM.FILE_WRITE_LINE (DB_FILE,'Cost Group Code'|| CHR (9)|| 'Cost Group Description'|| CHR (9)|| 'Cost Group Disable Date'|| CHR (9)      || 'Capability'|| CHR (9)|| 'Description'|| CHR (9)|| 'Active'   );--循环数据行FOR R IN CSR (L_ORGANZIATION_ID)LOOPFND_GFM.FILE_WRITE_LINE (DB_FILE,R.COST_GROUP_CODE|| CHR (9)|| R.COST_GROUP_DESCRIPTION|| CHR (9)|| TO_CHAR (R.COST_GROUP_DISABLE_DATE, 'YYYY-MM-DD HH24:MI:SS')         || CHR (9)|| R.CAPABILITY|| CHR (9)|| R.DESCRIPTION|| CHR (9)|| R.ACTIVE      );END LOOP;--关闭数据包DB_FILE := FND_GFM.FILE_CLOSE (DB_FILE);--将数据包提交给客户端URL := FND_GFM.CONSTRUCT_DOWNLOAD_URL (WEB_SERVER_PREFIX, DB_FILE, TRUE);--DBMS_OUTPUT.PUT_LINE(URL);--打开URL地址下载
   FND_UTILITIES.OPEN_URL (URL);--更改鼠标式样：默认指针（常规状态）SET_APPLICATION_PROPERTY (CURSOR_STYLE, 'DEFAULT');APP_WINDOW.PROGRESS (1);            --显示进度条窗口，并设置进度为1（100%）
END;