Problems with UTL_FILE.PUTF

Question

I have a problem that occurs ( sometimes ) when using utl_file.putf.
It not writes anything to the file and Oracle doesn't raise any exception.
I have debugged the program and checked all the variables and none of them has
null value at the point when the values are written to the file.
Here is the code:
Procedure P4_PRINCIPAL (inCont_id_contrato in number,
inNped_id_nota_pedido in number,
icNped_id_ext_prov in char,
icCont_nro_contrato in char
IS
lcNo_pedido char(15) default ''; -- Nro pedido SGOS-DDR
lcId_pedido char(20) default ''; -- Id. pedido en SRC
lcNo_protocolo char(20) default ''; -- Nro. Contrato en SGOS-DDR
lnCads_id_cadastro_np number(15); -- Id de cadastro tabla cadastro
lnCads_numero_os number(9); -- Numero de OS
lcCads_numero_os char(9); -- Numero de OS
ldCads_fecha_ingreso date; -- fecha cadastro
lcCads_fecha_ingreso char(14); -- fecha cadastro
lncads_cant_os number(5); -- cantidad total de OS para N/P
lccads_cant_os char(5); -- cantidad total de OS
ldDatafact date; -- Fecha Faturamento
lcDatafact char(14); -- Fecha Faturamento
lvespacios varchar2(32767);
ESPACIOS_OS constant char(9) := '000000000'; -- Espacios ...
contador_os number(9);
ldTimestamp date; -- Fecha generacion del archivo
lcTimestamp char(14); -- Fecha generacion del archivo
archivo_escritura UTL_FILE.FILE_TYPE;
archivo_escritura2 UTL_FILE.FILE_TYPE;
lvFech_arch varchar2(6);
lnSeq_arch number(4);
lvNom_arch_salida_formato varchar(20);
erroluis varchar2(4000);
iorecError src_general.recError; -- var. registro de error
BEGIN
lcNo_pedido := icNped_id_ext_prov;
lcId_pedido := inCont_id_contrato||'-'||to_char(inNped_id_nota_pedido);
lcNo_protocolo := icCont_nro_contrato;
BEGIN
SELECT cads_numero_os, cads_fecha_ingreso
INTO lncads_numero_os, ldcads_fecha_ingreso
FROM (SELECT cads_numero_os, cads_fecha_ingreso
FROM DDR_CADASTRO
WHERE nped_id_nota_pedido = inNped_id_nota_pedido
AND cont_id_contrato = inCont_id_contrato
ORDER BY cads_numero_os)
WHERE ROWNUM = 1;
EXCEPTION
when no_data_found then
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
WHEN OTHERS THEN
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
END;
if length(lncads_numero_os) > 9 then
lncads_numero_os:=substr(lncads_numero_os,1,9);
end if;
lccads_numero_os := lpad(to_char(lncads_numero_os),9,'0');
lccads_fecha_ingreso := to_char(ldCads_fecha_ingreso,'YYYYMMDDHH24MISS');
Begin
select count(*) into lncads_cant_os
from DDR_CADASTRO
where nped_id_nota_pedido = inNped_id_nota_pedido
and cont_id_contrato = inCont_id_contrato;
Exception
when no_data_found then
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
WHEN OTHERS THEN
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
End;
lccads_cant_os := lpad(to_char(lncads_cant_os),5,'0');
     ldTimestamp := SYSDATE;
     lcTimestamp := to_char(ldTimestamp, 'YYYYMMDDHH24MISS');
lvFech_arch:= to_char(sysdate,'YYMMDD');
Begin
SELECT src_seq_p4.nextval
INTO lnSeq_arch
FROM dual;
Exception
when no_data_found then
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
when others then
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
End;
lvNom_arch_salida_formato:= 'P4_'||lvFech_arch||'_'||lpad(lnSeq_arch, 4, '0');
Begin
archivo_escritura := UTL_FILE.FOPEN(SRC_CONST_GRAL.DIRECT_ENT_SGDDR,lvNom_arch_salida_formato,'W',32767);
archivo_escritura2 := UTL_FILE.FOPEN(SRC_CONST_GRAL.DIRECT_SAL_SGDDR,lvNom_arch_salida_formato,'W',32767);
UTL_FILE.PUTF (archivo_escritura,'%s%s%s%s%s',lcNo_pedido, lcId_pedido, lcNo_protocolo, lcCads_fecha_ingreso||lcCads_cant_os||lccads_numero_os);
UTL_FILE.PUTF (archivo_escritura2,'%s%s%s%s%s',lcNo_pedido, lcId_pedido, lcNo_protocolo, lcCads_fecha_ingreso||lcCads_cant_os||lccads_numero_os);
SRC_REG_APISGOSDDR.P4_REGISTRO(lcNo_pedido, lcId_pedido, lcNo_protocolo, lcCads_cant_os, lccads_numero_os, lvNom_arch_salida_formato);
UTL_FILE.FCLOSE(archivo_escritura);
UTL_FILE.FCLOSE(archivo_escritura2);
EXCEPTION
WHEN NO_DATA_FOUND THEN
UTL_FILE.FCLOSE(archivo_escritura);
UTL_FILE.FCLOSE(archivo_escritura2);
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
commit;
WHEN UTL_FILE.INVALID_PATH THEN
UTL_FILE.FCLOSE(archivo_escritura);
UTL_FILE.FCLOSE(archivo_escritura2);
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
commit;
WHEN UTL_FILE.READ_ERROR THEN
UTL_FILE.FCLOSE(archivo_escritura);
UTL_FILE.FCLOSE(archivo_escritura2);
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
commit;
WHEN UTL_FILE.WRITE_ERROR THEN
UTL_FILE.FCLOSE(archivo_escritura);
UTL_FILE.FCLOSE(archivo_escritura2);
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
commit;
WHEN OTHERS THEN
UTL_FILE.FCLOSE(archivo_escritura);
UTL_FILE.FCLOSE(archivo_escritura2);
SRC_CONTRATO_PEDIDO.pGrabaError(0,'Oracle',SQLERRM,SYSDATE,iorecError);
commit;
End;
END;
Any suggestion will be valid.
Thanks

Answer 1

Try closing file before calling
SRC_REG_APISGOSDDR.P4_REGISTRO(....);
first close files :
UTL_FILE.FCLOSE(archivo_escritura);
UTL_FILE.FCLOSE(archivo_escritura2);
then call or comment this procedure and try:
SRC_REG_APISGOSDDR.P4_REGISTRO(lcNo_pedido, lcId_pedido, lcNo_protocolo, lcCads_cant_os, lccads_numero_os, lvNom_arch_salida_formato);
Murali.Ramasamy