VPF::Что не так со скриптом? - Форум программистов

AlexSerdukov

Дата 12.10.2007, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 6.8.2006

Репутация: нет
Всего: нет

Добрый день! Вот бьюсь с вопросом, почему в TOAD скрипт выполняется, а в SQL*PLUS нет. Ошибки не выскакивает, просто скрипт не заканчивает работу.

А вот и он, "родимый":

Код



DECLARE
   recs_found  NUMBER(5);
   recs_added  NUMBER(5);

BEGIN
  recs_found := 0;
  recs_added := 0;

DECLARE
      CURSOR c1 IS
        SELECT site FROM site;



      thisSite site.site%TYPE;
      activityB0        activity.handle%TYPE;
      podActivityHandle        POD_ACTIVITY.handle%TYPE;
      podButtonHandle        POD_BUTTON.handle%TYPE;

      BEGIN
      OPEN c1;
      LOOP
        FETCH c1 INTO thisSite;
        EXIT WHEN c1%NOTFOUND;


      
        activityB0 := 'ActivityBO:DM720' ;
        podActivityHandle := 'PODActivityBO:PODButtonBO:PODConfigBO:WorkstationBO:' || thisSite || ',' || 'SFC_CUSTOM_DATA' || ',' ||'SO_STEP'||','|| '220';
        podButtonHandle := 'PODButtonBO:PODConfigBO:WorkstationBO:' || thisSite || ',' || 'SFC_CUSTOM_DATA' || ',' ||'SO_STEP';
        
    SELECT COUNT(*) INTO recs_found from POD_ACTIVITY
        WHERE ACTIVITY_BO = activityB0 and HANDLE = podActivityHandle ;



    if recs_found <= 0 then
    INSERT INTO POD_ACTIVITY ( handle, CHANGE_STAMP, ACTIVITY_BO ,SEQUENCE,IS_PLUGIN,REFRESH_PLUGIN,CLEARS_SFC,OPEN_NEW_WINDOW,POD_BUTTON_BO )
        VALUES ( podActivityHandle, '', activityB0 ,'220', 'true','false','false','true' ,podButtonHandle  );
             recs_added := recs_added+1;

    end if;
          
        podActivityHandle := 'PODActivityBO:PODButtonBO:PODConfigBO:WorkstationBO:' || thisSite || ',' || '*' || ',' ||'SO_STEP'||','|| '220';
        podButtonHandle := 'PODButtonBO:PODConfigBO:WorkstationBO:' || thisSite || ',' || '*' || ',' ||'SO_STEP';
        
    SELECT COUNT(*) INTO recs_found from POD_ACTIVITY
        WHERE ACTIVITY_BO = activityB0 and HANDLE = podActivityHandle ;



    if recs_found <= 0 then
    INSERT INTO POD_ACTIVITY ( handle, CHANGE_STAMP, ACTIVITY_BO ,SEQUENCE,IS_PLUGIN,REFRESH_PLUGIN,CLEARS_SFC,OPEN_NEW_WINDOW,POD_BUTTON_BO )
        VALUES ( podActivityHandle, '', activityB0 ,'220', 'true','false','false','true' ,podButtonHandle  );
             recs_added := recs_added+1;


    
    end if;  

      END LOOP;
      CLOSE c1;
    END;
 END;

Может кто знает, что тут может быть неправильно?

Спасибо

batigoal

Дата 12.10.2007, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Нелетучий Мыш

Профиль
Группа: Участник Клуба
Сообщений: 6423
Регистрация: 28.12.2004
Где: Санктъ-Петербургъ

Репутация: 2
Всего: 151

А откуда ты знаешь, что он не заканчивает работу?

Попробуй ввести после скрипта / и Enter.

А зачем тут два блока DECLARE?

Это сообщение отредактировал(а) batigoal - 12.10.2007, 11:24

--------------------

"Чтобы правильно задать вопрос, нужно знать большую часть ответа" (Р. Шекли)
ЖоржЖЖ

LSD

Дата 12.10.2007, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 18
Всего: 538

M
LSD

Перенесено из баз данных

--------------------

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Oracle \| Следующая тема »