ORACLE - ошибка PLS-00103 в процедуре

Question

я написал эту простую процедуру следующую ORACLE документации для того, чтобы практиковать с PL/SQL:

create procedure BADGE_PROCEDURE (badges NUMBER) AS 
    loops NUMBER; 
BEGIN 
    loops := badges; 
    loops := loops - 1; 
    BEGIN LOOP 
    insert into BADGE values (BADGE_ID_SEQUENCE.nextval, 'prova', 'prova', '01-JAN-01');  
    loops := loops - 1; 
    EXIT WHEN loops < 0; 
    END LOOP; 
END; 
/

Это мой BADGE стол:

CREATE TABLE BADGE 
(badge_id NUMBER PRIMARY KEY, 
name VARCHAR(20), 
surname VARCHAR(20) NOT NULL, 
birthday DATE); 

Наконец это моя последовательность:

CREATE SEQUENCE BADGE_ID_SEQUENCE 
start with 1  
increment by 1  
nocache 
nocycle; 

Однако процедура компилируется со следующей ошибкой:

LINE/COL ERROR 
-------- ----------------------------------------------------------------- 
11/5  PLS-00103: Encountered the symbol "end-of-file" when expecting 
     one of the following: 
     (begin case declare end exception exit for goto if loop mod 
     null pragma raise return select update while with 
     <an identifier> <a double-quoted delimited-identifier> 
     <a bind variable> << continue close current delete fetch lock 
     insert open rollback savepoint set sql execute commit forall 
     merge pipe purge 

Что я делаю неправильно?

Answer 1

syntax for a loop является LOOP ... END LOOP; без BEGIN.

create procedure BADGE_PROCEDURE (badges NUMBER) AS 
    loops NUMBER; 
BEGIN 
    loops := badges; 
    loops := loops - 1; 
    LOOP 
    insert into BADGE values (BADGE_ID_SEQUENCE.nextval, 'prova', 'prova', DATE '2001-01-01');  
    loops := loops - 1; 
    EXIT WHEN loops < 0; 
    END LOOP; 
END; 
/

Однако еще более простой вариант будет:

create procedure BADGE_PROCEDURE (badges NUMBER) AS 
BEGIN 
    FOR loops IN 1 .. badges LOOP 
    insert into BADGE values (BADGE_ID_SEQUENCE.nextval, 'prova', 'prova', DATE '2001-01-01');  
    END LOOP; 
END; 
/

Answer 2

Ваш синтаксис цикла неправильно ..

Вобще

   LOOP 
        insert into BADGE values (BADGE_ID_SEQUENCE.nextval, 'prova', 'prova', '01-JAN-01');  
        loops := loops - 1; 
        EXIT WHEN loops < 0; 
      END LOOP; 

Вот example от оракула документации.