WHENEVER OSERROR  EXIT 1 ROLLBACK
WHENEVER SQLERROR EXIT 2 ROLLBACK

SPOOL &1

VARIABLE IS_ERROR NUMBER
VARIABLE LOG_TEXT VARCHAR2(4000)

PROMPT ==== Удаление причин блокировок ===

declare
  LTypeZmin boolean := false;
  LOznaka   boolean := false;
  LWhyBlock boolean := false;
begin
  -- проверяем наличие файлов с типами змин
  :LOG_TEXT := 'Перевіряємо наявність файлів з типами змін...' || chr(13) || chr(10);
  :LOG_TEXT := :LOG_TEXT ||'=================================================='  || chr(13) || chr(10);
  for r in (select t.why from "table_name" t) loop
    if not LTypeZmin then
      :LOG_TEXT := :LOG_TEXT || 'У базі даних є файли з типами змін:' || chr(13) || chr(10);
    end if;
    LTypeZmin := true;
    :LOG_TEXT := :LOG_TEXT || r.why || chr(13) || chr(10);
  end loop;
  if not LTypeZmin then
    :LOG_TEXT := :LOG_TEXT || 'Файлів не виявлено.' || chr(13) || chr(10);
  end if;

  :LOG_TEXT := :LOG_TEXT || 'Пошук серед пов''язаних осіб...' || chr(13) || chr(10);
  :LOG_TEXT := :LOG_TEXT || '==================================================' || chr(13) || chr(10);
  for r in (select t.why from "table_name" t where ...) loop
    if not LOznaka then
      :LOG_TEXT := :LOG_TEXT || 'У базі даних виявлено пов''язаних осіб за ознаками:' || chr(13) || chr(10);
    end if;
    LOznaka   := true;
    :LOG_TEXT := :LOG_TEXT || r.why || chr(13) || chr(10);
  end loop;
  if not LOznaka then
    :LOG_TEXT := :LOG_TEXT || 'Пов''язаних осіб не виявлено.' || chr(13) || chr(10);
  end if;

  :LOG_TEXT := :LOG_TEXT || '==================================================' || chr(13) || chr(10);
  -- проверяем наличие блокировок
  :LOG_TEXT := :LOG_TEXT || 'Перевіряємо наявність блокувань...' || chr(13) || chr(10);
  :LOG_TEXT := :LOG_TEXT || '==================================================' || chr(13) || chr(10);
  for с in (select w.why from "table_name" w where ...) loop
    if not LWhyBlock then
      :LOG_TEXT := :LOG_TEXT || 'У базі даних є блокування з наступними причинами:' || chr(13) || chr(10);
    end if;
    LWhyBlock := true;
    :LOG_TEXT := :LOG_TEXT || с.why || chr(13) || chr(10);
  end loop;
  if not LWhyBlock then
    :LOG_TEXT := :LOG_TEXT || 'Блокувань не виявлено.' || chr(13) || chr(10);
  end if;
  :LOG_TEXT := :LOG_TEXT || '==================================================' || chr(13) || chr(10);
  -- Если есть блокировки или файлы с типами змин то генерим ошибку
  if LTypeZmin or LWhyBlock or LOznaka then
    :IS_ERROR := 1;
    return;
  else
    :IS_ERROR := 0;
  end if;
  --тут исполняемый код
  commit;
end;
/

PROMPT :LOG_TEXT

begin
  if (:IS_ERROR = 1) then 
    raise_application_error(-20000,
                            'Акумулятор не може бути встановлений!');
  end if;
end;
/

COMMIT;

PROMPT ==== Ok ===

SPOOL OFF

EXIT