2013-04-12 104 views
0

我遇到了一些我创建的过程出错。我们把proc身体是: -创建过程时出错

CREATE OR REPLACE PROCEDURE suppress_termination_charge(v_curr_date IN DATE) 
IS 

TYPE suppress_term_cust_type IS RECORD (id NUMBER(11),pev NUMBER(11),piv NUMBER(11)); 
TYPE cur_suppress_term_cust IS REF CURSOR RETURN suppress_term_cust_type; 
v_count NUMBER(4); 
v_serv_item suppress_term_cust_type; 
v_serv_itm_pev service_item.price_excluding_vat%TYPE; 
v_serv_itm_piv service_item.price_including_vat%TYPE; 

BEGIN 

v_count:=0; 

IF NULL=v_curr_date THEN 
    SELECT sysdate INTO v_curr_date FROM dual; 
END IF; 

OPEN cur_suppress_term_cust FOR 
    SELECT id AS id,price_excluding_vat AS pev,price_including_vat AS piv FROM service_items; 

LOOP 
FETCH cur_suppress_term_cust INTO v_serv_item; 
EXIT WHEN cur_suppress_term_cust%NOTFOUND; 

    v_comment := 'Price changed from ('||v_serv_item.pev||', '||v_serv_item.piv||') to (0,0) (PEV, PIV) on '||v_curr_date||' for managed cease'; 

    UPDATE service_items 
    SET price_including_vat=0, price_excluding_vat=0 , comments= v_comment 
    WHERE id = v_serv_item.id; 

    v_count:=v_count+1; 

    IF v_count=5000 THEN 
     COMMIT; 
     v_count:=0; 
    END IF; 

END LOOP; 

CLOSE cur_suppress_term_cust; 

END; 
/

的错误是如下: -

SQL> SHOW ERROR; 
Errors for PROCEDURE SUPPRESS_TERMINATION_CHARGE: 
LINE/COL ERROR 
-------- ----------------------------------------------------------------- 
19/30 PLS-00103: Encountered the symbol "IS" when expecting one of the 
     following: 
     . (% ; for 

23/2  PLS-00103: Encountered the symbol "FETCH" when expecting one of 
     the following: 
     constant exception <an identifier> 
     <a double-quoted delimited-identifier> table LONG_ double ref 
     char time timestamp interval date binary national character 
     nchar 


LINE/COL ERROR 
-------- ----------------------------------------------------------------- 
41/2  PLS-00103: Encountered the symbol "CLOSE" when expecting one of 
     the following: 
     end not pragma final instantiable order overriding static 
     member constructor map 

回答

0

我看到错误,但不是那些你报道:

SELECT sysdate INTO v_curr_date FROM dual; 

v_curr_date是一个输入参数和不能用作SELECT或FETCH的目标。

OPEN cur_suppress_term_cust FOR... 
    FETCH cur_suppress_term_cust INTO v_serv_item; 
    EXIT WHEN cur_suppress_term_cust%NOTFOUND. 

cur_suppress_term_cust是一种类型,而不是一个游标变量。

v_comment := ... 

v_comment未被声明。

尝试解决这些问题,看看事情是否改善。

分享和享受。

+0

我没有收到这样的错误。我报告了所有我得到的错误。 –

+0

您使用的是哪个版本的Oracle?当我在Oracle 11.1下编译你的程序时,它指出了我在消息中提到的问题。还有一件事我刚刚注意到了 - 你写了'IF NULL = v_curr_date'来确定v_curr_date是否包含NULL。这可能会编译但可能不会做你想要的。您可能需要考虑将其重写为“IF v_curr_date IS NULL”。 –