CREATE OR REPLACE PROCEDURE WD_PCS_GH_DB(
THIS_ID IN VARCHAR2,THIS_NUM IN VARCHAR2)
IS
L_NUM
VARCHAR2(20);
L_NOTESVARCHAR2(50);
L_DATE DATE;
BEGIN
SELECT LTRIM(RTRIM(NOTES)) AS NOTES,FINISH_DATE
INTO L_NOTES,L_DATE
FROM PCS_ASK_LIST_HIS
WHERE ASK_ID=THIS_ID;
IF SUBSTR(L_NOTES,1,4) IN ('P1A:') THEN
BEGIN
L_NUM:=SUBSTR(L_NOTES,5,7);
INSERT INTO wd_pcs_ghdb VALUES(THIS_NUM,L_NUM,L_DATE);
COMMIT;
END;
END IF;
END WD_PCS_GH_DB;
编译时,老是报ORA-00604:递归SQL层1出现错误,
ora-01000:超出打开光标的最大数
|