powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Ошибка в Oracle Forms
2 сообщений из 2, страница 1 из 1
Ошибка в Oracle Forms
    #35969330
ora81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TYPE T_STRING_TABLE IS TABLE OF VARCHAR2(32767);

Имеется процедура,

PROCEDURE LIST(P_CONN IN OUT NOCOPY UTL_TCP.CONNECTION,
P_DIR IN VARCHAR2,
P_LIST OUT T_STRING_TABLE) AS
-- --------------------------------------------------------------------------
L_CONN UTL_TCP.CONNECTION;
L_LIST T_STRING_TABLE := T_STRING_TABLE();
L_REPLY_CODE VARCHAR2(3) := NULL;
BEGIN
L_CONN := GET_PASSIVE(P_CONN);
SEND_COMMAND(P_CONN, 'LIST ' || P_DIR, TRUE);

BEGIN
LOOP
L_LIST.EXTEND;
L_LIST(L_LIST.LAST) := UTL_TCP.GET_LINE(L_CONN, TRUE);
DEBUG(L_LIST(L_LIST.LAST));
IF L_REPLY_CODE IS NULL THEN
L_REPLY_CODE := SUBSTR(L_LIST(L_LIST.LAST), 1, 3);
END IF;
IF SUBSTR(L_REPLY_CODE, 1, 1) IN ('4', '5') THEN
RAISE_APPLICATION_ERROR(-20000, L_LIST(L_LIST.LAST));
ELSIF (SUBSTR(G_REPLY(G_REPLY.LAST), 1, 3) = L_REPLY_CODE AND
SUBSTR(G_REPLY(G_REPLY.LAST), 4, 1) = ' ') THEN
EXIT;
END IF;
END LOOP;
EXCEPTION
WHEN UTL_TCP.END_OF_INPUT THEN
NULL;
END;

L_LIST.DELETE(L_LIST.LAST);
P_LIST := L_LIST;

UTL_TCP.CLOSE_CONNECTION(L_CONN);
GET_REPLY(P_CONN);
END;

при обращении к ней в блоке

DECLARE
CONN UTL_TCP.CONNECTION;
L_LIST FTP.T_STRING_TABLE;
PATTERN OWA_TEXT.VC_ARR;

BEGIN
CONN := FTP.LOGIN(...);

FTP.LIST(CONN, './OUT', L_LIST);

IF L_LIST.COUNT > 0 THEN
...
END IF;

END;

В Oracle Forms возникае ошибка ORA-06531 - Reference to uninitialized collection, при этом
в PL/SQL Developer все отрабатывает. ???
...
Рейтинг: 0 / 0
Ошибка в Oracle Forms
    #35969340
ora81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вернее к L_LIST.COUNT
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Ошибка в Oracle Forms
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]