inicio
teste teste teste teste teste teste
teste teste teste teste teste teste
teste teste teste teste teste teste
teste teste teste teste teste teste
fim
Tenho o seguinte código, porém tentei de várias formas e não deu muito certo
Alguém saberia me dizer como posso alterá-lo
IF (P_EXECUCAO = 'TODOS')
OR (P_EXECUCAO = 'EXC. FISCAL') THEN
BEGIN
R_XXDS_015_K.INITIALIZE(ERRBUF ,RETCODE);
R_XXDS_015_K.LOG('Gerando arquivo "R_EXC_FISCAL.txt"...');
V_TOTAL := 0;
IN_FILE3 := UTL_FILE.FOPEN(V_DIRETORIO ,'R_EXC_FISCAL.txt' ,'w');
OPEN C3;
LOOP
FETCH C3
INTO R3;
EXIT WHEN C3%NOTFOUND;
TEXTO3 := R3.EST_EMITENTE
|| '@1#'
|| R3.EST_CLIENTE
|| '@2#'
|| R3.INFORMACAO
|| '@F#'
|| CHR(13);
UTL_FILE.PUT_LINE(IN_FILE3 ,TEXTO3);
V_TOTAL := V_TOTAL + 1;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
R_XXDS_015_K.ABORT(RETCODE);
IF C3%ISOPEN THEN
CLOSE C3;
END IF;
UTL_FILE.FCLOSE(IN_FILE3);
RAISE;
END;
IF C3%ISOPEN THEN
CLOSE C3;
END IF;
UTL_FILE.FCLOSE(IN_FILE3);
R_XXDS_015_K.LOG( 'Arquivo gerado com ' || V_TOTAL || ' registro(s).');
R_XXDS_015_K.FINISH;
END IF;