Procedure Oracle

[gramaral13]

Boa tarde a todos, sou novato em procedure oracle e preciso da ajuda de vc´s para resolver um pequeno problema na procedure abaixo que quando e compilada da o seguinte erro:

Erro(67,34): 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 <um identificador> <um identificador delimitado por aspas duplas> <uma variável de ligação> << close current delete fetch lock insert open rollback savepoint set sql execute commit forall merge pipe

Estou pesquisando mas ainda sem sucesso.

Aguardo ancioso por uma ajuda e desde já o meu muito obrigado.

create or replace

PROCEDURE AIP_CORRECAO_DIARIA_MAINFRAME

IS

erro_code INT;

erro_message VARCHAR(200);

BEGIN --inicio

DECLARE site_c varchar2(2);

order_id_c varchar2(10);

status_c varchar2(4);

--variaveis para separação do campo JOB_NAME

sistema varchar2(3);

operador varchar2(2);

etapa varchar2(8);

BEGIN --carga cursor

DECLARE CURSOR C_CORRECAO IS

--selecionar todos os dados da tabela

select * from F_DIARIA_MAINFRAME;

REG_CORRECAO C_CORRECAO%ROWTYPE;

BEGIN --percore cursor

OPEN C_CORRECAO;

LOOP

FETCH C_CORRECAO INTO REG_CORRECAO;

EXIT WHEN C_CORRECAO%NOTFOUND;

site_c := LENGTH(TRIM(C_CORRECAO.SITE));

operador_c := SUBSTR(C_CORRECAO.JOB_NAME,1,1);

sistema_c := SUBSTR(C_CORRECAO.JOB_NAME,2,3);

etapa_c := SUBSTR(C_CORRECAO.JOB_NAME,4,4);

order_id_c := SUBSTR(C_CORRECAO.ORDER_ID,5);

if C_CORRECAO.STATUS = 'ENDED "OK"' or C_CORRECAO.STATUS = 'ENDED "OK" , FORCED OK' or C_CORRECAO.STATUS = 'ENDED "OK" (DUMMY JOB)' then

status_c := 'C0000';

elsif SUBSTR(C_CORRECAO.STATUS,1,7) = 'ABENDED' then

status_c := SUBSTR(C_CORRECAO.STATUS,12,5);

elsif SUBSTR(C_CORRECAO.STATUS,1,11) = 'UNEXPLAINED' then

status_c := SUBSTR(C_CORRECAO.STATUS,23,4);

end if;

insert into F_TMP_DIARIA_MF(SITE, DT_DATE, HH_TIME, DT_ODATE, USER_ID, CODE, TYP, MEM_NAME, JOB_NAME, JOB_ID, ORDER_ID, STATUS)

values(site_c, C_CORRECAO.DT_DATE, C_CORRECAO.HH_TIME, C_CORRECAO.DT_ODATE, C_CORRECAO.USER_ID, C_CORRECAO.CODE, C_CORRECAO.TYP,

C_CORRECAO.MEM_NAME, C_CORRECAO.JOB_NAME, C_CORRECAO.JOB_ID, order_id_c, status_c);

commit;

insert into F_TMP_JOBNAME(SISTEMA, OPERADOR, ETAPA) values (sistema_c, operador_c, etapa_c);

commit;

END LOOP;

CLOSE C_CORRECAO;

END; --percore cursor

--END; --carga cursor

EXCEPTION

When others then

begin

--raise_application_error(-20001,'aaaaAn error was encountered - '||SQLCODE||' -ERROR- '||SQLERRM);

erro_code := SQLCODE;

erro_message := substr(SQLERRM, 1, 200);

rollback;

insert into registro_erro(erro_number, erro_message, local_erro, dt_data)

values(erro_code, erro_message, 'procedure limpa_carga',sysdate);

commit;

end;

commit;

END AIP_CORRECAO_DIARIA_MAINFRAME;