Ошибка при создании процедуры

Question

У меня возникла некоторая ошибка с созданной мной процедурой. Тело прок является: -

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 

Answer 1

я вижу ошибки, но не те, которые вы сообщили:

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 является TYPE, а не переменная курсора.

v_comment := ... 

v_comment не объявляется.

Попробуйте устранить эти проблемы и посмотреть, улучшится ли ситуация.

Делитесь и наслаждайтесь.