在包中如何实现函数的递归调用??
在一个包中有这样一个函数,需要递归调用:
FUNCTION GET_ITEM_CONFIG(ERRBUF OUT VARCHAR2,
RETCODE OUT NUMBER,
P_LINE_ID NUMBER,
P_PARENT_CONFIG_ID NUMBER,
P_NUMBER NUMBER) RETURN NUMBER IS
V_CONFIG_ID NUMBER;
V_HEADER_C VARCHAR2(240);
V_NUMBER NUMBER;
V_DESCRIPTION VARCHAR2(1000);
V_ERRBUF VARCHAR2(240);
V_RETCODE VARCHAR2(240);
CURSOR CUR_A IS
SELECT CONFIG_ID
FROM BF_ITEM_CONFIGS
WHERE PARENT_CONFIG_ID=P_PARENT_CONFIG_ID
AND ORDER_LINE_ID=P_LINE_ID
ORDER BY CONFIG_ID;
BEGIN
OPEN CUR_A;
LOOP
FETCH CUR_A INTO V_CONFIG_ID;
EXIT WHEN CUR_A%NOTFOUND;
IF V_CONFIG_ID<>P_PARENT_CONFIG_ID THEN
GET_ITEM_CONFIG(V_ERRBUF,
V_RETCODE,
P_LINE_ID,
V_CONFIG_ID,
P_NUMBER + 1);
ELSE
V_NUMBER:=P_NUMBER;
V_HEADER_C:='';
LOOP
EXIT WHEN V_NUMBER=0;
V_HEADER_C:=V_HEADER_C || V_SEPERATE;
V_NUMBER:=V_NUMBER - 1;
END LOOP;
SELECT ASSEMBLY_ITEM_NUMBER||' '||
COMPONENT_ITEM_NUMBER||' '||
ITEM_NUMBER||' '||
ITEM_DESCRIPTION_CN
INTO V_DESCRIPTION
FROM BF_ITEM_CONFIGS
WHERE ORDER_LINE_ID=P_LINE_ID
AND CONFIG_ID=V_CONFIG_ID
AND PARENT_CONFIG_ID=P_PARENT_CONFIG_ID;
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,TO_CHAR(P_NUMBER)||V_HEADER_C||V_DESCRIPTION);
END IF;
END LOOP;
CLOSE CUR_A;
RETURN V_CONFIG_ID;
END;
但是编译的时候报:函数GET_ITEM_CONFIG()未定义。
如何预定义函数?
这个问题如何解决呢?
谢谢!!