PROCEDURE PROC_TXT_FIDELIDADE IS
V_NOME_ARQ VARCHAR2(255);
IN_FILE Text_IO.File_Type;
LINEBUF VARCHAR2(80);
BEGIN
V_NOME_ARQ := 'C:\TEXTO.TXT';
IN_FILE := TEXT_IO.FOPEN(V_NOME_ARQ,'R') ;
LOOP
BEGIN
TEXT_IO.GET_LINE(IN_FILE,LINEBUF);
GO_BLOCK('CARTAO_FIDELIDADE_POLCOM');
LAST_RECORD;
CREATE_RECORD;
:CARTAO_FIDELIDADE_POLCOM.FK_CFID_AD_CARTAO := LINEBUF;
EXCEPTION
WHEN OTHERS THEN
EXIT;
END;
END LOOP;
First_Record;
TEXT_IO.FCLOSE(IN_FILE);
END;
No momento como o código está ele lê todos mais insere somente a ultima linha lida.
Obrigado