CftClub.ru

[Alkov]

Здравствуйте все!

собственно сабж.
Пытался так , но видимо чего-то не понял..

p_file [FILE$LOAD];
p_err [FILE$LOAD];
log_text varchar2;
begin
set_debug_pipe('TEST' );
set_debug(0, DEBUG2FILE);
set_debug_file('IMPORT_'||to_char(sysdate,'yyyymmdd')||'.log');


P_FILE.[DST_PATH] := '.';
P_FILE.[DST_NAME] := 'OKATO.TXT';
P_ERR.[SRC_PATH] := P_FILE.[DST_PATH];
P_ERR.[SRC_NAME] := 'OKATO_err.txt';

::[TERRITORY].[IMPORT_NEW].V_UPDATE_UPPER:='1';
::[TERRITORY].[IMPORT_NEW](p_file, p_err);
end;

p.s. в операции вызывается debug_pipe('Начало импорта', 0);

[prog]

[FILE$LOAD] будет работать только на экранной форме. В текстовых заданиях использовать не получится.

[Alkov]

[maestro]

[Alkov]

Аха , спасибо,
правда выводит пайп только с уровнем 0
+ хотелось бы именно перенаправить пайп в файл ,
а не вычитывать его когда он забит. А то в мониторе идут пики
забивается pipe_put потом падает до 0.


p_file [FILE$LOAD];
p_err [FILE$LOAD];
log_text varchar2(32000);
v_file pls_integer;

begin
v_file := stdio.open('.','IMPORT_'||to_char(sysdate,'yyyymmdd')||'.log', 'a', false, 512, 3);
P_FILE.[DST_PATH] := '.';
P_FILE.[DST_NAME] := 'OKATO.TXT';
P_ERR.[SRC_PATH] := P_FILE.[DST_PATH]; --там же на сервере пусть лежит
P_ERR.[SRC_NAME] := 'OKATO_err.txt';
::[TERRITORY].[IMPORT_NEW].V_UPDATE_UPPER:='1';
::[TERRITORY].[IMPORT_NEW](p_file, p_err);

loop
log_text := RTL.get_debug_text(rtl.DEBUG2PIPE);
if trim(log_text) is null then
exit;
else
-- пишем вычитанный пайп в файл
stdio.put_line(v_file, log_text, null, stdio.UNXTEXT, stdio.WINTEXT);
end if;
end loop;
stdio.fclose(v_file);
end;

[maestro]

[Матвеев Евгений]

[Random]