Good night,
I hope they are super good,
I have a procedure that is executed very well, I kept the information to the right place, but now that I come to run generates the following error.
ERROR at line 1:
ORA-06550: line 1, column 32:
PLS-00103: Symbol has been found
Thank for their collaboration, to resolve this error ...
GOOD DAY
Create or replace Procedure Lectura_Gases_occidente( Nom_archivo varchar2 )
As
v1 utl_file.file_type;
v2 varchar2(900);
aux varchar2(20);
vlr number;
ndoc varchar2(20);
aux1 number; -- lleva el valor de caracteres de la variable VLR...
fec date;
avlr number;
ser number;
cont number;
anom varchar2(100);
Begin
v1 := utl_file.fopen('PUBLIC_ACCESS', Nom_archivo, 'r');
--avlr := 0; ser := 1; anom := v1;
select sysdate
into fec
from dual;
cont :=0; avlr := 0;
loop
begin
utl_file.get_line(v1,v2);
dbms_output.put_line('el contenido del archivo es: '||v2);
select substr(v2, 7, 12), substr(v2, 19, 8), substr(v2, 43, 7)
into vlr, ndoc, aux
from dual;
avlr := avlr + vlr;
aux1 := (length(vlr)-2); -- procedimiento para quitar los decimales...
vlr := substr(vlr,1,aux1);
insert into g_occidente (DETALLE,VALOR_FACTURA,NUM_FACTURA,TIPO_PAGO,FECHA_CREACION)
values (v2, vlr, ndoc, aux, fec);
-- dbms_output.put_line('El contenido del archivo es: '||v2);
-- dbms_output.put_line(' ');
-- dbms_output.put_line('El nombre del archivo es: '||Nom_archivo); -- agregado 12052009
cont:= cont + 1;
-- dbms_output.put_line('El total de registros es: '||cont); -- agregado 12052009
-- dbms_output.put_line(' ');
-- dbms_output.put_line('El valor del archivo es de: '||avlr); -- agregado 12052009
exception
when no_data_found then
exit;
end;
end loop;
-- lineas para guardar los nombre de los archivos ->12052009...
insert into ARCHIVOS_GUADADOS_GASES (Nomb_archivo,total_registro,vlr_archivo) values(Nom_archivo, cont, avlr);
--insert into nombre_archivo(nombre, valor, servicio) values (v1, avlr, ser);
utl_file.fclose(v1);
exception
when others then
dbms_output.put_line(sqlerrm);
end;
/
SQL> set serverout on;
SQL> EXECUTE Lectura_Gases_occidente(C:\ARCHIVOS_LECTURA_XE\7061232125062009181820);
BEGIN Lectura_Gases_occidente(C:\ARCHIVOS_LECTURA_XE\7061232125062009181820); END;
*
ERROR en linea 1:
ORA-06550: linea 1, columna 32:
PLS-00103: Se ha encontrado el sÝmbolo ":" cuando se esperaba uno de los siguientes:
. ( ) , * @ % & | = - + < / > at in is mod remainder not
range rem => .. <an exponent (**)> <> or != or ~= >= <= <>
and or like LIKE2_ LIKE4_ LIKEC_ as between from using ||
multiset member SUBMULTISET_
SQL>
IN ADVANCE I thank everyone whom I have worked with my concerns ...
REYNEL SALAZAR MARTINEZ