Отладка приложения

Функции SQLERRM и SQLCODE

Встроенные функции SQLERRM и SQLCODE возвращают текст и код ошибки для последней исключительной ситуации (рис. 9.7). Эти функции полезно использовать в обработчике OTHERS, так как они позволяют установить причину возникновения ошибки.

DBMS_ERROR_CODE

Эта функция возвращает номер последней ошибки, возникшей в базе данных. Эта функция не имеет ограничений в использовании. Для рекурсивных ошибок DBMS_ERROR_CODE возвращает код первого сообщения в стеке. Рассмотрим пример, в котором обработаем ошибку ORA-01438 is "value too large for column", но прежде чем приступить к выполнению примера, обратите внимание на синтаксис функции.

Пример 1. Триггер ON-ERROR. Обработка ошибки

DECLARE
eсode NUMBER := ERROR_CODE;
dbms_ecode NUMBER;
dbms_etext VARCHAR2(200);
BEGIN
 IF ecode = 40508 THEN
  Dbms_ecode := DBMS_ERROR_CODE;
  Dbms_etext := DBMS_ERROR_TEXT;
  IF dbms_ecode = -1438 THEN
   Message('Введенное значение превышает допустимое! Введите заново!);
  ELSE
   Message('Вставка не выполнена, так как '||dbmserrtext);
  END IF;
 END IF;

Обработка NULL - значений

Несмотря на то что обработчик OTHERS ловит все типичные исключительные ситуации, такую ситуацию, как "невведение данных", он обработать не может. Попробуйте в предыдущем примере оставить поле

312

"Делитель" пустым, и вы увидите, что ничего не происходит. Обычно такие ситуации закрываются с помощью настройки определенных свойств элемента. Вы можете установить для поля делитель свойство "Required" равным "True", делая элемент обязательным для ввода. Но можно поступить и по-другому, воспользовавшись функцией NVL, как показано ниже (рис. 9.8).

DECLARE
myexcept exception;
pragma exception_init(myexcept,-1476); 
BEGIN
 :result:=:delimoe/NVL(:delitel,5); 
EXCEPTION
 WHEN myexcept THEN message('Деление на ноль. Делитель должен иметь значение, отличное от нуля'); 
END;

Правильная обработка исключительных ситуаций имеет большое значение для разработчика, сокращая его время на поиск и обработку ошибок, ускоряя отладку приложения.

Forms Debugger (Debug Console)

В этом разделе мы познакомимся с более мощным инструментом отладки Oracle Forms - Forms Debugger. Forms Debug Console - это инструмент, который дает разработчику контроль над приложением в режиме отладки и полную информацию о текущем состоянии формы и всех выполняющихся внутри нее операций. Отладчик позволяет вам отслеживать выполнение операторов триггеров и программных модулей пошагово, а также дает вам возможность изменять значение переменных. Исследуя среду выполнения отладчиком, вы получаете возможность ана-

лизировать переменные, параметры, системные переменные, значения отображаемых и неотображаемых элементов. Инструмент Debug Console (рис. 9.9) имеет простой интерфейс, представляющий собой рабочую область, на которой вы можете наблюдать ход выполнения программы и значения переменных окружения и внутреннего представления Forms. В Debug Console вы можете управлять видимостью разделов, перечисленных ниже, переключая кнопки на горизонтальной панели отладчика:

Для того чтобы лучше понять принцип работы отладчика, рассмотрим все разделы на примере. Для выполнения примера выполните следующие действия:

WHEN-BUTTON-PRESSED
DECLARE
value1 number;
value2 number; 
result1 number; 
result2 number; 
result3 number; 
BEGIN
 value1:=1;
 value2:=2;
 :global.result1:=value1+value2;
 result2:=1/0;
 :parameter.result3:=value2-value1;
END;

Для того чтобы вызвать Forms Debugger, достаточно нажать кнопку Ш "Run Form Debug", которая находится справа от кнопки "Run Form" в верхней горизонтальной панели Forms. Когда вы попробуете запустить форму в режиме отладки, ничего особенного не произойдет, так как форма будет выполняться в привычном для нее режиме до тех пор, пока не встретит точку прерывания программы.

Breakpoints

Точка останова - это отметка, сообщающая форме, в каком месте нужно остановить выполнение программы и вызвать отладчик. Точки останова можно устанавливать только на выполняемых операторах, то есть точки останова, установленные на операторах типа begin, end, declare, if вызовут сообщение об ошибке. Точка останова имеет вид красной окружности и устанавливается слева от выполняемого оператора, как показано на рис. 9.10.

Для того чтобы установить точку останова, щелкните два раза левой кнопкой мыши на левой вертикальной панели PL/SQL-редактора напротив выполняемого оператора. Вы можете установить точку останова, используя один из перечисленных способов:

Вы можете устанавливать точки останова как перед запуском формы в режиме отладки, так и после запуска. Установите точки останова на операторах value1, value2, :global.result и запустите форму в режиме отладки. Теперь, когда форма запущена и точки останова установлены, перейдем непосредственно к отладке.

Для того чтобы приступить к отладке, нажмите кнопку в ранее запущенной форме. После того как вы нажмете кнопку, выполнение кода прервется и на самой первой точке останова появится стрелка, означающая текущую точку входа, как показано на рис. 9.11.

Приступим к рассмотрению разделов Debug Console и начнем с раздела Stack.

Стек вызова (Call Stack)

Стек вызова представляет собой цепочку подпрограмм, которая начинается с точки вызова и заканчивается выполняющейся в настоящее время программой. Для того чтобы активировать окно стека, выполните команду Debug | Debug Windows Stack|Stack или нажмите кнопку Stack на панели инструментов Debug Console (рис. 9.12).

Нажатием кнопки мы инициировали событие WHEN-BUTTON-PRESSED, которое является точкой входа в стек вызовов. Как вы сможете далее увидеть, кадры стека размещаются в порядке их вызова, то есть самый первый вызов будет находиться в нижней части стека, а последний, соответственно, будет самым первым. Название стека кадра состоит из имени модуля, события, элемента и строки вызова.

Имя_модуля.программная_единица.[имя_блока.имя_элемента]::номер_ строки

Переменные (Variables)

Окно Variables (рис. 9.13) предназначено для вывода значений переменных кадра стека. Для того чтобы активировать окно переменных, выполните команду Debug | Debug Windows | Variables или нажмите кнопку Variables на панели инструментов Debug Console.

Как видно на рисунке, окно отражает имя, значение и тип переменных стека, а также имя текущего кадра стека в поле "Stack Frame". Чтобы понять, как вам может помочь этот раздел, нажмите кнопку += "Step Into" для вхождения в следующую точку. После перехода в новую точку останова вы увидите, как в поле "Value" отразится значение переменной, то есть 1. Вы можете изменить это значение на любое другое допустимое значение. Модифицирование переменных на этапе отладки дает вам возможность определить, как изменится поведение программы или как повлияет на результат изменение значения той или иной переменной. Исключением являются параметры, значения которых не редактируются и считаются read only. Значения всех не модифицируемых переменных подсвечиваются при попытке изменения.

Watch (Просмотр)

Для того чтобы добавить переменную в окно просмотра, выполните следующие действия:

Для того чтобы удалить переменную из окна просмотра, выполните следующие действия:

Form Values (Значения формы)

Окно "Form Values" отражает значения всех элементов и параметров текущей формы. Для того чтобы активировать окно переменных, выполните команду Debug | Debug Windows | Form Values или нажмите кнопку Form Values на панели инструментов Debug Console.

Как видно на рис. 9.15, окно содержит две вкладки - "Items" и "Parameters", а также имя текущего модуля в поле "Module". Вкладка "Items" отображает значение элементов блока, а вкладка "Parameters" отображает имя параметра и его значение. Вы можете изменять значения

элементов, если они не относятся к числу read only, для тестирования возможных вариантов поведения программы. Например, значение элемента display item нельзя модифицировать.

PL/SQL Packages (Пакеты PL/SQL)

Вы можете использовать окно "PL/SQL Packages" для просмотра выполняемого PL/SQL-пакета. В этом окне вы можете отслеживать только переменные пакета, все остальные значения, такие как возвращаемое значение функции и переменные, задействованные в методах тела пакета, будут отображены в окне переменных кадра стека DEB.SPECK_PACK.

Как показано на рис. 9.16, окно "PL/SQL Packages" состоит из двух столбцов, отображающих имя и значение переменной, и радиогруппы переключателей, управляющих отображением пакетов. Вы можете выбирать, какие пакеты отображать, а какие нет; так, например, выбирая переключатель "Client", вы получите возможность просматривать только клиентские пакеты, то есть те, которые определены непосредственно в модуле формы. Для того чтобы отобразить серверные и клиентские пакеты, нужно выбрать переключатель "All". В поле "Packages" отображается имя текущего пакета, значения переменных которого отображаются в области окна.

Для того чтобы посмотреть, как отображаются данные в этом окне, создайте простой пакет, скрипт которого приведен в листинге 1.

PACKAGE speck_pack IS X 
 number:=2;
 FUNCTION a 
  RETURN NUMBER; 
 END; 
 PACKAGE BODY speck_pack IS FUNCTION A 
  RETURN NUMBER IS val number; 
 BEGIN 
  val:=1+2; 
  RETURN X; 
 END; 
END;

Добавьте в триггер WHEN-BUTTON-PRESSED новую переменную для вызова функции пакета. Ниже приведен листинг триггера, в котором новые строки выделены жирным шрифтом.

WHEN-BUTTON-PRESSED
DECLARE
value1 number;
value2 number; 
result1 number; 
result2 number;
result4 number;
BEGIN
 value1:=1;
 value2:=2;
 result4:=speck_pack.a;
 :global.result1:=value1+value2; 
 --result2:=1/0;
 :parameter.result3:=value2-value1; 
END;

Теперь для того, чтобы просмотреть значения переменных пакета во время выполнения формы в режиме отладки, повторите действия, которые мы совершали, рассматривая предыдущие примеры. Для этого запустите форму в режиме отладки, предварительно установив точки останова на операторах value1 и value2, и нажмите кнопку. После того как выполнение кода прервется на операторе value1, продолжите пошаговое выполнение программы, нажимая кнопку "Step Into" до тех пор, пока курсор не попадет на оператор :global.result1. Как только точка входа устанавливается для оператора result4, отладчик перемещает вас в программный модуль пакета и помещает в стек вызовов новый кадр, двигаясь по строкам которого, вы получаете возможность отслеживать состояние глобальных переменных пакета и операторов, задействованных в теле пакета. Заметьте, что новый кадр помещается в верхнюю часть стека.

Global/System Variables (Глобальные и системные переменные)

Используйте окно "Global/System Variables" для просмотра значений переменных командной строки, системных и глобальных переменных. Как показано на рис. 9.17, окно "Global/System Variables" состоит из трех вкладок - Global, System и Command Line.

Для того чтобы просмотреть значение глобальной переменной, нажимайте кнопку "Step Into" до тех пор, пока курсор не покинет оператор :global.result1. Значения глобальных переменных можно изменять, а вот значения переменных Command Line изменять нельзя, так как все они имеют статус read only. Все системные переменные за исключением четырех также имеют статус read only. Системные переменные DATE_ TREASHOLD, EFFECTIVE_DATE, MESSAGE_LEVEL и SUPRESS_ WORKING являются теми самыми исключениями, значения которых можно изменять.

Breakpoints (Точки останова)

Окно "Breakpoints" позволяет не только видеть установленные точки останова, но и управлять ими.

Как показано на рис. 9.18, вкладка "Breakpoints" отображает три столбца: Source, Enable и Line. Значение, приведенное в столбце "Line", указывает на номер строки, на которой установлена точка останова. Столбец "Source" - это локация точки останова. Вы можете управлять точками останова, делать их активными или неактивными, сбрасывая флаг выключателя. Если флажок сброшен, то точка останова считается неактивной и имеет серый цвет.

Вкладка "Break On Exceptions" отображает типичные исключительные ситуации, которые могут возникнуть в вашем приложении. Вкладка имеет три столбца, первый из которых позволяет включить или выключить исключительную ситуацию на выбранной точке останова (рис. 9.19). Столбец "Number" отображает код ошибки для исключительной ситуации столбца "Exception Name".

Для того чтобы понять, как установить флажок и вывести на экран сообщение, показанное на рисунке, требуется выбрать точку останова, а затем, перейдя на вкладку "Break On Exceptions", установить флажок на исключительной ситуации с названием "ZERO_DIVIDE". Теперь, когда вы выполнили вышеописанные действия, попробуйте снова пошагово проанализировать код, и вы увидите, что после того как точка входа пре-

рывания покинет оператор, возбуждающий исключительную ситуацию, на экран выводится сообщение. Чтобы не отслеживать такого рода ошибки, используйте конструкцию EXCEPTION.

Использование пакета Debug

Вы также можете управлять отладкой программно, используя встроенный пакет Debug. Рассмотрим некоторые функции этого пакета на конкретных примерах. Для того чтобы установить точку останова программно, добавьте в ваш код строки, приведенные в листинге. Новые строки выделены жирным шрифтом.

WHEN-BUTTON-PRESSED
DECLARE
value1 number;
value2 number;
result1 number;
result2 number; result4 number;
BEGIN
 value1:=1;
 value2:=2; result4:=speck_pack.a;
 :global.result1:=value1+value2;
 IF Debug.Getn(value2) > 0 THEN raise Debug.Break;
 :parameter.result3:=value2-value1;
END;

В этом случае, если значение переменой value2 окажется большим 0, выполнится прерывание.

Используя процедуру Attach (рис. 9.20) пакета Debug, вы можете перевести форму из нормального режима в режим отладки. После того как вы запустите форму в обычном режиме, нажмите кнопку, и на экране появится сообщение с описанием дальнейших действий.

WHEN-BUTTON-PRESSED
DECLARE
value1 number; 
value2 number; 
BEGIN 
 value1:=1;
 value2:=2; 
 DEBUG.ATTACH;
 :global.result1:=value1+value2;
 :parameter.result3:=value2-value1;
END;

Для того чтобы активизировать отладку, выберите пункт главного меню Debug | Attach Debug. В появившемся окне "Attach Debug to" (рис. 9.21) введите имя хоста и номер порта, после чего подтвердите свои действия.

Вы можете передать выполнение кода отладчику, подобно тому, как это делает точка останова, используя процедуру Suspend пакета Debug (рис. 9.22).

Управление отладкой

Когда мы нажимали кнопку "Step Into", мы переходили к выполнению следующей строки кода, то есть отлаживали код построчно. Помимо кнопки "Step Into" на панели инструментов Debug имеется еще несколько кнопок для управления ходом отладки. Вы можете воспользоваться пунктами меню Debug (рис. 9.23), действия которых идентичны кнопкам панели управления.