WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 |   ...   | 14 | 15 || 17 | 18 |   ...   | 24 |

«Oracle для профессионалов Том Кайт DiaSoft 2003 торгово-издательский дом Москва • Санкт-Петербург • Киев УДК 681.3. 06(075) Б Б К 32.973.2 К 91 КАЙТ ТОМ К 91 Oracle для профессионалов. Пер. с ...»

-- [ Страница 16 ] --

• правильно ли сконфигурирован процесс прослушивания. Сейчас мы детально рассмотрим каждый из этих шагов. Предполагается, что вы уже получили сообщение об ошибке ORA-28575 по какой-то причине.

Проверка программы extproc Если после конфигурирования поддержки внешних процедур вы получаете сообщение об ошибке ORA-28575, прежде всего необходимо проверить наличие программы extproc и возможность ее выполнения. Это легко сделать из командной строки — как в Windows, так и в UNIX. Это надо делать, зарегистрировавшись как пользователь, от имени которого будет запускаться процесс прослушивания (поскольку именно этот процесс и будет выполнять программу extproc), чтобы убедиться, что этот пользователь имеет все необходимые права. Затем нужно выполнить следующую команду: С:\oracle\BIN>.\extproc.exe Oracle Corporation SATURDAY AUG 05 2000 14:57:19.851 Heterogeneous Agent based on the following module(s): — External Procedure Module С:\oracle\BIN> Результат работы должен быть подобен представленному выше. Обратите внимание, что я выполнял команду из каталога [ORACLE_HOME]\bin, поскольку именно в нем и находится программа extproc.exe. Если выполнить эту программу не удается, значит, установка выполнена некорректно или необходимо исправить конфигурацию на уровне операционной системы.

Проверка среды сервера В среде сервера нужно проверить несколько установок. Прежде всего проверьте, используется ли соответствующий файл TNSNAMES.ORA и правильно ли он сконфигурирован. Например, на моей UNIX-машине с помощью программы truss я получил следующую информацию: $ setenv TNS_ADMIN /tmp $ truss sqlplus /@ora8i.us.oracle.com |& grep TNSNAMES access("/export/home/tkyte/.TNSNAMES.ORA", 0) Err#2 ENOENT access("/tmp/TNSNAMES.ORA", 0) Err#2 ENOENT Внешние процедуры на языке С access(/var/opt/oracle/TNSNAMES.ORA", 0) Err#2 ENOENT access(Vexport/home/oracle8i/network/admin/TNSNAMES.ORA", 0) = Итак, сервер Oracle искал файл TNSNAMES.ORA: • в моем начальном каталоге;

• в каталоге, задаваемом переменной среды TNS_ADMIN;

• в каталоге /var/opt/oracle;

• и, наконец, в каталоге $ORACLE_HOME/network/admin/. Типичная ошибка: файл TNSNAMES.ORA конфигурируется в каталоге [ORACLE_HOME]/network/admin, но установлена переменная среды TNS_ADMIN, которая заставляет сервер Oracle искать файл TNSNAMES.ORA в другом месте. Поэтому проверьте, используется ли соответствующий файл TNSNAMES.ORA (чтобы добиться однозначности, просто установите переменной среды TNS_ADMIN требуемое значение перед запуском сервера;

это гарантирует, что сервер Oracle использует именно тот экземпляр файла, который необходимо). Убедившись, что используется соответствующий файл TNSNAMES.ORA, надо поискать ошибки конфигурирования в этом файле. Следует проверить в соответствии с представленными выше примерами, настроены ли компоненты (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1)) и (CONNECT_DATA =(SID = PLSExtProc)) корректно. Сравните их с содержимым файла LISTENER.ORA. Если для установки использовалась программа Net8 Assistant, заботиться о соответствии круглых скобок не придется. Если файл редактируется вручную, будьте очень внимательны. Одна незакрытая или стоящая не на своем месте круглая скобка не позволит использовать соответствующую запись. Проверив корректность этих компонентов, обратите внимание на имя записи в файле TNSNAMES.ORA. Это должна быть запись EXTPROC_CONNECTION_DATA. Никакое другое имя не подходит (к имени записи может быть только добавлено имя домена). Проверьте правильность написания имени. Одновременно сверьтесь с конфигурационным файлом SQLNET.ORA. Сервер Oracle ищет файл SQLNET.ORA так же, как и файл TNSNAMES.ORA. Учтите, что он необязательно находится в том же каталоге, что и файл TNSNAMES.ORA, — он может быть и в других местах. Если установлен любой из параметров: • names.directory_path • names.default_domain необходимо убедиться, что файл TNSNAMES.ORA им соответствует. Если параметр names.default_domain имеет непустое значение, например (WORLD), необходимо проверить, указан ли этот домен в соответствующей записи файла TNSNAMES.ORA. Вместо EXTPROC_CONNECTION_DATA, в качестве имени записи в этом случае должно быть указано EXTPROC_CONNECTION_DATA.WORLD. Если установлен параметр names.directory_path, необходимо убедиться, что он содержит значение TNSNAMES. Если параметр names.directory_path имеет, например, значение (HOSTNAME,ONAMES), то протокол Net8 будет использовать имена хостов (Host Глава Naming Method) при обработке строки подключения EXTPROC_CONNECTION_DATA, a если найти параметры подключения таким образом не удастся, — обратится к серверу Oracle Names Server. Поскольку ни один из этих методов не позволит найти запись EXTPROC_CONNECTION_DATA, подключение не будет установлено, и вызов extproc завершится неудачно. Просто добавьте в этот список слово TNSNAMES, чтобы сервер Oracle мог найти запись EXTPROC_CONNECTION_DATA в локальном файле TNSNAMES.ORA.

Проверка процесса прослушивания Проблемы с прослушиванием похожи на проблемы с установкой среды для сервера. При проверке конфигурации процесса прослушивания обратите внимание на следующее: • используется ли соответствующий конфигурационный файл LISTENER.ORA? • правильно ли настроен этот файл? Снова, как и при проверке среды сервера, необходимо убедиться, что для прослушивания используется соответствующая среда, позволяющая ему найти требуемый файл LISTENER.ORA. Возникают те же проблемы, связанные с поиском конфигурационных файлов в разных местах. В случае сомнений, какой именно набор конфигурационных файлов используется, следует установить соответствующее значение переменной среды TNS_ADMIN перед запуском процесса прослушивания. Это гарантирует использование соответствующих конфигурационных файлов. Убедившись, что используются нужные конфигурационные файлы, необходимо проверить содержимое файла LISTENER.ORA в соответствии с представленной ранее информацией. После этого проверка из среды сервера доступности службы extproc_connection_data (с добавлением стандартного домена) с помощью программы tnsping должна завершиться успешно. Например, у меня используется стандартный домен us.oracle.com, и проверка доступности дает следующий результат: С:\oracle\network\ADMIN>tnsping extproc_connection_data.us.oracle.can TNS Ping Utility for 32-bit Windows: Version 8.1.6.0.0 - Production on 06-AUG-2000 09:34:32 (c) Copyright 1997 Oracle Corporation. All rights reserved. Attempting to contact (ADDRESS=(PROTOCOL=IPC)(KEY=EXTPROC1)) OK (40 msec) Это подтверждает, что среда сервера базы данных и процесса прослушивания сконфигурирована правильно. Не должно быть никаких сообщений об ошибке ORA-28575: unable to open RPC connection to external procedure agent (ORA-28575: невозможно открыть соединение RPC с агентом внешней процедуры).

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

Внешние процедуры на языке С • Служба поддержки Oracle поможет настроить/сконфигурировать демонстрационную программу. Если служба поддержки работает со знакомым примером, то сможет решить любые проблемы намного быстрее. • Предлагаемая демонстрационная программа демонстрирует правильный подход к компиляции и компоновке на данной платформе. Демонстрационная программа находится в каталоге [ORACLE_HOME]/plsql/demo во всех версиях Oracle 8i. Шаги, которые необходимо выполнить для создания демонстрационной программы, описаны в следующих разделах.

Компиляция кода extproc.c Сначала необходимо скомпилировать код extproc.c в DLL-библиотеку или файл.so/,sl/.a. Чтобы сделать это в Windows, достаточно перейти в каталог ORACLE_HOME\ plsql\demo и набрать make (в этом каталоге корпорация Oracle поставляет файл make.bat): С: \oracle\plsql\demo>make Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 10.00.5270 for 80x86 Copyright (C) Microsoft Corp 1984-1995. All rights reserved. extproc.с Microsoft (R) 32-Bit Incremental Linker Version 3.00.5270 Copyright (C) Microsoft Corp 1992-1995. All rights reserved. /out:extproc.dll /dll /implib:extproc.lib /debug..\..\oci\lib\msvc\oci.lib msvcrt.lib /nod:libcmt /DLL /EXPORT:UpdateSalary /EXPORT: PercentComn /EXPORT: PercentComm_ByRef /EXPORT:EmpExp /EXPORT:CheckEmpName /EXPORT:LobDemo extproc.obj С:\oracle\plsql\demo> В ОС UNIX делается практически то же самое, но для компиляции необходимо ввести другую команду. Вот как она должна выглядеть: $ make -f demo_plsql.mk extproc.so /usr/ccs/bin/make -f /export/home/ora816/rdbms/demo/demo_rdbms.mk extproo_callback SHARED_LIBNAME=extproc.so OBJS="extproc.o" После завершения работы команды будет получен файл с расширением.dll в Windows или с расширением.so/.sl/.a в ОС UNIX;

расширение зависит от платформы. Например, в ОС Solaris используется расширение.so, а в ОС HP/UX —.si.

Глава Настройка учетной записи SCOTT/TIGER Чтобы эта демонстрационная программа работала правильно, необходимо создать демонстрационную учетную запись SCOTT/TIGER. Если в базе данных нет учетной записи SCOTT/TIGER, ее можно создать с помощью оператора: SQL> grant connect, resource to scott identified by tiger;

При этом создается пользователь SCOTT, которому предоставляются привилегии подключения и создания объектов (таблиц, пакетов и т.п.). Имеет смысл задать для этого пользователя другое стандартное табличное пространство вместо SYSTEM, а также явно задать временное табличное пространство. SQL> alter user scott default tablespace tools temporary tablespace temp;

При наличии учетной записи SCOTT/TIGER, прежде чем продолжать, необходимо предоставить ей еше одну дополнительную привилегию. Пользователю SCOTT необходима привилегия CREATE LIBRARY. Она позволит ему выполнить оператор CREATE LIBRARY, необходимый для использования внешних процедур. К этому оператору мы еще вернемся. Поскольку привилегия эта — весьма мощная, имеет смысл отобрать ее у пользователя SCOTT после выполнения примера. Для предоставления привилегии необходимо выполнить следующий оператор: SQL> grant create library to SCOTT;

подключившись как один из пользователей, имеющих привилегию CREATE LIBRARY с опцией ADMIN (например, как пользователь SYSTEM или любой другой пользователь, которому предоставлена роль DBA). Наконец, необходимо убедиться, что в схеме SCOTT созданы и наполнены данными демонстрационные таблицы EMP/DEPT. Это можно проверить следующим образом: SQL> select count(*) from emp;

COUNT(*) 14 SQL> select count(*) from dept;

COUNT(*) 4 Если эти таблицы не существуют или они не заполнены, их можно пересоздать, выполнив сценарии demodrop.sql (для удаления таблиц) и demobld.sql (для их создания и наполнения данными). Эти сценарии находятся в каталоге [ORACLE_HOME]\ sqlplus\demo и должны выполняться в среде SQL*Plus при подключении от имени пользователя SCOTT.

Создание библиотеки demolib Следующий шаг — создание объекта-библиотеки в базе данных Oracle. Этот объект просто сопоставляет имя библиотеки (любое имя длиной до 30 символов) с физическим Внешние процедуры на языке С файлом операционной системы. Этим файлом операционной системы является созданный нами скомпилированный двоичный файл. Пользователь, выполняющий оператор CREATE LIBRARY, должен обладать привилегией CREATE LIBRARY, предоставленной ему непосредственно или через роль. Эта привилегия считается достаточно мощной и должна предоставляться только тем, кто пользуется доверием. Эта привилегия позволяет пользователям выполнять С-код на сервере с правами той учетной записи, от имени которой работает служба extproc. Это одна из причин, почему необходимо конфигурировать службу extproc так, чтобы она работала не от имени пользователя — владельца программного обеспечения Oracle (чтобы избежать случайного или намеренного переписывания, например, табличного пространства SYSTEM). Для выполнения этого шага необходимо ввести в среде SQL*Plus команды:

S L connect scott/tiger Q> Connected. S L create or replace library demolib as Q> 2 'с:\oracle\plsql\demo\extproc.dll';

3/ Library created.

Имя DEMOLIB выбрано для библиотеки разработчики демонстрационной программы;

имя DEMOLIB использовать обязательно. Имя файла, c:\oracle\pisql\demo\ extproc.dll, может отличаться (я создавал пример непосредственно в демонстрационном каталоге в ORACLE_HOME). У вас может отличаться и значение ORACLE_HOME;

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

Установка и запуск Последний шаг демонстрации — установка PL/SQL-кода, создающего соответствующие подпрограммы для функций в библиотеке demolib. Нам интересен не столько их исходный код, сколько результат их выполнения. Цель демонстрации — протестировать работу внешних процедур. Как их создавать и подключать, мы рассмотрим далее. Теперь просто выполняем команды: SQL> connect scott/tiger Connected. SQL> @extproc перейдя предварительно в каталог [ORACLE_HOME]\plsql\demo. Вы должны получить примерно следующее: SQL> @extproc Package created. No errors. Package body created. No errors. ENAME : ALLEN JOB : SALESMAN Глава SALARY : 1600 COMMISSION : 300 Percent Commission : 18.75 ENAME : MARTIN JOB : SALESMAN SALARY : 1250 COMMISSION : 1400 Percent Commission : 112 Return value from CheckEmpName : 0 old_ename value on return : ANIL ENAME : 7369 HIREDATE : 17-DEC-80 Employee Experience Test Passed. *************************************** PL/SQL procedure successfully completed... (здесь будут и другие информационные сообщения)!. Это показывает, что внешние процедуры правильно сконфигурированы и могут использоваться в системе. Первая процедура выполняет многие из функций созданной нами библиотеки extproc.dll. Поэтому можно сделать вывод, что все сконфигурировано правильно. Если система сконфигурирована неправильно, вы скорее всего получите следующее: SQL> @extproc Package created. No errors. Package body created. No errors. BEGIN demopack.demo_procedure;

END;

* ERROR at line 1: ORA-28575: unable to open RPC connection to external procedure agent ORA-06512: at "SCOTT.DEMOPACK", line 61 ORA-06512: at "SCOTT.DEMOPACK", line 103 ORA-06512: at line 1 Это означает, что надо перечитать представленный ранее раздел "Конфигурирование сервера" и выполнить все описанные в нем проверки.

Наша первая внешняя процедура Предполагая, что среда разработки настроена, как описано выше, и готова к использованию внешних процедур, попробуем создать первую собственную внешнюю процедуру. В этом примере мы просто будем передавать переменные различных типов (строки, числа, даты, массивы и т.д.) и рассмотрим, как будет выглядеть соответствующий код на языке С для получения этих значений. Внешняя процедура будет обрабатывать некоторые из этих значений, изменяя значения параметров, переданных в режиме OUT или IN/OUT, в зависимости от значений других параметров, переданных в режиме IN или IN/OUT.

Внешние процедуры на языке С Я продемонстрирую свой способ сопоставления для этих переменных, поскольку есть много различных вариантов сопоставления и полезных приемов. Я покажу метод, который предпочитаю использовать, несмотря на некоторую избыточность, потому что он обеспечивает максимум информации во время выполнения. Кроме того, я представлю шаблон, по которому я создаю хранимые процедуры. Этот шаблон реализует многие конструкции, необходимые в любом реальном приложении: • Управление состоянием. Внешние процедуры могут "потерять" информацию о состоянии (текущие значения статических или глобальных переменных). Это связано с реализованным в EXTPROC механизмом кэширования. Поэтому необходимо использовать механизм определения и сохранения состояния в программах на языке С. • Механизмы трассировки. Внешние процедуры выполняются на сервере отдельно от других процессов. Хотя на некоторых платформах эти процедуры можно отлаживать с помощью обычного отладчика, это весьма сложно;

если же ошибки возникают только при использовании внешней процедуры одновременно многими пользователями, то просто невозможно. Необходимо средство генерации трассировочных файлов по требованию, "начиная с этого момента". Эти файлы аналогичны трассировочным файлам, которые сервер Oracle генерирует при выполнении оператора alter session set sql_trace = true;

цель их создания — записать данные времени выполнения в текстовый файл для отладки/настройки. • Использование параметров. Необходимо средство параметризации внешних процедур, чтобы можно было управлять их работой извне, с помощью файла параметров, аналогично тому, как файл init.ora используется для управления сервером. • Общая обработка ошибок. Необходимо простое средство выдачи вразумительных сообщений об ошибках пользователю.

Оболочка Я собираюсь начать с PL/SQL-прототипа. Будут представлены спецификации подпрограмм на PL/SQL, которые планируется реализовать. В этом примере я собираюсь реализовать набор процедур, принимающих параметр в режиме IN и параметр в режиме OUT (или IN/OUT). Мы напишем такую процедуру для каждого существенного (часто используемого) типа данных. На примере этих процедур я продемонстрирую, как правильно передавать входные данные и получать результаты каждого из этих типов. Кроме того, я хочу создать ряд функций, возвращающих результаты некоторых из этих типов. Мне кажется, наиболее существенны следующие типы: • строки (размером вплоть до максимально поддерживаемого языком PL/SQL, 32 Кбайта);

• числа (данные типа NUMBER, с любым масштабом и точностью);

• даты (DATE);

• целые числа (данные типа BINARY_INTEGER);

Глава • данные булева типа (BOOLEAN);

• данные типа RAW (размером до 32 Кбайт);

• большие объекты (для всех данных размером >32 Кбайт);

• массивы строк;

• массивы чисел;

• массивы дат. Для этого необходимо сначала создать несколько типов наборов. Они будут представлять массивы строк, чисел и дат: tkyte@TKYTE816> create or replace type numArray as table of number 2/ Type created. tkyte@TKYTE816> create or replace type dateArray as table of date 2/ Type created. tkyte@TKYTE816> create or replace type strArray as table of varchar2(255) 2/ Type created. Теперь можно создавать спецификацию пакета. Она представляет собой набор перегруженных процедур для тестирования передачи параметров. Каждая процедура имеет параметры, передаваемые в режиме IN и OUT, за исключением версии для данных типа CLOB, в которой параметр передается в режиме IN/OUT. Клиент должен инициализировать параметр LOB IN OUT, а внешняя процедура заполнит этот объект: tkyte@TKYTE816> create or replace package demo_passing_pkg 2 as 3 procedure pass(p_in in number, p_out out number);

4 5 procedure pass(p_in in date, p_out out date);

6 7 procedure pass(p_in in varchar2, p_out out varchar2);

8 9 procedure pass(p_in in boolean, p_out out boolean);

10 11 procedure pass(p_in in CLOB, p_out in out CLOB);

12 13 procedure pass(p_in in numArray, p_out out numArray);

14 15 procedure pass(p_in in dateArray, p_out out dateArray);

16 17 procedure pass(p_in in strArray, p_out out strArray);

Нельзя использовать перегрузку для процедур, использующих параметры типа RAW и INT, поскольку вызов PASS(RAW, RAW) будет совпадать по сигнатуре с PASS(VARCHAR2,VARCHAR2), a PASS(INT,INT) - с PASS(NUMBER,NUMBER). Поэтому для этих двух типов данных я в виде исключения создам процедуры со специальными именами:

Внешние процедуры на языке С 19 20 21 procedure pass_raw(p_in in RAW, p_out out RAW);

procedure pass_int(p_in p_out in binary_integer, out binary_integer);

Наконец, реализую несколько функций, возвращающих значения, чтобы продемонстрировать, как они реализуются. Создадим по функции для каждого из основных скалярных типов данных: 25 26 27 28 29 30 31 end 32 / function return_number return number;

function return_date return date;

function return_string return varchar2;

demo_passing_pkg;

Package created. Операторы CREATE TYPE позволяют создать необходимые типы массивов. С их помощью мы определили новые SQL-типы;

numArray — вложенная таблица чисел, dateArray — вложенная таблица дат и strArray — вложенная таблица строк типа VARCHAR2(255). Мы создали также спецификацию пакета, который собираемся реализовать, так что можно приступать к реализации. Я представлю ее шаг за шагом. Начнем с создания библиотеки: tkyte@TKYTE816> c r e a t e or replace l i b r a r y demoPassing 2 as 3 'С:\demo_passing\extproc.dll' 4/ Library created. Этот оператор, как и в рассмотренном ранее примере, где проверялась настройка учетной записи SCOTT/TIGER, просто определяет для сервера Oracle место хранения библиотеки demoPassing;

в данном случае она находится в файле C:\demo_passing\ extproc.dll. Тот факт, что эта DLL-библиотека еще не создана, не имеет значения. Объектбиблиотека необходим для компиляции тела PL/SQL-пакета, который мы собираемся создавать. Библиотеку extproc.dll мы создадим чуть позже. Оператор создания библиотеки можно успешно выполнить даже при ее отсутствии. Теперь переходим к телу пакета: tkyte@TKYTE816> create or replace package body demo_passing_pkg 2 as 3 4 procedure pass(p_in in number, 5 p_out out number) 6 as 7 language С 8 name "pass_number" 9 library demoPassing 10 with context 11 parameters ( 12 13 14 15 Глава p_out CONTEXT, p_in OCINumber, p_in INDICATOR short, p_out OCINumber, INDICATOR Short);

Итак, на первый взгляд, все начинается как обычно: оператор CREATE OR REPLACE PACKAGE и тело процедуры PROCEDURE Pass(... ) as..., но затем появляется отличие от обычной хранимой процедуры. Мы создаем спецификацию вызова, а не PL/SQLкод. Спецификация вызова — это метод сопоставления PL/SQL-типов встроенным типам данных языка, на котором создается внешняя процедура. Например, выше выполнено сопоставление параметра p_in number типу данных OCINumber языка С. Ниже представлено построчное описание того, что делается в данном случае. • Строка 7: language С. Задаем язык. Создаются внешние процедуры на языке С, хотя можно их создавать и на языке Java (но этому посвящена следующая глава). • Строка 8: name "pass_number". Задаем имя функции на языке С, которую будем вызывать из библиотеки demoPassing. Для сохранения регистра символов необходимо использовать идентификатор в кавычках (поскольку для языка С регистр символов имеет значение). Обычно все идентификаторы в Oracle переводятся в верхний регистр, но если взять их в двойные кавычки, регистр символов при записи в базу данных будет сохранен. Это имя должно точно совпадать с именем С-функции, вплоть до регистра символов. • Строка 9: library demoPassing. Указываем имя библиотеки, которая будет содержать соответствующий код. Это имя совпадает с именем, заданным в представленном ранее операторе CREATE LIBRARY. • Строка 10: with context. Хотя это и не обязательно, я всегда передаю контекст. Этот контекст необходим для выдачи осмысленных сообщений об ошибках и использования функций OCI или Pro*С. • Строка 11: parameters. Начало списка параметров. Мы явно задаем последовательность и типы передаваемых параметров. Это, как и передавать контекст, делать не обязательно, но я всегда стараюсь описывать параметры явно. Вместо использования стандартных соглашений и периодического их "угадывания" я явно сообщаю серверу Oracle, какие значения и в каком порядке ожидаю получить. • Строка 12: CONTEXT. Это ключевое слово, стоящее в списке параметров первым, требует от сервера Oracle передать в качестве первого параметр типа OCIExtProcContext *. Это ключевое слово можно задавать в любом месте списка параметров, но обычно его указывают первым. OCIExtProcContext — тип данных, определяемый функциональным интерфейсом OCI и представляющий информацию о сеансе на сервере. • Строка 13: p_in OCINumber. Я сообщаю серверу Oracle, что следующий параметр в моей С-функции должен быть типа OCINumber. В данном случае он будет передаваться как OCINumber *, указатель на данные типа OCINumber. Таблицу соответствий типов данных см. далее.

Внешние процедуры на языке С • Строка 14: p_in INDICATOR short. Я сообщаю серверу Oracle, что следующий параметр в С-функции — индикаторная переменная типа short, которая позволит определить, имеет ли параметр p_in значение NULL. Хотя это необязательно, я всегда передаю индикаторную переменную вместе с каждым параметром. Если этого не делать, нельзя будет определить во внешней процедуре, передано ли значение NULL, или вернуть из нее значение NULL. • Строка 15: p_out OCINumber. Я сообщаю серверу Oracle, что следующий после индикаторной процедуры параметр функции тоже имеет тип OCINumber. В данном случае он будет передаваться как OCINumber *. Таблицу соответствий типов данных см. далее. • Строка 16: p_out INDICATOR short. Я сообщаю серверу Oracle, что следующий параметр — индикаторная переменная для параметра p_out, и она должна быть типа short. Поскольку параметр p_out передается в режиме OUT, эта индикаторная переменная позволит мне сообщить вызывающему, имеет ли параметр, переданный в режиме OUT, значение NULL. Поэтому этот параметр передается как данные типа short * (указатель), чтобы можно было не только читать значение, но и устанавливать его. С учетом этого, давайте рассмотрим прототип С-функции, соответствующий только что созданной PL/SQL-процедуре. Этот прототип должен иметь следующий вид: 18 19 20 21 22 23 24 25 --void pass_number -- ( -- OCIExtProcContext *, /* 1 : контекст */ -OCINumber *, /* 2 : P_IN */ -short, /* 3 : P_IN (индикатор) */ -OCINumber *, /* 4 : P_OUT */ -short * /* 5 : P_OUT (индикатор) */ -- );

Закончим обзор создаваемого тела PL/SQL-пакета, сопоставляющего остальные процедуры/функции. Вот процедура, передающая и принимающая даты: они будут сопоставлены типу данных OCIDate языка С, предоставляемому функциональным интерфейсом OCI: 27 28 29 30 31 32 33 34 35 36 37 38 39 40 procedure pass(p_in in date, p_out out date) as language С name "pass_date" library demoPassing with context parameters (CONTEXT, p_in OCIDate, p i n INDICATOR short, p_out OCIDate, p_out INDICATOR short);

-- void pass_date -( -- OCIExtProcContext *, /* -OCIDate *, /* -short, /* -OCIDate *, /* 1 2 3 : : : :

контекст */ P_IN */ P_IN (индикатор) */ P_OUT */ 1300 Глава 41 42 --short );

* /* 5 : P_OUT (индикатор) */ Давайте рассмотрим, как передавать и принимать данные типа varchar2 — в этом случае сервер будет сопоставлять строки типу данных char * — указателю на строку символов. 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 procedure pass(p_in in varchar2, p_out out varchar2) as language С name "pass_str" library demoPassing with context parameters (CONTEXT, p_in STRING, p_in INDICATOR short, p o u t STRING, p_out INDICATOR short, p_out MAXLEN int);

-- void pass_str -( -- OCIExtProcContext *, /* 1 : контекст */ -char *, /* 2 : P_IN */ -short, /* 3 : P_1N (индикатор) */ -char *, /* 4 : P_OUT */ -short *, /* 5 : P_OUT (индикатор) */ -int * /* 6 : P_OUT (максимальная длина) */ -);

В этом коде мы впервые столкнулись с использованием параметра MAXLEN. Он требует от сервера Oracle передать внешней процедуре максимальный размер передаваемого в режиме OUT параметра p_out. Поскольку мы возвращаем строку, важно знать ее максимально возможную длину, чтобы предотвратить перезапись буфера. Для всех строковых типов, передаваемых в режиме OUT, я настоятельно рекомендую использовать параметр MAXLEN. Теперь давайте рассмотрим, как передавать тип PL/SQL BOOLEAN, которому будет сопоставляться тип int языка С: 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 procedure pass(p_in in boolean, p_out out boolean) as language С name "pass_bool" library demoPassing with context parameters (CONTEXT, p_in int, p_in INDICATOR short, p_out int, p_out INDICATOR short);

-- void pass_bool -( -- OCIExtProcContext -int -short -int -short -);

*,,, *, * /* 1 : контекст */ /* 2 : P_IN */ /* 3 : P_IN (индикатор) */ /* 4 : P_OUT */ /* 5 : P_OUT (индикатор) */ Рассмотрим пример для типа данных CLOB. Мы передаем тип данных PL/SQL CLOB как тип данных OCILobLocator языка С. Обратите внимание, что в этом случае если Внешние процедуры на языке С параметр передается в режиме OUT, функция должна принимать указатель на указатель. Это позволяет в функции на языке С изменять не только содержимое, на которое указывает локатор большого объекта, но и сам этот локатор, т.е. при необходимости сослаться на другой большой объект: 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 procedure pass(p_in in clob, p_out in out clob) as language С name "pass_clob" library demoPassing with context parameters (CONTEXT, p_in OCILobLocator, p_in INDICATOR short, p_out OCILobLocator, p_out INDICATOR short);

-- void pass_clob -( -- OCIExtProcContext *, /* -OCILobLocator *, /* -short, /* -OCILobLocator **, /* -short * /* -);

1 2 3 4 : : : : :

контекст */ P_IN */ P_IN (индикатор) */ P_OUT */ P_OUT (индикатор) */ Затем следуют три процедуры, передающие и принимающие массивы, данные типа наборов в Oracle. Поскольку сопоставления типов во всех трех случаях очень похожи, рассмотрим все их одновременно. С-функции для этих трех процедур имеют абсолютно одинаковые прототипы — каждая получает данные типа OCIColl, независимо от передаваемого типа набора: 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 procedure pass(p_in in numArray, p_out out numArray) as language С name "pass_numArray" library demoPassing with context parameters (CONTEXT, p_in OCIColl, p_in INDICATOR short, p_out OCIColl, p_out INDICATOR short);

-- void pass_numArray -( -- OCIExtProcContext *, /* 1 : контекст */ -OCIColl *, /* 2 : P_IN */ -short, /* 3 : P_IN (индикатор) */ -OCIColl **, /* 4 : P_OUT */ -short * /* 5 : P_OUT (индикатор) */ -);

procedure pass(p_in in dateArray, p_out out dateArray) as language С name "pass_dateArray" library demoPassing with context parameters (CONTEXT, p_in OCIColl, p_in INDICATOR short, p_out OCIColl, p_out INDICATOR short);

1302 Глава 124 125 126 127 128 129 130 131 procedure pass(p_in in strArray, p_out out strArray) as language С name "pass_strArray" library demoPassing with context parameters (CONTEXT, p_in OCIColl, p_in INDICATOR short, p_out OCIColl, p_out INDICATOR short);

Далее следует процедура, передающая и принимающая данные типа RAW. В данном случае используется как атрибут MAXLEN (который уже использовался в представленной выше процедуре с параметрами типа VARCHAR2), так и атрибут LENGTH. Необходимо передавать длину данных типа RAW, поскольку они содержат двоичную информацию, включая нули, поэтому фактическую длину строки в программе на языке С определить невозможно, и сервер Oracle не сможет понять, какого объема данные возвращаются. Для данных типа RAW оба атрибута, LENGTH и MAXLEN, принципиально важны. Атрибут LENGTH передавать обязательно, a MAXLEN — желательно. 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 procedure pass_raw(p_in in raw, p_out out raw) as language С name "pass_raw " library demoPassing with context parameters (CONTEXT, p_in RAW, p_in INDICATOR short, p_in LENGTH int, p_out RAW, p_out INDICATOR short, p_out MAXLEN int, p_out LENGTH int);

-- void pass_long_raw -- ( -- OCIExtProcContext *, /* 1 : контекст */ -unsigned char *, /* 2 : P_IN */ -short, /* 3 : P_IN (индикатор) */ -int, /* 4 : P_IN (длина) */ -unsigned char *, /* 5 : P_OUT */ -short *, /* 6 : P_OUT (индикатор) */ -int *, /* 7 : P_OUT (максимальная длина) */ -int * /* 8 : P_OUT (длина) */ -);

Далее идет процедура, принимающая и передающая в функцию языка С данные PL/SQL типа BINARY_INTEGER. В этом случае тип BINARY_INTEGER сопоставляется встроенному типу данных int языка С: 154 155 156 157 158 159 160 161 162 163 procedure pass_int(p_in in binary_integer, p_out out binary_integer) as language С name "pass_int" library demoPassing with context parameters (CONTEXT, p_in int, p_in INDICATOR short, p_out int, p_out INDICATOR short);

-- void pass_int -( Внешние процедуры на языке С 164 165 166 167 168 - OCIExtProcContext -int -short -int -short -);

*,,, *, * /* /* /* /* /* 1 2 3 4 : контекст */ : P_IN */ : P_IN (индикатор) */ : P_OUT */ : P_OUT (индикатор) */ Ниже представлены оболочки для трех функций, возвращающих числа, даты и строки. В них используется новое ключевое слово RETURN. При сопоставлении с функцией необходимо использовать ключевое слово RETURN в качестве последнего параметра в списке параметров. При этом задается тип возвращаемого значения, а не формального параметра функции. Ниже я буду указывать три параметра в SQL-оболочке и только два из них в используемом прототипе функции на языке С. Параметр RETURN OCINumber задает тип данных, которые будут возвращаться в соответствии с прототипом функции OCINumber *return_number. Я включил индикаторную переменную даже для возвращаемого значения, чтобы можно было при необходимости вернуть значение NULL. Если не включить в список параметров индикаторную переменную, вернуть значение NULL будет невозможно. Как было показано в примере для строк, можно также возвращать атрибут LENGTH, но не MAXLEN, поскольку этот атрибут можно задавать только для параметров, передаваемых в режиме OUT, память для которых выделяет сервер Oracle. При возврате значений, поскольку за выделение памяти отвечает разработчик, атрибут MAXLEN не имеет смысла. 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 function return_number return number as language С name "return_number" library demoPassing with context parameters (CONTEXT, RETURN INDICATOR short, RETURN OCINumber);

----OCINumber *return_number ( OCIExtProcContext *, /* -short * /* );

1 : контекст */ 2 : RETURN (индикатор) */ function return_date return date as language С name "return_date" library demoPassing with context parameters (CONTEXT, RETURN INDICATOR short, RETURN OCIDate);

----OCIDate *return_date ( OCIExtProcContext *, /* -short * /* );

1 : контекст */ 2 : RETURN (индикатор) */ function return_string return varchar2 as language С name "return_string" library demoPassing Глава 200 with context parameters 201 (CONTEXT, RETURN INDICATOR short, RETURN LENGTH int, RETURN STRING);

202 203 -- char *return_string 204 -( 205 -- OCIExtProcContext *, /* 1 : контекст */ 206 -short *, /* 2 : RETURN (индикатор) */ 207 -int * /* 3 : RETURN (длина) */ 208 -);

209 210 end demo_passing_pkg;

211 / Package body created. В последней функции я использую как атрибут LENGTH, так и индикаторную переменную. Так я могу передать серверу Oracle длину возвращаемой строки. Итак, мы имеем: • спецификацию пакета, определяющую его основные функции;

• набор новых типов массивов SQL;

• объект-библиотеку в базе данных, задающую соответствие для еще не созданной библиотеки extproc.dll;

• тело пакета, представляющее собой спецификации SQL для функций на языке С. Эти спецификации сообщают серверу Oracle, какие данные (индикаторные переменные, параметры, контексты и т.д.) и как (на уровне типа данных) передавать внешней процедуре. Теперь, после рассмотрения примера, имеет смысл представить таблицы соответствия типов данных. Одна таблица показывает, какие внешние типы данных можно использовать для SQL-типа Х. Затем для выбранного внешнего типа, показано, какой тип данных языка С будет фактически использоваться. Таблицы соответствия типов данных можно найти в руководстве Oracle Application Developers Guide — Fundamentals;

здесь они представлены просто для справки. Учтите, что внешний тип данных — это не тип, используемый в языке С (и не тип, используемый в языке SQL или PL/SQL). Для определения фактического типа данных, который должен использоваться в языке С, обратитесь ко второй таблице. Тип данных SQL или PL/SQL Внешний тип данных BINARY INTEGER, BOOLEAN, PLS_INTEGER NATURAL, NATURALN, POSITIVE, POSITIVEN, SIGNTYPE Стандартный тип int [unsigned]char, [unsigned]short, [unsigned]int, [unsigned]long, sb1, sb2, sb4, ub1, ub2, ub4, size_t unsigned int [unsigned]char, [unsigned]short, [unsigned]int, [unsigned]long, sb1, sb2, sb4, ub1, ub2, ub4, size_t Float Double float double FLOAT, REAL DOUBLE PRECISION Внешние процедуры на языке С Тип данных SQL или PL/SQL CHAR, CHARACTER, LONG, NCHAR, NVARCHAR2, ROWID, VARCHAR2, VARCHAR LONG RAW, RAW BFILE, BLOB, CLOB, NCLOB NUMBER, DEC, DECIMAL, INT, INTEGER, NUMERIC, SMALLINT DATE Абстрактные типы данных (АТД) Наборы (вложенные таблицы, массивы VARRAY) Внешний тин данных string, ocistring Стандартный string тип raw, ociraw ociloblocator [unsigned]char, [unsigned]short, [unsigned]int, [unsigned]long, sb1. sb2, sb4, ub1, ub2, ub4. size_t, ocinumber Ocidate Dvoid Ocicoll raw ociloblocator ocinumber ocidate dvoid ocicoll Итак, в таблице приводятся внешние типы данных, соответствующие типу данных SQL или PL/SQL. Я рекомендую использовать стандартные типы, поскольку с ними проще всего работать в функциях на языке С. Внешний тип данных очень похож на тип данных языка С, но надо пойти на шаг дальше. Поскольку любой тип данных SQL или PL/SQL может задаваться для параметра, передаваемого в режиме in, in out, out или определять тип возвращаемого значения функции, при определении фактического типа данных языка С необходимо дополнительное уточнение. В общем случае параметры, которые возвращаются или передаются в режиме in, передаются по значению, а параметры в режимах in out, out или передаваемые по ссылке явно, передаются через указатели, по ссылке. В следующей таблице показано, какой тип данных в С надо использовать для соответствующего внешнего типа данных и режима передачи параметра:

Внешний тип данных Тип в языке С для параметров IN и возвращаемых значений [unsigned] char [unsigned] short [unsigned] int [unsigned] long size t Тип в языке С для параметров IN OUT, OUT и при передаче по ссылке [unsigned] char * [unsigned] short * [unsigned] int • [unsigned] long * size t * sb1 * sb2 * sb4 * ub1 * ub2 * ub4 * [unsigned] char [unsigned] short [unsigned] int [unsigned] long size t sb1 sb2 sb4 ub1 ub2 ub sb1 sb2 sb4 ub1 ub2 ub Глава Внешний тип данных Тип в языке С для параметров IN и возвращаемых значений float double char * unsigned char * OCILobLocator * OCINumber * OCIString * OCIRaw • OCIDate • OCIColl * dvoid * Тип в языке С для параметров IN OUT, OUT и при передаче по ссылке float * double * char * unsigned char * OCILobLocator ** OCINumber * OCIString * OCIRaw * OCIDate * OCIColl ** dvoid • float double string raw Ociloblocator Ocinumber Ocistring Ociraw Ocidate Ocicoll АТД Код на языке С Теперь можно переходить к реализации библиотеки на языке С. Начнем с общего шаблона, который я использую для внешних процедур. Этот шаблон включает стандартные заголовочные файлы, заголовочный файл Oracle OCI и три функции: debugf, oci_error и raise_application_error. Эти функции обеспечивают поддержку механизма трассировки (debugf) и общей обработки ошибок (oci_error и raise_application_error). Я просто копирую этот файл в каждый новый проект создания внешних процедур и начинаю разработку с него. #include #include #include #include #include #include #include #ifdef WIN_NT #define INI_FILE_NAME "c:\\WtempWextproc.ini" #else #define INI_FILE_NAME "/tmp/extproc.ini" #endif #define strupr(a) {char * cp;

for(cp=a;

*cp;

*cp=toupper(*cp), cp++);

} Выше представлено начало используемого мною шаблона на языке С. Я включаю заголовочные файлы, а также задаю местонахождение файла параметров. Есть много способов задать местонахождение этого файла на этапе выполнения. Например, если бы внешняя процедура создавалась для выполнения в среде Windows, можно было бы ис Внешние процедуры на языке С пользовать функции Windows RegOpenKeyEx, RegQueryInfoKey и RegEnumValue для получения сведений о местонахождении файла параметров из системного реестра. В среде UNIX можно использовать переменную среды. В этом примере я просто явно указываю местонахождение в коде программы. Это вполне допустимо, поскольку можно потребовать, чтобы параметры инициализации помещались в известный стандартный файл (например, в файл /еtс/имя_внешней_процедуры.ога в ОС UNIX или с:\имя_внешней_процедуры\имя_внешней_процедуры.ога в Windows). Теперь переходим к самому коду. В следующей части определяется контекст. Он содержит то, что в обычной программе принято задавать в глобальных переменных. Мы не можем использовать глобальные переменные во внешней процедуре, поскольку это абсолютно ненадежно. Кроме того, поскольку статические данные будут инициализироваться при каждом вызове, использование глобальных переменных в любом случае будет некорректным. Для получения и установки контекста внешней процедуры мы будем использовать средства функционального интерфейса управления контекстом библиотеки OCI. В представленную ниже структуру можно добавлять любые переменные, содержащие информацию о состоянии, которую нужно сохранять между вызовами. Я определил следующие глобальные переменные. • OCIExtProcContext * ctx. Контекст, который передается каждой внешней процедуре. Он потребуется во многих случаях, в частности при обработке ошибок. • OCIEnv * envhp. Указатель на среду OCI. Он понадобится практически при каждом обращении к функции OCI. • OCISvcCtx * svchp. Дескриптор службы OCI. Он понадобится во многих (но не во всех) вызовах функций OCI. • OCIError * errhp. Дескриптор ошибки OCI. Он будет использоваться практически во всех вызовах функций OCI для обработки возможных ошибок. • int curr_lineno и char * curr_filename. Эти переменные будут использоваться процедурой трассировки. Имя файла исходного кода и номер строки, из которой вызвана процедура трассировки, будут запоминаться, чтобы при выдаче сообщения было понятно, из какой строки и какого файла было выдано сообщение. Это пригодится при отладке "с нуля". В главе 10 я писал о снабжении кода средствами трассировки и отладки — во внешних процедурах это особенно важно. • ub1 debugf_flag. Флаг, определяющий, выдаются ли трассировочные сообщения. Если этот флаг не установлен, мы "проигнорируем" обращения к debugf (функция debugf представлена ниже). Это позволит оставить вызовы функции трассировки в коде и при передаче его в производственную эксплуатацию, чтобы при необходимости трассировку легко можно было включить. • char debugf_path[255]. Эта переменная задает каталог, в который будут выдаваться отладочные сообщения. • char debugf_filename[50]. Эта переменная задает имя файла отладочных сообщений в указанном выше каталоге.

Глава typedef struct myCtx { OCIExtProcContext * ctx;

OCIEnv * OCISvcCtx * OCIError * int char * ub1 char char } myCtxStruct;

envhp;

svchp;

errhp;

/* Контекст, передаваемый внешний /* процедурам */ /* Дескриптор среды OCI */ /* Дескриптор службы OCI */ /* Дескриптор ошибки OCI */ curr_lineno;

curr_filename;

debugf_flag;

debugf_path[255];

debugf_filename[50];

/* добавьте сюда необходимые переменные состояния... */ Затем в шаблоне исходного кода следует функция debugf — процедура трассировки. Это С-функция, работающая аналогично стандартной функции fprintf и даже принимающая любое количество аргументов (обратите внимание на троеточие в списке аргументов). Первый ее аргумент — контекст — описанная выше структура, предоставляющая информацию о состоянии. Я всегда предполагаю, что указатель на состояние имеет имя myCtx (в макросе для функции debugf это предположение используется). Функция debugf демонстрирует кое-что новое. В ней представлена большая часть функций библиотеки OCI для работы с файлами, которые очень похожи на семейство функций fopen/fread/ fwrite/fclose языка С. Код функции debugf, который вызывается, только если установлен флаг myCtx->debugf_flag, открывает файл, формирует сообщение, записывает его и закрывает файл. Этот код может служить примером того, как используется контекст. Контекст содержит информацию о состоянии сеанса и важные переменные, например структуры OCIEnv и OCIError, необходимые для всех вызовов функций OCI. Показано, как изменять состояние, манипулируя переменными в структуре контекста (как это делает макрос debugf). Макрос debugf позволяет "проигнорировать" обращения к реализующей трассировку функции _debugf(). Дело в том, что если либо контекст myCtx, либо флаг myCtx->debugf_flag не установлены, состояние контекста никогда не изменяется, и функция _debugf() никогда не вызывается. Это означает, что можно оставить отладочные операторы в производственном коде, поскольку их наличие не повлияет на производительность в долгосрочной перспективе (пока флаг debugf_flag имеет значение false). void _debugf(myCtxStruct * myCtx, char * fmt,...) { va_list ap;

OCIFileObject * fp;

time_t theTime = time(NULL);

char msg[8192];

ub4 bytes;

if (OCIFileOpen(myCtx->envhp, myCtx->errhp, &fp, myCtx->debugf_filenaroe, myCtx->debugf_path, Внешние процедуры на языке С OCI_FILE_WRITE_ONLY, OCI_FILE_APPEND|OCI_FILE_CREATE, OCI_FILE_TEXT) != OCI_SUCCESS) return;

strftime(msg, sizeof(msg), "%y%m%d %H%M%S GMT ", gmtime(&theTime));

OCIFileWrite(myCtx->envhp, myCtx->errhp, fp, msg, strlen(msg), &bytes);

va_start(ap,fmt);

vsprintf(msg, fmt, ap);

va_end(ap);

strcat(msg,"\n");

CCIFileWrite(myCtx->envhp, myCtx->errhp, fp, msg, strlen(msg), (bytes);

OCIFileClose(myCtx->envhp, myCtx->errhp, fp);

) Следующий фрагмент кода представляет интерфейсный макрос для функции debugf. Этот макрос использовать удобнее, чем функцию _debugf. Вместо обязательной передачи значений _LINE, _FILE при каждом вызове, достаточно написать: debugf( myCtx, "This is some format %s", some_string );

и этот макрос автоматически установит соответствующие значения в контексте, а затем вызовет функцию _debugf. void _debugf(myCtxStruct * myCtx, char * fmt,... ) ;

#define debugf \ if ((myCtx!=NULL) && (myCtx->debugf_flag)) \ myCtx->curr_lineno = LINE, \ myCtx->curr_filename = FILE, \ _debugf После этого в шаблоне следует утилита raise_application_error для обработки ошибок. Это имя, конечно, знакомо каждому разработчику, использовавшему язык PL/SQL. raise_application_error — встроенная функция PL/SQL, возбуждающая исключительную ситуацию в случае ошибки. Эта функция у нас имеет такое же назначение. Если внешняя процедура вызывает эту функцию раньше, чем завершает работу, возвращаемые внешней процедурой значения игнорируются, а вместо этого в вызывающей среде возбуждается исключительная ситуация. Это позволяет обрабатывать ошибки, возникающие во внешней процедуре, точно так же, как и в любой PL/SQL-процедуре. static int raise_application_error(myCtxStruct * myCtx, int errCode, char * errMsg,...) { char msg[8192];

va_list ap;

va_start(ap,errMsg);

vsprintf(msg, errMsg, ap);

va_end(ap);

debugf(myCtx, "raise application error( %d, %s )", errCode, msg);

if (OCIExtProcRaiseExcpWithMsg(myCtx->ctx,errCode,msg,0) == OCIEXTPROC_ERROR) Глава 18 { debugf(myCtx, "He удалось возбудить исключительную ситуацию");

} return -1;

} Дальше следует еще одна функция обработки ошибок, lastOciError. Эта функция получает контекст текущего сеанса и, используя его структуру OCIError, извлекает теки сообщения о последней произошедшей ошибке OCI. Этот текст выбирается в память, выделенную с помощью вызова OCIExtProcAllocCallMemory(). Любая область памяти, выделенная этой функцией, будет автоматически освобождена при выходе из внешней процедуры. Эта функция чаще всего используется в обращении к функции raise_application_error после неудачного вызова одной из функций OCI. Благодаря ей можно узнать причину возникновения ошибки OCI. s t a t i c char * lastOciError(myCtxStruct * myCtx) { sb4 errcode;

char * errbuf = (char*)OCIExtProcAllocCallMemory(myCtx->ctx, 256);

strcpy(errbuf, "unable to retrieve message\n");

OCIErrorGet(myCtx->errhp, 1, NULL, &errcode, errbuf, 255, OCI_HTYPE_ERROR);

errbuf[strlen(errbuf)-l] = 0;

return errbuf;

} Теперь переходим к "основной" функции в шаблоне для создания внешних процедур;

речь идет о функции init. Она отвечает за формирование и получение информации о состоянии и обработку параметров, установленных в файле инициализации. Это слишком большая функция, чтобы описывать ее полностью, но достаточно простая, если разобраться с используемыми вызовами функций библиотеки OCI. Функция init создает структуру myCtxStruct и вызывает необходимые функции инициализации OCI. Вначале функция получает дескрипторы среды OCI. Она делает это одним из двух способов. Если используются только средства OCI (без прекомпилятора Рго*С), достаточно просто вызвать OCIExtProcGetEnv с передачей контекста внешней процедуры. Эта функция OCI автоматически получает все необходимые дескрипторы. Если используется и библиотека OCI, и прекомпилятор Pro*С, применяется конструкция EXEC SQL REGISTER CONNECT :ctx. Она выполняет настройку на уровне Pro*С. При этом все равно необходимо получить дескрипторы среды OCI, но для этого придется использовать вызовы библиотеки Pro*C: SQLEnvGet, SQLSvcCtxGet. Уберите комментарий с используемого метода и закомментируйте другой метод. /* это надо включать только для внешних процедур, использующих средства Рго*С!! # d e f i n e SQLCA_INIT EXEC SQL INCLUDE s q l c a ;

static myCtxStruct * init(OCIExtProcContext * ctx) { ub1 false = 0;

Внешние процедуры на языке С myCtxStruct *myCtx = NULL;

OCIEnv *envhp;

OCISvcCtx *svchp;

OCIError *errhp;

ub4 key = 1;

if (OCIExtProcGetEnv( ctx, &envhp, &svchp, &errhp ) != OCI_SUCCESS) ( OCIExtProcRaiseExcpWithMsg(ctx,20000, "не удалось подключиться к ОСI",0);

return NULL;

} / * — замените представленный выше вызов OCIExtProcGetEnv() следующим — при использовании Pro*С EXEC SQL REGISTER CONNECT USING :ctx;

if (sqlca.sqlcode < 0) { OCIExtProcRaiseExcpWithMsg(ctx,20000,sqlca.sqlerrm.sqlernnc,70);

return NULL;

} if ((SQLEnvGet(0, &envhp) != OCI_SUCCESS) || (OCIHandleAlloc(envhp, (dvoid**)&errhp, OCI_HTYPE_ERROR,0,0) != OCI_SUCCESS) || (SQLSvcCtxGet(0, NULL, 0, &svchp) != OCI_SUCCESS)) { OCIExtProcRaiseExcpWithMsg(ctx,20000,"не удалось получить среду ->OCI",0);

return NULL;

} -_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Получив среду OCI, необходимо вызвать функцию OCIContextGetValue() для получения контекста. Эта функция принимает среду OCI и ключ и пытается получить указатель. Ключ в данном случае — 64-битовое число. Можно сохранять сколько угодно контекстов, но в этот раз мы будем использовать один. if (OCIContextGetValue(envhp, errhp, (ubl*)&key, sizeof(key), (dvoid**)&myCtx) != OCI_SUCCESS) { OCIExtProcRaiseExcpWithMsg(ctx,20000, "не удалось получить контекст OCI",0);

r e t u r n NULL;

} При получении указателя NULL (это происходит, если контекст еще не установлен), мы выделяем достаточный объем памяти для контекста и сохраняем его в контексте. Для выделения блока памяти, который остается действительным на все время существования процесса, вызывается функция OCIMemoryAllocate. После того как память выделена, она сохраняется в контексте с помощью вызова функции OCIContextSetValue. Эта функция на время сеанса сопоставляет указатель (который не будет изменяться) выбранному ключу. Следующий вызов функции OCIContextGetValue с тем же ключом в пределах того же сеанса позволит получить этот указатель.

Глава if (myCtx = NULL) { if (OCIMemoryAlloc(envhp, errhp, (dvoid**)&myCtx, OCI_DURATION_PROCESS, sizeof(myCtxStruct), OCI_MEMORY_CLEARED) != OCI_SUCCESS) { OCIExtProcRaiseExcpWithMsg(ctx,20000, "не удалось получить память OCI",0);

return NULL;

} myCtx->ctx = ctx;

myCtx->envhp = envhp;

myCtx->svchp = svchp;

myCtx->errhp = errhp;

if ( OCIContextSetValue(envhp, errhp, OCI_DURATION_SESSION, (ubl*)&key, sizeof(key), myCtx ) != OCI_SUCCESS) { raise_application_error(myCtx, 20000, "%s", lastOciError(myCtx));

return NULL;

) Продолжаем, поскольку получение указателя NULL означает, что параметры еще не обработаны. Мы обработаем их в следующем блоке кода. Для обработки файлов, правила построения которых аналогичны файлу параметров инициализации Oracle, используются предоставляемые библиотекой OCI функции управления параметрами. Файл параметров инициализации описан в главе 2. Я обычно использую этот файл для управления выдачей трассировочной и отладочной информации и задания стандартных значений для других переменных, используемых в программе. Файл параметров инициализации для данного примера может выглядеть следующим образом: debugf = true debugf_filename =extproc2.log debugf path = /tmp/ Он включает выдачу трассировочной информации (debugf = true) в файл /tmp/ extproc2.log. Можно добавить в этот файл дополнительные параметры и изменить код функции init так, чтобы можно было читать их и устанавливать соответствующие значения в контексте сеанса. Процесс чтения и обработки файла параметров инициализации состоит из следующих шагов. 1. Вызов функции OCIExtractInit для инициализации библиотеки обработки параметров. 2. Вызов функции OCIExtractSetNumKeys для передачи библиотеке OCI количества запрашиваемых имен. Оно должно совпадать с количеством параметров в файле параметров. 3. Вызов функции OCIExtractSetKey столько раз, сколько было указано в вызове функции OCIExtractSetNumKeys().

Внешние процедуры на языке С 4. Вызов функции OCIExtractFromFile для обработки файла параметров. 5. Вызов функции OCIExtractTo<тип данных> для поочередного получения значений параметров. 6. Вызов функции OCIExtractTerm для завершения работы библиотеки обработки параметров и освобождения выделенных ей системных ресурсов. if ((OCIExtractInit(envhp, errhp) != OCI_SUCCESS) || (OCIExtractSetNumKeys(envhp, errhp, 3) != OCI_SUCCESS) || (OCIExtractSetKey(envhp, errhp, "debugf", OCI_EXTRACT_TYPE_BOOLEAN, 0, &false, NULL, NULL) != OCI_SUCCESS) || (OCIExtractSetKey( envhp, errhp, "debugf_filename", OCI_EXTRACT_TYPE_STRING, 0, "extproc.log", NULL, NULL) != OCI_SUCCESS) || (OCIExtractSetKey( envhp, errhp, "debugf_path", OCI_EXTRACT_TYPE_STRING, 0, "", NULL, NULL) != OCI_SUCCESS) || (OCIExtractFromFile(envhp, errhp, 0, INI_FILE_NAME) != OCI_SUCCESS) || (OCIExtractToBool(envhp, errhp, "debugf", 0, &myCtx->debugf_flag) != OCI_SUCCESS) || (OCIExtractToStr(envhp, errhp, "debugf_filename", 0, myCtx->debugf_filename, sizeof(myCtx->debugf_filename)) != OCI_SUCCESS) || (OCIExtractToStr(envhp, errhp, "debugf_path", 0, myCtx->debugf_path, sizeof(myCtx->debugf_path)) != OCI_SUCCESS) || (OCIExtractTerm(envhp, errhp) != OCI_SUCCESS)) { raise_application_error(myCtx, 20000, "%s", lastOciError(myCtx));

return NULL;

} } Далее следует блок кода, который будет выполняться при втором и последующих вызовах функции init в сеансе. Поскольку функция OCIContextGetValue для второго и последующих вызовов возвращает контекст, мы просто устанавливаем на него соответствующие указатели в структуре: else { myCtx->ctx myCtx->envhp myCtx->svchp myCtx->errhp } = = = = ctx;

envhp;

svchp;

errhp;

Глава Последнее действие в функции init — вызов функции OCIFileInit. Она инициализирует набор функций OCI для работы с файлами, чтобы можно было открывать файлы операционной системы для чтения/записи. Можно было бы использовать и стандартные функции fopen, fclose, fread и fwrite языка С. Использованный подход позволяет сделать внешнюю процедуру более переносимой и обеспечить единообразную обработку ошибок на различных платформах. В функцию init можно добавить и другие вызовы. Например, если предполагается использование функций OCIFormat* (аналогичных функции vsprintf языка С), можно добавить в функцию инициализации вызов OCIFormatInit. He забудьте при этом добавить соответствующий вызов OCIFormatTerm в представленную ниже функцию term. if (OCIFileInit(myCtx->envhp, myCtx->errhp) != OCI_SUCCESS) { raise_application_error(myCtx, 20000, "%s", lastOciError(myCtx));

return NULL;

} return myCtx;

) Теперь перейдем к упомянутой функции term. Это функция завершения и очистки;

ее нужно вызывать после каждого успешного вызова функции init. Это должна быть последняя функция, вызываемая перед возвратом управления из внешней процедуры на языке С в SQL: static void term(myCtxStruct * myCtx) { OCIFileTerm(myCtx->envhp, myCtx->errhp);

} Создание шаблона закончено. Я использую один и тот же шаблон исходного кода для всех своих проектов по созданию внешних процедур (с небольшими изменениями, если используется только библиотека OCI, а не сочетание Pro*С и вызовов OCI). Такой шаблон экономит большое количество времени и обеспечивает множество функциональных возможностей. Теперь начнем добавлять специфический код. Сразу же после общих компонентов я перечисляю все коды ошибок, которые будет возвращать функция, начиная с 20001. Перечислив их в самом начале, можно задать соответствующие исключительные ситуации с помощью конструкций pragma exception_init в коде на языке PL/SQL. Это позволит перехватывать в программах на PL/SQL исключительные ситуации с определенными именами, а не проверять коды ошибок. Я не буду демонстрировать это в данном примере, но в следующем примере с использованием прекомпилятора Рго*С — продемонстрирую. Коды ошибок должны быть в диапазоне от 20000 до 20999, поскольку именно эти коды ошибок выделяются сервером Oracle для приложений;

остальные коды ошибок ИСПОЛЬЗУЮТСЯ самим сервером. #define ERROR_OCI_SRROR 20001 #define ERROR_STR_TOO_SMALL 20002 #define ERROR_RAW_TOO_SMALL 20003 #define ERROR_CLOB_NULL 20004 #define ERROR_ARRAY_NULL Внешние процедуры на языке С Переходим к первой специфической функции. Это реализация процедуры pass_number, заданной в представленном ранее PL/SQL-пакете. Она принимает из PL/SQL параметр типа NUMBER в режиме IN и устанавливает параметр типа NUMBER, переданный в режиме OUT. Функция выполняет следующие действия. • Использует внутренний тип данных Oracle OCINumber с помощью соответствующих функций. В данном случае тип данных Oracle NUMBER преобразуется в тип данных double языка С с помощью встроенной функции OCINumberToReal. Можно преобразовать данные типа NUMBER в строку с помощью функции OCINumberToText или в тип данных int языка С с помощью функции OCINumberToInt. В библиотеке OCI имеется почти SO числовых функций для выполнения различных операций с внутренним типом данных. Описание всех имеющихся функций можно найти в руководстве Oracle Call Interface Programmer's Guide.

• Обрабатывает данные типа double. В данном случае мы просто меняем знак числа: если число было положительным, мы делаем его отрицательным, и наоборот. • Устанавливает параметру типа NUMBER, переданному в режиме OUT, полученное значение с измененным знаком, и завершает работу. Перед каждой функцией, вызываемой из языка PL/SQL, указывается макрос, обеспечивающий ее переносимость. Этот макрос "экспортирует" функцию. Это необходимо только на платформе Windows, а в ОС UNIX — нет. Я обычно включаю этот макрос независимо от платформы, для которой создается внешняя процедура, поскольку мне часто приходится переносить библиотеки внешних процедур из Windows в UNIX, и наоборот. Постоянное включение макроса упрощает перенос. Встроенные в код комментарии объясняют его назначение по ходу дела: #ifdef WIN_NT _declspec (dllexport) #endif void pass_number (OCIExtProcContext * ctx OCINumber * short OCINumber * short * { double l_inum;

myCtxStruct*myCtx;

До выполнения любых действий необходимо получить контекст сеанса. При этом будет получена среда OCI, значения параметров и т.д. Этот вызов будет выполняться первым во всех внешних процедурах: if ((myCtx = init( ctx )) = NULL) return;

debugf(myCtx, "Входим в функцию Pass Number");

Обратимся к первому параметру. Мы передали его как данные типа OCINumber. Теперь к нему можно применять множество функций OCINumber*. В данном случае p_inum p_inum_i p_onum p_onum_i /* контекст */, /* OCINumber */, /* INDICATOR short */, /* OCINumber */, /* INDICATOR short */) Глава данные типа NUMBER преобразуются в данные типа double языка С с помощью функции OCINumberToReal. Так же просто преобразовать их в данные типа int, long, float или в форматированную строку. Сначала необходимо убедиться, что передано не пустое значение типа NUMBER;

если — да, оно обрабатывается, если же — нет, вызывается функция term(). Если удалось успешно получить первый параметр, мы изменяем его знак, после чего создаем на основе полученного значения данные типа OCINumber с помощью функции OCINumberFromReal. Если это получилось, устанавливаем в индикаторе пустого значения p_onum_I признак NOTNULL, чтобы в вызывающей среде можно было понять, что возвращается непустое значение. Обработка закончена. Вызываем функцию term для освобождения ресурсов и возвращаем управление: if (p_inum_i = OCI_IND_NOTNULL) { if (OCINumberToReal(myCtx->errhp, p_inum, sizeof(l_inum), &l_inum) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%S",lastOciError(myCtx));

} else { debugf(myCtx, "Первый параметр: %g", l_inum);

l_inum = -l_inum;

if (OCINumberFromReal(myCtx->errhp, &l_inum, sizeof(l_inum), p_onum) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} else { *p_onum_i = OCI_IND_NOTNULL;

debugf(myCtx, "Устанавливаем параметр OUT равным %g, а индикаторную ->переменную — равной NOTNULL", l_inum) ;

} } } term(myCtx);

} Вот и все. Наша первая внешняя процедура использует все вспомогательные функции: raise_application_error, lastOciError, init, term и debugf. При тестировании этой процедуры мы проверим результаты вызова функции debugf. Они подтвердят, что функция делает именно то, что и предполагалось (представляя собой удобное средство для отладки).

Внешние процедуры на языке С Обратите внимание, как я позаботился о возвращении управления из данной функции только в одном месте. Если возврат управления происходит в нескольких местах, не забудьте в каждом из них вызывать функцию term(myCtx). Теперь переходим к остальным функциям. Следующая функция обрабатывает даты, переданные как параметры в режиме IN и OUT. Мы будем: • принимать параметр типа DATE в режиме IN;

• форматировать его как строку с помощью соответствующих функций библиотеки OCI для трассировки (для работы с данными типа DATE предлагается около 16 функций OCI);

• добавлять один месяц к дате с помощью соответствующей функции OCI;

• присваивать новую дату параметру, переданному в режиме OUT;

• преобразовывать только что присвоенную дату в строку и выдавать ее;

• наконец, вызывать функцию term и возвращать управление. #ifdef WIN_NT _declspec (dllexport) #endif void pass_date (OCIExtProcContext * ctx /* CONTEXT */, OCIDate * p_idate /* OCIDATE */, short p_idate_i /* INDICATOR short */, OCIDate * p_odate /* OCIDATE */, short * p_odate_i /* INDICATOR short */ ) { char buffer[255];

ub4 buff_len;

char * fmt = "dd-mon-yyyy hh24:mi:ss";

myCtxStruct *myCtx;

if ((myCtx = init( ctx )) = NULL) return;

debugf(myCtx, "Входим в функцию Pass Date");

if (p_idate_i = OCI_IND_NOTNULL) { buff_len = sizeof(buffer);

if (OCIDateToText(myCtx->errhp, p_idate, fmt, strlen(fmt), NULL, -1, &buff_len, buffer) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s", lastOciError(myCtx));

} else { debugf(myCtx, "Входной параметр типа date имел значение '%.*s'", buff_len, buffer);

if (OCIDateAddMonths(myCtx->errhp, p_idate, 1, p_odate) != OCI_SUCCESS) Глава { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} else { *p_odate_i = OCI_IND_NOTNULL;

buff_len = sizeof(buffer);

if (OCIDateToText(myCtx->errhp, p_odate, fmt, strlen(fmt), NULL, -1, &buff_len, buffer) != OCI_SUCCESS) { raise_application_error (myCtx, ERROR_OCI_ERROR, "%s",lastOciError(myCtx)) ;

) else { debugf(myCtx, "Выходной параметр типа date получил значение '%.*s'", buff_len, buffer);

} } } } term(myCtx);

} Теперь разберемся, что необходимо для приема и передачи строк. Работать со строками несколько проще, чем с данными типа NUMBER и DATE, поскольку они передаются просто как строки ASCII, завершаемые нулем. Для всех строк, передаваемых в режиме OUT, будет использоваться параметр MAXLEN. Параметр MAXLEN задает для возвращаемой строки максимальный размер буфера, который может изменяться при каждом вызове. Дело в том, что буфер предоставляет вызывающая среда, и при каждом вызове может передаваться в режиме OUT другой параметр другого размера. В результате внешняя процедура сможет учесть размер и предотвратить переполнение буфера. Она проинформирует вызывающую среду о том, что предоставлен слишком маленький буфер, и сообщит, какого размера он должен быть. #ifdef WIN_NT _declspec (dllexport) #endif void pass_str (OCIExtProcContext * ctx char * short char * short * int * ) { myCtxStruct *myCtx;

if ((myCtx = init(ctx)) = NULL) return;

/* CONTEXT */, p_istr /* STRING */, p_istr_i /* INDICATOR short */, p_ostr /* STRING */, p_ostr_i /* INDICATOR short */, p_ostr_ml /* MAXLEN int */ Внешние процедуры на языке С debugf(myCtx, "Входим в функцию Pass Str");

if (p_istr_i = OCI_IND_NOTNULL) { int l_istr_l = strlen(p_istr);

if (*p_ostr_ml > l_istr_l) { strcpy(p_ostr, p_istr);

strupr(p_ostr);

*p_ostr_i = OCI_IND_NOTNULL;

> else { raise_application_error(myCtx, ERROR_STR_TOO_SMALL, "выходной буфер размером %d байт должен быть длиной не ->менее %d байт", *p_ostr_ml, l_istr_l+l);

} } term(myCtx) ;

} На примере следующей функции я продемонстрирую использование типа binary_integer. Тип binary_integer в PL/SQL представляет 32-битовое целое число со знаком. Передать его проще всего. Значения этого типа передаются естественным для программиста на языке С образом. Эта функция просто проверит входное значение и присвоит его (умноженное на 10) выходному параметру: #ifdef WIN_NT _declspec (dllexport) #endif void pass_int (OCIExtProcContext * ctx int short int * short * p_iINT p_iINT_i P_oINT p_oINT_i /* CONTEXT */, /* int */, /* INDICATOR short */, /* int */, /* INDICATOR short */ ) { myCtxStruct*myCtx;

if ((myCtx = init(ctx)) == NULL ) return;

debugf(myCtx, "Входим в функцию Pass Int");

if (p_iINT_i == OCI_IND_NOTNULL) < debugf(myCtx, "Первый параметр типа INT имеет значение %d", p_iINT);

*p_oINT = p_iINT*10;

*p_oINT_i = OCI_IND_NOTNULL;

debugf(myCtx, "Устанавливаем выходному параметру типа INT ->значение %d", *p_oINT);

} Глава term(myCtx);

Теперь рассмотрим передачу параметров PL/SQL типа BOOLEAN. Тип BOOLEAN языка PL/SQL в данном случае сопоставляется типу int языка С. Значение 1 представляет истину, а значение 0 — ложь, как и следовало ожидать. Эта функция просто проверяет входной параметр (не пуст ли он) и устанавливает выходной параметр равным отрицанию входного. И в этом случае, поскольку обеспечивается простое сопоставление со встроенным типом языка С, реализовать эту функцию очень легко. Для обмена данными не надо использовать дескрипторы среды или вызовы функций. Функция просто устанавливает выходной параметр равным отрицанию входного: #ifdef WIN_NT _declspec (dllexport) #endif void pass_bool (OCIExtProcContext * ctx int short int * short * { myCtxStruct*myCtx;

if ((myCtx = init(ctx)) = NULL) return;

debugf(myCtx, "Входим в функцию Pass Boolean");

if (p_ibool_i = OCI_IND_NOTNULL) { *p_obool = !p_ibool;

*p_obool_i = OCI_IND_NOTNULL;

} term(myCtx);

} Теперь займемся передачей параметров типа RAW. Поскольку переменные типа VARCHAR2 в PL/SQL могут иметь длину не более 32 Кбайт, мы всегда будем использовать более простой для взаимодействия внешний тип данных RAW. Он соответствуете языке С типу данных unsigned char *, который представляет собой указатель на байты данных. Работая с данными типа RAW, мы всегда будем получать атрибут LENGTH. Это обязательно, поскольку нет другого способа определить, какое количество данных надо обрабатывать. Мы также всегда будем получать атрибут MAXLEN для всех параметров, переданных в режиме OUT и имеющих переменную длину, чтобы избежать потенциальной перезаписи буфера. Этот атрибут, хотя технически и не обязателен, слишком важен, чтобы его не использовать. Данная функция просто копирует входной буфере выходной: #ifdef WIN_NT _declspec (dllexport) #endif p_ibool p_ibool_i p_obool p_obool_i /* CONTEXT */, /* int */, /* INDICATOR short */, /* int */, /* INDICATOR short */) Внешние процедуры на языке С void pass_raw (OCIExtProcContext * ctx unsigned char * p_iraw short p_iraw_i int p_iraw_l unsigned char * p_oraw short * p_oraw_i int * p_oraw_ml int * p_oraw_l ) { myCtxStruct*myCtx;

/* CONTEXT */, /* RAW */, /* INDICATOR short */, /* LENGTH INT */, /* /* /* /* RAW */, INDICATOR short */, MAXLEN int */, LENGTH int */ if ((myCtx - init(ctx)) == NULL ) return;

debugf(myCtx, "Входим в функцию Pass long raw");

if (p_iraw_i = OCI_IND_NOTNULL) { if (p_iraw_l <= *p_oraw_ml) { memcpy(p_oraw, p_iraw, p_iraw_l);

*p_oraw_l = p_iraw_l;

*p_oraw_i = OCI_IND_NOTNULL;

} else { raise_application_error(myCtx, ERROR_RAW_TOO_SMALL, "Буфер размером %d байт должен быть размером не менее %d байт", *p_oraw_ml, p_iraw_l);

} } else { *p_oraw_i = OCI_IND_NULL;

*p_oraw_l = 0;

} term(myCtx);

} Последняя функция, обрабатывающая скалярные данные, работает с большими объектами. Работать с большими объектами ничуть не сложнее, чем с данными типа DATE или NUMBER. Имеется несколько функций библиотеки OCI, позволяющих читать и записывать большие объекты, копировать и сравнивать их, и т.д. В этом примере используются функции для определения длины и последующего копирования большого входного объекта в выходной. Эта функция требует, чтобы в вызывающей среде был проинициализирован большой объект, передаваемый в режиме OUT (либо путем выбора локатора LOB из существующей строки таблицы, либо с помощью подпрограммы dbms_lob.createtemporary). Хотя я демонстрирую работу только с большим объектом типа CLOB, реализации для объектов типа BLOB и BFILE будут очень похожи: для всех трех 1322 Глава типов используется тип данных OCILobLocator. Подробнее о функциях, работающих с данными типа OCILobLocator, можно прочитать в руководстве Oracle Call Interface Programmer's Guide. Приведенная функция просто копирует входной объект типа CLOB в выходной. #ifdef WIN_NT _declspec (dllexport) #endif void pass_clob (OCIExtProcContext * ctx OCILobLocator * p_iCLOB short p_iCLOB_i OCILobLocator * * p_oCLOB short * p_oCLOB_i ) { ub4 lob_length;

myCtxStruct* myCtx;

if ((myCtx = init(ctx)) = NULL ) return;

debugf(myCtx, "Входим в функцию Pass Clob" );

if (p_iCLOB_i = OCI_IND_NOTNULL && *p_oCLOB_i == OCI_IND_NOTNULL) { debugf(myCtx, "оба больших объекта - NOT NULL");

if (OCILobGetLength(myCtx->svchp, myCtx->errhp, p_iCLOB, Slob_length) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} else { debugf(myCtx, "Длина входного большого объекта была %d", lob_length);

if (OCILobCopy(myCtx->svchp, myCtx->errhp, *p_oCLOB, p_iCLOB, lob_length, 1, 1) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} else { debugf(myCtx, "Мы скопировали большой объект!");

} } } else { raise_application_error(myCtx, ERROR_CLOB_NULL, "%s %s объект типа clob был пустым (NULL)", (p_iCLOB_i — OCI_IND_NULL)?"входной":"", /* CONTEXT */, /* /* /* /* OCILOBLOCATOR */, INDICATOR short */, OCILOBLOCATOR */, INDICATOR short */ Внешние процедуры на языке С (*p_oCLOB_i= OCI_IND_NULL)?"выходной":"");

} term(myCtx);

} Следующие три функции демонстрируют, как передавать и принимать массивы данных во внешней процедуре. Если помните, мы создали несколько табличных типов в SQL: numArray, dateArray и strArray. Эти типы будут использоваться для демонстрации. Функции будут показывать, сколько элементов передано в массиве, выдавать их значения и наполнять этими элементами массив, переданный в режиме OUT. В этих функциях, работающих с массивами, мы будем использовать набор функций OCIColl*. Для работы с наборами (массивами) можно использовать около 15 функций, позволяющих выполнять итерацию по элементам, получать или устанавливать значения элементов и т.п. Ниже использованы следующие наиболее типичные функции: • OCICollSize, для получения количества элементов в массиве;

• OCICollGetElem, для получения i-го элемента массива;

• OCICollAppend, для добавления элемента в конец массива. Полный список имеющихся функций можно найти в руководстве Oracle Call Interface Programmer's Guide.

Начнем с массива чисел. Эта функция будет проходить по всем элементам входного набора, выдавать их значения и присваивать соответствующим элементам выходного набора: #ifdef WIN_NT _declspec (dllexport) #endif void pass_numArray (OCIExtProcContext * OCIColl * short OCIColl ** short * ) { ub4 arraySize;

double tmp_dbl ;

boolean exists;

OCINumber *ocinum;

int i;

myCtxStruct*myCtx;

ctx p_in P_in_i p_out p_out_i /* /* /* /* /* CONTEXT */, OCICOL */, INDICATOR short */, OCICOL */, INDICATOR short */ if ((myCtx = i n i t ( c t x ) ) == NULL) return;

debugf(myCtx, "Входим в функцию Pass numArray");

if (p_in_i == OCI_IND_NULL) { raise_application_error(myCtx, ERROR_ARRAY_NULL, "Входной массив — NULL");

} Глава else if (OCICollSize(myCtx->envhp, myCtx->errhp, p_in, &arraySize) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} else { debugf (myCtx, "Входной массив состоит из %d элементов", arraySize);

for(i - 0;

i < arraySize;

i++) { if (OCICollGetElem(myCtx->envhp, myCtx->errhp, p_in, i, Sexists, (dvoid*)&ocinum, 0) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

break;

} if (OCINumberToReal( myCtx->errhp, ocinum, sizeof(tmp_dbl), &tmp_dbl) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR,"%s", lastOciError(myCtx));

break;

} debugf(myCtx, "p_in[%d] = %g", i, tmp_dbl);

if (OCICollAppend(myCtx->envhp, myCtx->errhp, ocinum, 0, *p_out) != OCI_SUCCESS ) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

break;

} debugf(myCtx, "Элемент добавлен в конец другого массива");

} *p_out_i = OCI_IND_NOTNULL;

} term(myCtx);

} Следующие две функции — для массивов строк и дат. Они очень похожи на представленную выше функцию, работающую с массивами чисел, поскольку все три функции работают с данными типа OCIColl *. Пример для типа данных strArray интересен тем, что в нем впервые используется новый тип данных библиотеки OCI — OCIString (это не то же самое, что тип char *). При использовании типа данных OCIString необходимо работать со ссылками на ссылки. Для строк и дат мы будем выполнять те же действия, что и в представленном ранее примере для чисел: #ifdef WIN_NT _declspec (dllexport) Внешние процедуры на языке С #endif void pass_strArray (OCIExtProcContext * ctx OCIColl * p_in short P_in_i OCIColl ** p_out short * p_out_i ) { ub4 arraySize;

boolean exists;

OCIString * * ocistring;

int i;

text *txt;

myCtxStruct*myCtx;

/* /* /* /* /* CONTEXT */, OCICOL */, INDICATOR short */, OCICOL */, INDICATOR short */ if ((myCtx = init(ctx)) — NULL) return;

debugf( myCtx, "Входим в функцию Pass strArray");

if (p_in_i = OCI_IND_NULL) { raise_application_error(myCtx, ERROR_ARRAY_NULL, "Входной массив — NULL");

} else if (OCICollSize( myCtx->envhp, myCtx->errhp, p_in, &arraySize) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} else { debugf (myCtx, "Входной массив состоит из %d элементов", arraySize);

f o r ( i = 0 ;

i < arraySize;

i++) { if (OCICollGetElem(myCtx->envhp, myCtx->errhp, p_in, i, &exists, (dvoid*)socistring, 0) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

break;

} txt = OCIStringPtr(myCtx->envhp, *ocistring);

debugf( myCtx, "p_in[%d] = 's', size = %d, exists = %d", i, txt, OCIStringSize(myCtx->envhp,*ocistring), exists);

if (OCICollAppend(myCtx->envhp,myCtx->errhp, *ocistring, 0, *p_out) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

break;

} Глава debugf(myCtx, "Элемент добавлен в конец другого массива");

} *p_out_i = OCI_IND_NOTNULL;

} term(myCtx);

} #ifdef WIN_NT _declspec (dllexport) #endif void pass_dateArray (OCIExtProcContext * OCIColl * short OCIColl ** short * ) ctx /* CONTEXT */, /* OCICOL */, /* INDICATOR short */, /* OCICOL */, /* INDICATOR short */ p_in P_in_i p_out p_out_i { ub4 arraySize;

boolean exists;

OCIDate * ocidate;

int i;

char * fmt = "Day, Month YYYY hh24:mi:ss";

ub4 buff_len;

char buffer[255];

myCtxStruct*myCtx;

if ((myCtx = init(ctx)) = NULL) return;

debugf(myCtx, "Входим в функцию Pass dateArray");

if (p_in_i == OCI_IND_NULL) { raise_application_error(myCtx, ERROR_ARRAY_NULL, "Входной массив — NULL");

} else if (OCICollSize(myCtx->envhp, myCtx->errhp, p_in, &arraySize) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} else { debugf(myCtx, "Входной массив состоит из %d элементов", arraySize);

for(i = 0 ;

i < arraySize;

i++) { if (OCICollGetElem( myCtx->envhp, myCtx->errhp, p_in, i, &exists, (dvoid*)&ocidate, 0) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

Внешние процедуры на языке С break;

} buff_len = sizeof(buffer);

if (OCIDateToText(myCtx->errhp, ocidate, fmt, strlen(fmt), NULL, -1, &buff_len, buffer) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

break;

} debugf(myCtx, "p_in[%d] = %.*s", i, buff_len, buffer);

if (OCICollAppend(myCtx->envhp,myCtx->errhp, ocidate, 0, *p_out ) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

break;

) debugf(myCtx, "Элемент добавлен в конец другого массива");

} *p_out_i = OCI_IND_NOTNULL;

} term(myCtx);

} В завершение рассмотрим функции, непосредственно возвращающие значения. Они выглядят немного необычно, поскольку в PL/SQL используются функции без параметров, возвращающие значения, но соответствующие функции на языке С должны принимать ряд параметров. Другими словами, простейшей функции PL/SQL без параметров будет соответствовать С-функция с формальными параметрами. Эти формальные параметры будут использоваться внешней процедурой для передачи серверу Oracle следующих данных: • индикаторной переменной, показывающей, вернула ли функция значение NULL;

• текущей длины данных строкового типа или типа RAW. С этими параметрами мы уже встречались, просто странно, что они передаются функции. #ifdef WIN_NT _declspec (dllexport) #endif OCINumber * return_number (OCIExtProcContext * ctx, short * return_i) { double our_number = 123.456;

OCINumber * return_value;

myCtxStruct*myCtx;

*return_i = OCI_IND_NULL;

Глава if ((myCtx = init(ctx)) = NULL) return NULL;

debugf(myCtx, "Входим в функцию, возвращающую Number");

Здесь необходимо выделить память для возвращаемого числа. Нельзя использовать стековую переменную, поскольку при возврате значения она выходит из области действия. При выделении памяти с помощью функции malloc произойдет утечка памяти. Использовать статическую переменную тоже нельзя, поскольку из-за кэширования внешних процедур другой сеанс может изменить значение, на которое мы сослались, после его возврата (но до того, как сервер Oracle его скопирует). Единственно корректный способ — выделить память следующим образом: return_value = (OCINumber *)OCIExtProcAllocCallMemory(ctx, sizeof(OCINuntoer));

if(return_value == NULL) { raise_application_error(myCtx, ERROR_OCI_ERROR,"%s", "не хватает памяти");

} else { if (OCINumberFromReal(myCtx->errhp, &our_number, sizeof(our_number), return_value) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s", lastOciError (myCtx)) ;

} *return_i = OCI_IND_NOTNULL;

} term(myCtx) ;

return return_value;

} Возврат даты очень похож на возврат числа. Возникают те же проблемы с памятью. Выделяется память для возвращаемого значения типа DATE, в нее записывается значение, устанавливается значение индикаторной переменной и возвращается результат: #ifdef WIN_NT _declspec (dllexport) #endif OCIDate * return_date (OCIExtProcContext * ctx, short * return_i) { OCIDate * return_value;

myCtxStruct*myCtx;

if ((myCtx = init(ctx)) == NULL) return NULL;

debugf(myCtx, "Входим в функцию, возвращающую данные типа Date">;

return_value = (OCIDate *)OCIExtProcAllocCallMemory(ctx, sizeof(OCIDate));

if (return_value == NULL) Внешние процедуры на языке С raise_application_error(myCtx, ERROR_OCI_ERROR, "%s", "не хватает памяти");

} else { *return_i = OCI_IND_NULL;

if (OCIDateSysDate(myCtx->errhp, return_value) != OCI_SUCCESS) { raise_application_error(myCtx,ERROR_OCI_ERROR, "%s",lastOciError(myCtx));

} *return_i = OCI_IND_NOTNOLL;

} term(myCtx);

return return_value;

) При возврате строковых данных (VARCHAR) будут использоваться два параметра: индикаторная переменная и поле LENGTH. В этом случае, как и для параметра, переданного в режиме OUT, задается поле LENGTH, чтобы в вызывающей среде была известна длина возвращенной строки. Представленные выше соображения во многом применимы и при возврате строк: выделяется память, устанавливается индикаторная переменная, задается и возвращается значение: #ifdef WIN_NT _declspec (dllexport) #endif char * r e t u r n _ s t r i n g (OCIExtProcContext * ctx, short * return_i, int * return_l) { char * data_we_want_to_return - "Hello World!";

char * return_value;

myCtxStruct*myCtx;

if ((myCtx = init(ctx)) — NOLL) return NULL;

debugf(myCtx, "Входим в функцию, возвращающую строку " ) ;

return_value = (char *)OCIExtProcAllocCallMemory(ctx, strlen(data_we_want_to_return)+1);

if(return_value = NULL) { raise_application_error(myCtx, ERROR_OCI_ERROR, "%s", "не хватает памяти");

} else { *return_i = OCI_IND_NULL;

strcpy(return_value, data_we_want_to_return);

*return_l = strlen(return_value);

Глава 18 *return_i = OCI_IND_NOTNULL;

} term(myCtx);

return return_value;

} Мы рассмотрели код на языке С, необходимый для демонстрации способов передачи всех основных типов данных в режиме IN и IN/OUT, а также возврата данных соответствующих типов из функций. Было представлено также множество функций библиотеки OCI, использующихся во внешних процедурах, в частности функции для создания и получения контекста с целью поддержки информации о состоянии, функции для обработки файлов параметров, создания и записи файлов ОС. Не продемонстрировано следующее. • Передача и получение данных сложных объектных типов во внешних процедурах. Делается это примерно так же, как и в примерах с массивами (посколькутам передавались и принимались данные простых объектных типов). Для работы с входными и выходными данными объектных типов используются предоставляемые библиотекой OCI средства работы с компонентами объекта. • Возврат всех необходимых типов из функций. Я представил только возврат строк, дат и чисел. Возврат данных остальных типов выполняется аналогично (несколько проще для данных типа int, поскольку при этом не надо выделять память). Сейчас мы рассмотрим файлы управления проектом, make-файлы, которые можно использоватьдля создания внешних процедур в среде ОС UNIX или Windows.

Создание внешней процедуры Давайте сначала рассмотрим универсальный make-файл для Windows: CPU=i386 MSDEV = c:\msdev (1) (2) (3) (4) (5) (6) ORACLE_HOME = c:\oracle !include <$(MSDEV)\include\win32.mak> TGTDLL = extproc.dll OBJS = extproc.obj NTUSER32LIBS = $(MSDEV)\lib\user32.1ib \ $(MSDEV)\lib\msvcrt.lib \ $(MSDEV)\lib\oldnames.lib \ $(MSDEV)\lib\kernel32.1ib \ $(MSDEV)\lib\advapi32.lib SQLLIB = $(ORACLE_HOME)\precomp\lib\msvc\orasql8.1ib $(ORACLE_HOME)\oci\lib\msvc\oci.lib INCLS = -I$(MSDEV)\include \ -I$(ORACLE_HOME)\oci\include \ -I.

\ (7) (8) CFLAGS = $(INCLS) -DWIN32 -DWIN_NT -D_DLL (9) Внешние процедуры на языке С a l l : $(TGTDLL) clean: erase *.obj *. l i b *.exp $(TGTDLL): $(OBJS) $(link) -DLL $ ( d l l f l a g s ) \ /NODEFAULTLIB:LIBC.LIB -out:$(TGTDLL) \ $(0BJS) \ $(NTUSER32LIBS) \ $(SQLLIB) (10) (11) (12) Выделенные полужирным числа в круглых скобках не являются частью файла управления проектом, они указаны лишь для возможности ссылки на них в дальнейшем. 1. Это каталог, в котором у меня установлен компилятор языка С. Я использую компилятор Microsoft Visual C/C++, который поддерживается в среде Windows. Значение этой переменной я использую позже в make-файле, когда необходимо сослаться на этот каталог. 2. Мой каталог ORACLE_HOME. Он используется при поиске включаемых файлов для ОСI/Pro*С и стандартных библиотек Oracle. 3. Я включаю стандартный шаблон make-файла Microsoft. Он задает переменные $(link) и $(dllflags), которые могут быть разными для различных версий компилятора. 4. Переменная TGTDLL задает имя создаваемой DLL-библиотеки. 5. Переменная OBJS задает список объектных файлов, используемых при создании библиотеки. Если распределить код по нескольким файлам, в списке будет указано несколько объектных файлов. В нашем несложном примере используется только один объектный файл. 6. Переменная NTUSER32LIBS содержит список стандартных системных библиотек, с которыми выполняется компоновка. 7. Переменная SQLLIB содержит список необходимых библиотек Oracle. В данном примере я компоную библиотеки как Pro*С, так и OCI, хотя используются только библиотеки OCI. Но от включения библиотек Pro*С вреда не будет. 8. Переменная INCLS содержит список каталогов, в которых находятся необходимые включаемые файлы. В данном случае мне необходимы системные заголовочные файлы, а также заголовочные файлы сервера Oracle и текущий рабочий каталог. 9. Переменная CFLAGS — стандартный макрос языка С, используемый компилятором. Я определяю макрос -DWIN_NT, для условной компиляции кода, предназначенного для NT (например, _declspec(dllexport)). 10. Цель all: по умолчанию будет создавать DLL-библиотеку. 11. Цель clean: требует удалить временные файлы, созданные в ходе компиляции. 12. Цель TGTDLL требует выполнить команду, создающую DLL-библиотеку. Она скомпилирует и скомпонует весь необходимый код.

Глава Как разработчик я постоянно использую этот make-файл. Обычно я изменяю только строку (4) — имя библиотеки и строку (5) — список объектных файлов. Остальные компоненты make-файла изменять после первоначального конфигурирования не придется. Выполнив команду nmake, мы увидим примерно следующее: C:\Documents and Settings\Thomas Kyte\Desktop\extproc\demo_passing>nmake Microsoft (R) Program Maintenance Utility Version 1.60.5270 Copyright (c) Microsoft Corp 1988-1995. All rights reserved. cl -Ic:\msdev\include -Ic:\oracle\oci\include -I. -DWIN32 ->-DWIN_NT -D_DLL /c extproc.c Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 10.00.5270 for ->80x86 Copyright (C) Microsoft Corp 1984-1995. All rights reserved. extproc.с link -DLL /NODEFAULTLIB:LIBC.LIB -out:extproc.dll extproc.obj с:\msdev\lib\user32.lib с:\msdev\lib\msvcrt.lib с:\msdev\lib\oldnames.lib с:\msdev\lib\kernel32.lib с:\msdev\lib\adv api32.lib с:\oracle\precomp\lib\msvc\orasql8.lib с:\oracle\oci\lib\msvc\oci.lib Microsoft (R) 32-Bit Incremental Linker Version 3.00.5270 Copyright (C) Microsoft Corp 1992-1995. All rights reserved. Creating library extproc.lib and object extproc.exp Библиотека extproc.dll создана и готова для использования. Теперь давайте перенесем ее в среду ОС UNIX с помощью следующего файла управления проектом: MAKEFILE= $(ORACLE_HOME)/rdbms/demo/demo_rdbms.m]c INCLUDE= -I$(ORACLE_HOME)/rdbms/demo \ -I$(ORACLE_HOME)/rdbms/public \ -I$(ORACLE_HOME)/plsql/public \ -I$(ORACLE_HOME)/network/public TGTDLL= extproc.so OBJS = extproc.о all: $(TGTDLL) clean: rm *.o $(TGTDLL): $(OBJS) $(MAKE) -f $(MAKEFILE) extproc_callback \ SHARED_LIBNAME=$(TGTDLL) OBJS=$(OBJS) CC=cc CFLAGS= -g -I. $(INCLUDE) -Wall (1) (2) (3) (4) (5) (6) (7) (8) (9) И в этом случае выделенные полужирным шрифтом числа в круглых скобках не являются частью make-файла, а указаны лишь для возможности ссылок на них в дальнейшем.

Внешние процедуры на языке С 1. Имя/местонахождение стандартного make-файла Oracle. Я буду использовать этот файл для безошибочной компиляции и компоновки с необходимыми для данной платформы и версии Oracle библиотеками. Поскольку набор этих библиотек существенно отличается для каждого релиза, версии и платформы, я настоятельно рекомендую использовать этот make-файл. 2. Список каталогов для поиска включаемых файлов. Здесь я перечислил каталоги Oracle. 3. Имя создаваемой библиотеки. 4. Список файлов, образующих эту библиотеку. 5. Стандартная цель, которая будет создаваться. 6. Цель для удаления временных файлов, созданных в ходе сборки проекта. 7. Фактическая цель проекта. При ее построении для создания библиотеки внешних процедур используется стандартный make-файл, поставляемый корпорацией Oracle. Это снимает все проблемы с именами и местонахождением библиотек. 8. Имя компилятора языка С, который предполагается использовать. 9. Стандартный набор опций, которые необходимо передать компилятору языка С. С учетом того, как был написан код, перенос закончен. Осталось выполнить команду make и получить примерно такой результат:

$ make cc -g -I. -I/export/home/ora816/rdbms/demo -I/export/home/ora816/rdbms/ public -I/export/home/ora816/plsql/public -I/export/home/ora816/network/ public -Wall -c extproc.с -о extproc.о make -f /export/home/ora816/rdbms/demo/demo_rdbms.mk extproc_callback \ SHARED_LIBNAME=extproc.SO OBJS=extproc.o make[l]: Entering directory Varia-export/home/tkyte/src/demo_passing' ld -G -L/export/home/ora816/lib -R/export/home/ora816/lib -o extproc.so extproc.о -lclntsh `sed -e 's/-ljava//g' /export/home/ora816/lib/ ldflags` -lnsgr8 -lnzjs8 -ln8 -ln18 -lnro8 `sed -e 's/-ljava//g' / export/home/ora816/lib/ldflags` -lnsgr8 -lnzjs8 -ln8 -ln18 -lclient8 -lvsn8 -lwtc8 -lcommon8 -lgeneric8 -lwtc8 -lmm -lnls8 -lcore8 -lnls8 lcore8 -lnls8 `sed -e 's/-ljava//g' /export/home/ora816/lib/ldflags` -lnsgr8 -lnzjs8 -ln8 -ln18 -lnro8 `sed -e 's/-ljava//g' /export/home/ ora816/lib/ldflags` -lnsgr8 -lnzjs8 -ln8 -ln18 -lclient8 -lvsn8 lvtc8 -lcommon8 -lgeneric8 -ltrace8 -lnls8 -lcore8 -lnls8 -lcore8 lnls8 -lclient8 -lvsn8 -lwtc8 -lcommon8 -lgeneric8 -lnls8 -lcore8 lnls8 -lcore8 -lnls8 `cat /export/home/ora816/lib/sysliblist` `if [ -f /usr/lib/libsched.so ] ;

then echo -lsched ;

else true;

fi` -R/export/ home/ora816/lib -laio -lposix4 -lkstat -lm -lthread \ /export/home/ora816/lib/libpls8.a makef[1]: Leaving directory '/aria-export/home/tkyte/src/demo_passing' В результате, мы получили файл библиотеки extproc.so для ОС Solaris.

Глава Установка и запуск Теперь, при наличии спецификации вызова, объекта-библиотеки, соответствующих типов данных, спецификации и тела пакета demo_passing в файле extproc.sql, а также библиотеки extproc.dll (или extproc.so), все готово для установки нашего демонстрационного примера в базе данных. Для этого мы выполним команду @extproc.sql, а затем ряд анонимных блоков, чтобы проверить работу внешних процедур. Необходимо настроить оператор CREATE LIBRARY так, чтобы он указывал на созданную.dll- или.soбиблиотеку: c r e a t e or replace l i b r a r y demoPassing as 'С: \<местонахождение DLL-библиотеки>\extproc. d l l ' ;

но остальная часть должна компилироваться без изменений. Итак, после запуска сценария extproc.sql можно проверить работу внешних процедур следующим образом: SQL> declare 2 l_input number;

3 l_output number;

4 begin 5 dbms_output.put_line('Передаем Number');

б 7 dbms_output.put_line('Сначала проверяем передачу пустых -> значений');

8 demo_passing_pkg.pass(l_input, l_output);

9 dbms_output.put_line('l_input = '||l_input|| -> ' l_output = '||l_output);

10 11 l_input := 123;

12 dbms_output.put_line ('Теперь проверяем передачу непустых -> значений') ;

13 dbms_output.put_line('Предполагается, что в результате будет -> 123');

14 demo_passing_pkg.pass(l_input, l_output);

15 dbms_output.put_line('l_input = ' || l_input || ' l_output = -> '||l_output);

16 end;

17 / Передаем Number Сначала проверяем передачу пустых значений l_input - l_output Теперь проверяем передачу непустых значений Предполагается, что в результате будет -123 l_input - 123 l_output - -123 PL/SQL procedure successfully completed.

Тексты сообщений в тестовом примере переведены на русский язык. Если вы будете использовать соответствующие коды с сайта издательства Wrox (http://www.wrox.com), сообщения будут выдаваться на английском языке. Прим. научн. ред.

Внешние процедуры на языке С У меня есть простой анонимный блок для поочередной проверки каждой из созданных процедур и функций. Я не буду приводить здесь результат выполнения каждой команды. В код демонстрационного примера на сайте издательства включен сценарий test_all.sql, выполняющий каждую процедуру и функцию и выдающий результат, подобный представленному выше. После установки можно выполнить его, чтобы увидеть в работе каждую из внешних процедур. Теперь, если вы помните код на языке С, там был ряд вызовов debugf. Если после выполнения представленного выше PL/SQL-блока просмотреть файл ext_proc.log во временном каталоге, можно увидеть результаты вызовов debugf. Они будут иметь следующий вид: 000809 185056 G T ( M e x t p r o c. с, 1 7 6 ) Входим в функцию Pass Number 000809 185056 G T ( M e x t p r o c. с, 1 8 3 ) Получена среда Oci 000809 185056 G T ( M e x t p r o c. с, 1 7 6 ) Входим в функцию Pass Number 000809 185056 G T ( M e x t p r o c. с, 1 8 3 ) Получена среда Oci 000809 185056 G T ( M e x t p r o c. с, 2 0 9 ) Первый параметр: 123 000809 185056 G T ( M e x t p r o c. с, 2 3 0 ) Устанавливаем параметр OUT равным 123, а индикаторную переменную — равной NOTNULL Это показывает, что 9 августа 2000 года (000809) в 6:50:56 вечера (185056) по Гринвичу (GMT) из строки 176 исходного кода в файле extproc.c был выполнен вызов debugf с сообщением "Входим в функцию Pass Number". Далее записаны все остальные выполненные вызовы debugf. Как видите, при отладке очень удобно использовать трассировочный файл, запись информации в который можно включать и отключать при необходимости. Поскольку внешние процедуры выполняются на сервере, отладка их может оказаться очень сложным делом. Хотя возможность использовать обычный отладчик не исключена, на практике к ней прибегают очень редко.

Внешняя процедура для сброса большого объекта в файл (LOB_IO) В Oracle 8.0 появился ряд новых типов данных: • CLOB — Character Large Object (символьный большой объект);

• BLOB — Binary Large Object (двоичный большой объект);

• BFILE - Binary FILE (двоичный файл). Типы данных CLOB и BLOB позволяют сохранить в базе неструктурированные данные размером до 4 Гбайт. С помощью данных типа BFILE можно читать файлы ОС, находящиеся в файловой системе сервера. В составе сервера Oracle поставляется пакет DBMS_LOB, содержащий много утилит для работы с большими объектами. Он включает даже функцию loadfromfile для загрузки большого объекта из существующего файла ОС. Но в составе сервера Oracle, однако, не поставляется функция для записи большого объекта в файл ОС. Во многих случаях для данных типа CLOB можно использовать средства пакета UTL_FILE, но для данных типа BLOB это решение абсолютно не подходит. Сейчас мы займемся реализацией функции для записи в файл данных типа CLOB и BLOB в виде внешней процедуры на языке С, использующей средства прекомпилятора Рго*С.

Глава Спецификация пакета LOB_IO Снова начнем с оператора CREATE LIBRARY, затем определим спецификацию пакета, потом — тело пакета, задающее соответствующие подпрограммы для внешних Сфункции, и, наконец, реализуем эти функции на языке С с помощью прекомпилятора Pro*С. Создаем библиотеку в базе данных: tkyte@KYTE816> create or replace library lobToFile_lib 2 as 'C:\extproc\lobtofile\extproc.dll' 3/ Librarv created. Теперь переходим к спецификации создаваемого пакета. Она начинается с трех перегруженных функций для записи большого объекта в файл на сервере. Они вызываются одинаково и возвращают количество байтов, записанных на диск. После спецификаций перечислены исключительные ситуации, которые могут возбуждаться по ходу работы этих функций. tkyte@TKYTE816> create or replace package lob_io 2 as 3 4 function write(p_path in varchar2, 5 p_filename in varchar2, p_lob in blob) 6 return binary_integer;

7 8 function write(p_path in varchar2, 9 p_filename in varchar2, p_lob in clob) 10 return binary_integer;

11 12 function write(p_path in varchar2, 13 p_filename in varchar2, p_lob in bfile) 14 return binary_integer;

15 16 IO_ERROR exception;

17 pragma exception_init(IO_ERROR, -20001);

18 19 CONNECT_ERROR exception;

20 pragma exception_init(CONNECT_ERROR, -20002);

21 22 INVALID_LOB exception;

23 pragma exception_init(INVALID_LOB, -20003);

24 25 INVALID_FILENAME exception;

26 pragma exception_init(INVALID_FILENAME, -20004);

27 28 OPEN_FILE_ERROR exception;

29 pragma exception_init(OPEN_FILE_ERROR, -20005);

30 31 LOB_READ_ERROR exception;

32 pragma exception_init(LOB_READ_ERROR, -20006);

Внешние процедуры на языке С 34 end;

35 / Package created. Здесь мы каждому коду ошибки (эти коды ошибки определены с помощью директив #define ERROR_ в начале файла с исходным текстом внешних процедур) сопоставляем имя исключительной ситуации PL/SQL. Это удобное дополнение, позволяющее пользователю пакета перехватывать исключительные ситуации с определенными именами следующим образом: exception when lob_io.IO_ERR0R then ••• ••• when lob_io.CONNECT_ERR0R t h e n или при желании получать вместо исключительных ситуаций коды ошибок и тексты сообщений об ошибках:

exception when others then if (sqlcode = -20001 ) then — (это была ошибка ввода/вывода)... elsif( sqlcode = -20002 ) then — (это была ошибка подключения).. и так далее.

Даже не просматривая соответствующий код на языке С, легко понять, какие ошибки могут возникнуть во внешней процедуре Теперь переходим к телу пакета. В нем каждой из представленных выше спецификаций PL/SQL-функций сопоставляется С-функция из библиотеки lobToFile: tkyte@TKYTE816> create or replace package body lob_io 2 as 3 4 function write(p_path in varchar2, p_filename in varchar2, p_lob in -> blob) 5 return binary_integer 6 as 7 language С name "lobToFile" library lobtofile_lib 8 with context parameters (CONTEXT, 9 p_path STRING, p_path INDICATOR short, 10 p_filename STRING, p_filename INDICATOR short, 11 p_lob OCILOBLOCATOR, p_lob INDICATOR short, 12 RETURN INDICATOR short);

13 14 15 function write(p_path in varchar2, p_filename in varchar2, p_lob in -> clob) 16 return binary_integer 17 as 18 language С name "lobToFile" library lobtofile_lib 19 with context parameters (CONTEXT, 20 p_path STRING, p_path INDICATOR short, Глава 21 p_filename STRING, p_filename INDICATOR short, 22 p_lob OCILOBLOCATOR, p_lob INDICATOR short, 23 RETURN INDICATOR short);

24 25 26 function write(p_path in varchar2, p_filename in varchar2, p_lob in-> bfile) 27 return binary_integer 28 as 29 language С name "lobToFile" library lobtofile_lib 30 with context parameters (CONTEXT, 31 p_path STRING, p_path INDICATOR short, 32 p_filename STRING, p_filename INDICATOR short, 33 p_lob OCILOBLOCATOR, p_lob INDICATOR short, 34 RETURN INDICATOR short);

35 36 end lob_io;

37 / Package body created. Интересно отметить, что все три функции сопоставляются одной и той же внешней С-функции. Я не писал отдельные функции для данных типа CLOB, BLOB и BFILE. Поскольку любой большой объект передается как данные типа OCILOBLOCATOR, все их можно обрабатывать одной и той же функцией. Как обычно, я передаю индикаторную переменную для каждого формального параметра и для возвращаемого значения. Хотя это и не обязательно, но очень рекомендуется.

Код Pro*С для пакета LOB_IO Теперь рассмотрим код для прекомпилятора Pro*С, реализующий библиотеку Iobtoflle_lib. Я не буду комментировать универсальный код, рассмотренный в первом примере, чтобы сократить текст (функции debugf, raise_application_error, ociLastError, term и init — такие же, за исключением того, что в функции init в приложениях на Pro'С используется конструкция EXEC SQL REGISTER CONNECT), и перейду сразу к к д оу специфическому. Следует отметить, что представленный далее код должен идти после представленного ранее "шаблонного" кода, и что в шаблоне необходимо убрать комментарии с разделов, связанных с подключением в Рго*С. Начнем с определения всех ошибок, о которых будет выдаваться сообщение. Этот набор кодов ошибок должен в точности соответствовать кодам ошибок для исключительных ситуаций, заданных в спецификации PL/SQL-пакета. Гарантировать это соответствие невозможно;

это всего лишь договоренность, которой я привык следовать, но следовать ей, определенно, стоит. #define ERROR_FWRITE #define ERROR_REGISTER_CONNECT #define ERROR_BLOB_IS_NULL #define ERROR_FILENAME_IS_NULL #define ERROR_OPEN_FILE #define ERROR_LOB_READ 20001 20002 20003 20004 20005 Внешние процедуры на языке С Дальше идет внутренняя функция, непосредственно из PL/SQL недоступная, которая будет использоваться основной функцией lobToFile для записи данных в файл. Она также подсчитывает количество байтов, записанных в файл: static int writeToFile(myCtxStruct * OCIFileObject * char * int int * { ub4 bytesWritten;

myCtx, output, buff, bytes, totalWritten) debugf(myCtx, "Записываем %d байтов в файл", bytes);

if (OCIFileWrite(myCtx->envhp, myCtx->errhp, output, buff, bytes, &bytesWritten) != OCI_SUCCESS) * { return raise_application_error (myCtx, ERROR_FWRITE, "Error writing to file '%s'", lastOciError(myCtx));

} if (bytesWritten != bytes) { return raise_application_error (myCtx, ERROR_FWRITE, "Ошибка записи в файл %d байт, записано только %d байт", bytes, bytesWritten);

} *totalWritten += bytesWritten;

return 0;

} Первый параметр этой функции — контекст сеанса. Этот контекст должен передаваться всем вызываемым функциям, чтобы можно было использовать такие утилиты, как raise_application_error. Следующий параметр — выходной файл, в который будут записываться данные. Для выполнения ввода/вывода используются переносимые функции OCIFile. Предполагается, что перед вызовом функции writeToFile соответствующий файл уже открыт. Далее идут указатели на записываемый буфер и количество байтов в буфере. Последней передается переменная-счетчик, в которой хранится общее количество записанных байтов. Теперь переходим к основной (и последней) функции. Эта функция выполняет все необходимые действия;

она принимает локатор большого объекта (независимо от типа объекта — BLOB, CLOB или BFILE) и записывает его содержимое в указанный файл: #ifdef WN N I_T _declspec (dllexport) #endif int lobToFile(OCIExtProcContext * ctx, char * path, Глава short char * short OCIBlobLocator short short * { * path_i, filename, filename_i, blob, blob_i, return_indicator) Следующая часть кода задает структуру, в которую мы будем выбирать данные. Она содержит начальное поле размера, в байтах, а затем — пространство для данных размером 64 Кбайт. Мы будем выбирать данные из большого объекта порциями по 64 Кбайт и записывать их на диск. Затем определяются необходимые локальные переменные: typedef struct long_varraw { ub4 len;

text buf[65536];

} long_varraw;

EXEC SQL TYPE long_varraw IS LONG VARRAW(65536);

/* в эту структуру мы будем выбирать данные */ /* здесь будет храниться количество выбранных */ /* байтов */ ub4 buffsize = sizeof(data.buf);

/* это количество байтов */ /* мы запрашиваем */ int offset = 1;

/* с какой позиции большого объекта мы */ /* читаем данные */ OCIFileObject* output = NULL;

/* файл, в который выполняется запись */ int bytesWritten = 0;

/* сколько байтов всего ЗАПИСАНО */ myCtxStruct * myCtx;

*return_indicator = OCI_IND_NULL;

if ((myCtx=init(ctx)) = NULL) return 0;

Начнем с проверки индикаторов пустых значений. Если установлена любая из индикаторных переменных, необходимо вернуть сообщение об ошибке. Это показывает, почему важно всегда передавать индикаторные переменные во внешние процедуры на языке С. Никогда нельзя быть уверенным, что пользователь случайно не передал пустое значение. Попытка без предварительной проверки обратиться к файлу с указанным именем или к большому объекту, которые окажутся пустыми, может закончиться катастрофически (внешняя процедура закончится неудачно), поскольку параметры окажутся не проинициализированными. if (blob_i == OCI_IND_NULL) { raise_application_error (myCtx, ERRQR_BLOB_IS_NULL, "Функции lobToFile передан пустой большой объект;

->недопустимый аргумент");

) else if (filename_i == OCI_IND_NULL || path_i = OCI_IND_NULL) long_varraw ub4 data;

amt;

Внешние процедуры на языке С { raise_application_error (myCtx, ERROR_FILENAME_IS_NULL, "Функции lobToFile передано пустое имя файла или каталога;

->недопустимый аргумент") ;

} Теперь откроем файл. Мы открываем его на запись в двоичном режиме. Мы хотим просто сбросить байты из базы данных в файл. else if (OCIFileOpen(myCtx->envhp, myCtx->errhp, &output, filename, path, OCI_FILE_WRITE_ONLY, OCI_FILE_CREATE, OCI_FILE_BIN) != OCI_SUCCESS) { raise_application_error(myCtx, ERROR_OPEN_FILE, "Ошибка открытия файла '%s'", lastOciError(myCtx));

} else { debugf(myCtx, "lobToFile(filename => '%s%s', lob => % X ) ", path, filename, blob);

Теперь мы будем читать большой объект с помощью средств Рго*С методом без опроса (non-polling). Это важно, поскольку "опрашивать" большой объект во внешней процедуре нельзя. Таким образом, мы никогда не запросим больше данных, чем можем получить в одном вызове (non-polling). Мы начинаем со смещения 1 (с первого байта) и будем читать по BUFSIZE байтов за раз (64 Кбайт в данном случае). Каждый раз увеличивая смещение на прочитанное количество байтов, мы выйдем из цикла только когда считано будет столько байтов, сколько запрошено — это будет означать, что прочитан весь большой объект. for( offset = 1, amt = buffsize;

amt = buffsize;

offset += amt ) { debugf(myCtx, "Попытка прочитать %d байт из большого объекта ", amt);

EXEC SQL LOB READ :amt FROM :blob AT :offset INTO :data WITH LENGTH :buffsize;

Проверяйте все возможные ошибки — при их возникновении выдавайте собственные сообщения об ошибках в стек ошибок среды PL/SQL. Обратите внимание, как мы освобождаем все использованные ресурсы (открытый файл) перед завершением работы. Это важно. По возможности, надо предотвращать Глава утечку ресурсов. Для этого мы возвращаем управление только в одном месте (ниже) и перед этим вызываем функцию term: if (sqlca.sqlcode < 0) break;

if (writeToFile(myCtx, output, data.buf, amt, &bytesWritte break;

> } Осталось закрыть файл и вернуть управление: if (output != NULL) { debugf(myCtx, "Закончили запись и закрываем файл");

OCIFileClose(myCtx->envhp, myCtx->errhp, output);

} *return_indicator = OCI_IND_NOTNULL;

debugf(myCtx, "Возвращаем значение %d как количество прочитанных байтов", bytesWritten);

term(myCtx);

return bytesWritten;

} Создание внешней процедуры Процесс создания библиотеки lobtofile почти совпадает с рассмотренным ранее для библиотеки demo_passing. Универсальный файл управления проектом (make-файл) использовался как в среде Windows, так и в ОС UNIX с минимальными изменениями. В Windows мы используем: CPU=i386 MSDEV = c:\msdev ORACLE_H0ME = c:\oracle !include <$(MSDEV)\include\win32.mak> TGTDLL = extproc.dll OBJS = lobtofile.obj NTUSER32LIBS = $(MSDEV)\lib\user32.lib \ $ (MSDEV)\lib\msvcrt.lib \ $(MSDEV)\lib\oldnames.lib \ $(MSDEV)\lib\kernel32.lib \ $(MSDEV)\lib\advapi32.lib SQLLIB INCLS = $(0RACLE_H0ME)\precomp\lib\msvc\orasql8.1ib \ $(ORACLE_HOME)\oci\lib\msvc\oci.lib = -I$(MSDEV)\include \ -I$(ORACLE_HOME)\oci\include \ -I.

Внешние процедуры на языке С CFIAGS = $(INCLS) -DWIN32 -DWIN_NT -D_DLL all: $(TGTDLL) clean: erase *.obj *.lib *.exp lobtofile.c $(TGTDLL): $(OBJS) $(link) -DLL $(dllflags) \ /NODEFAULTLIB:LIBC.LIB -out:$(TGTDLL) \ $(OBJS) \ $(NTUSER32LIBS) \ ${SQLLIB) \ lobtofile.c: lobtofile.pc proc \ lnclude=$(ORACLE_HOME)\network\public \ include=$(ORACXE_HCME)\proc\lib \ include=$(ORACLE_HCME)\rdbnis\deroo \ lnclude=$(ORACLE_HCME)\oci\lnclude \ include=$(MSDEV) \include \ lines=yes \ parse=full \ iname=lobtofile.pc Изменения выделены полужирным шрифтом. Было изменено имя компонуемого объектного файла и добавлено правило для автоматического преобразования lobtofile.pc в lobtofile.c. Вызванному прекомпилятору Рго*С мы сообщаем, где находятся заголовочные файлы (INCLUDE=), что номера строк следует сохранить в полученном.с-файле (lines=yes), что требуется проанализировать код на языке С (parse=full) и что имя преобразуемого файла — lobtofile.pc (iname=). Теперь осталось выполнить команду nmake, и DLL-библиотека будет создана. В ОС UNIX make-файл имеет следующий вид: MAKEFILE= $(ORACLE_HOME)/rdbms/demo/demo_rdbms.mk INCLUDE= -I$(ORACLE_HOME)/rdbms/demo \ -I$(ORACLE_HOME)/rdbms/public \ -I$(ORACLE_HOME)/plsql/public \ -I$(ORACLE_HOME)/network/public TGTDLL= extproc.so OBJS = lobtofile.o all: $(TGTDLL) clean: rm *.o lobtofile.c: lobtofile.pc proc \ include=$(ORACLE_HOME)/network/public \ include=$(ORACLE_HOME)/proc/lib \ include=$(ORACLE_HOME)/rdbms/deino \ include=$(ORACLE_HOME)/rdbms/public \ Глава lines=yes \ lname=lobtofile.pc extproc.so: lobtofile.c lobtofile.o $(MAKE) -f $(MAKEFILE) extproc_callback \ SHARED_LIBNAME=extproc.so OBJS="lobtofile.o" CC=cc CFIAGS= -g -I. $(INCLUDE) Для ОС UNIX мы сделали такие же изменения, как и в среде Windows. Мы просто добавили команду для вызова прекомпилятора Pro*С и изменили имя компонуемого объектного файла. Набираем команду make и получаем соответствующий.so-файл. Теперь все готово для его проверки и использования.

Установка и использование пакета LOB_IO Осталось только выполнить операторы CREATE LIBRARY, CREATE PACKAGE и CREATE PACKAGE BODY. При этом пакет LOB_IO будет установлен в базе данных. Для его тестирования мы используем пару анонимных PL/SQL-блоков. Первый блок будет проверять средства выявления и обработки ошибок. Вызовем внешнюю процедуру и намеренно передадим ей некорректные входные данные, неверные имена каталогов и т.п. Вот этот блок с комментариями, описывающими, что мы должны получить на каждом шаге: SQL> REM для NT SQL> REM задайте PATH=c:\tesap\ SQL> REM задайте CMD=fc /b SQL> REM для UNIX SQL> задайте PATH=/tmp/ SQL> задайте CMD="diff -s" SQL> drop table demo;

Table dropped. SQL> create table demo(theBlob blob, theClob clob);

Table created. SQL> /* DOC>* В следующем блоке проверятся вое условия возникновения выявленных DOC> * нами ошибок. Не проверяется ошибки IO_ERROR (для этого надо, чтобы DOC> * на диске не осталось свободного места или запись была невозможна DOC> * по другой подобной причине) и C N E T E R R (это не должно O NC_RO DOC> * случиться *никогда*) DOC> */ SQL> SQL> declare 2 l_blob blob;

3 l_bytes number;

4 begin 5 6 /* 7 * Пытаемся передать большой объект NULL Внешние процедуры на языке С 18 * Теперь попытаемся передать реальный большой объект и имя -> файла MOLL 8 •/ 9 begin 10 l_bytes := lob_io.write('&PATH', ' t e s t. d a t ', l_blob);

11 exception 12 when lob_io.INVALID_LOB then 13 dbms_output.put_line('недопустимей аргумент перехвачен, -> как и ожидалось');

14 dbms_output.put_line(rpad('-',70,'-'));

15 end;

16 17 /• 19 */ 20 begin 21 insert into demo (theBlob) values(empty_blob()) 22 returning theBlob into l_blob;

23 24 l_bytes := lob_io.write(NULL, NULL, l_blob);

25 exception 26 when lob_io.INVALID_FILENAME then 27 dbms_output.put_line('недопустимый аргумент снова перехвачен, как и ожидалось');

28 dbms_output.put_line(rpad('-',70,'-'));

29 end;

30 31 /* 32 * Теперь попытаемся передать существующий большой объект, во -> несуществующий каталог 33 */ 34 begin 35 l_bytes := l o b _ i o. w r i t e ( ' / n o n e x i s t e n t / d i r e c t o r y ', ' x. d a t ', -> l_blob);

36 exception 37 when lob_io.OPEN_FILE_ERROR then 38 dbms_output.put_line('перехватили ошибку открытия файла, -> как и ожидалось');

39 dbms_output.put_line(sqlerrm);

40 dbms_output.put_line(rpad('-',70,'-'));

41 end;

42 43 /* 44 * Теперь запишем объект, чтобы проверить работу функции 45 */ 46 l_bytes := lob_io.write('&PATH', ' l. d a t ', l_blob);

47 dbms_output.put_line('Успешно записали ' || l_bytes || -> 'байтов');

48 dbms_output.put_line(rpad('-',70, ' - ' ) ) ;

49 50 rollback;

Глава 52 /* 53 * Теперь у нас есть непустой большой объект, НО мы ВЫПОЛНИЛИ 54 * откат, так что локатор большого объекта стал недействительны. 55 * Давайте посмотрии, что выдаст внешняя процедура в данной -> случае... 56 V 57 begin 58 l_bytes := lob_io.write('&PATH', '1.dat', l_blob);

59 exception 60 when lob_io.LOB_READ_ERROR then 61 dbms_output.put_line('перехватили ошибку чтения большого -> объекта, как и ожидалось');

62 dbms_output.put_line(sqlerrm) ;

63 dbms_output.put_line(rpad('-',70,'-'));

64 end;

65 end;

66 / old 10: l_bytes := lob_io.write(&'PATH', 'test.dat', l_blob);

new 10: l_bytes := lob_io.write('/tmp/', 'test.dat', l_blob);

old 46: l_bytes := lob_io.write('&PATH', 'l.dat', l_blob);

new 46: l_bytes := lob_io.write('/tmp/', 'l.dat', l_blob);

old 58: l_bytes := lob_io.write('&PATH', 'l.dat', l_blob);

new 58: l_bytes := lob_io.write('/tmp/', 'l.dat', l_blob);

недопустимый аргумент перехвачен, как и ожидалось недопустимый аргумент снова перехвачен, как и ожидалось перехватили ошибку открытия файла, как и ожидалось ORA-20005: Error opening file 'ORA-30152: File does not exist' Успешно записали 0 байт PL/SQL procedure successfully completed. Как видите, все произошло именно так, как и ожидалось. Мы намеренно сделали несколько ошибок и получили соответствующие сообщения. Теперь используем пакет по прямому назначению. Для этого теста я создал объект-каталог в базе данных, соответствующий моему временному каталогу (/tmp в ОС UNIX, C:\temp\ в Windows). Объект-каталог используется при работе с данными типа BFILE, позволяя читать файлы в указанном каталоге. В файловую систему ОС (/tmp или C:\temp\) я помещу тестовый файл something.big. Это достаточно большой файл для проверки внешней процедуры. Его содержимое не имеет значения. Мы загрузим этот файл в столбец типа CLOB, затем — в столбец типа BLOB и, наконец, во временный большой объект. Затем запишем каждый из этих больших объектов в отдельный файл с помощью созданной внешней процедуры. В завершение с помощью утилит ОС (diff в UNIX и FC в Windows) сравним сгенерированные файлы с исходным: SQL> create or replace directory my_files as '&PATH.';

old 1: create or replace directory my_files as '&PATH.' new 1: create or replace directory my_files as '/tmp/' Внешние процедуры на языке С Directory created. SQL> SQL> declare 2 l_blob blob;

3 l_clob clob;

4 l_bfile bfile;

5 begin 6 insert into demo 7 values (empty_blob(), empty_clob()) 8 returning theBlob, theClob into l_blob, l_clob;

9 10 l_bfile := bfilename ('MY_FILES', 'something.big');

11 12 dbms_lob.fileopen(l_bfile);

13 14 dbms_lob.loadfromfile(l_blob, l_bfile, 15 dbms_lob.getlength(l_bfile));

16 17 dbms_lob.loadfromfile(l_clob, l_bfile, 18 dbms_lob.getlength(l_bfile));

19 20 dbms_lob.fileclose(l_bfile);

21 commit;

22 end;

23 / PL/SQL procedure successfully completed. Итак, мы загрузили файл something.big в базу данных (сначала — как данные типа BLOB, затем — как данные типа CLOB). Теперь снова запишем содержимое этих больших объектов во внешние файлы: SQL> declare 2 l_bytes number;

3 l_bfile bfile;

4 begin 5 for x in (select theBlob from demo) 6 loop.7 l_bytes := lob_io.write('&PATH','blob.dat', x.theBlob);

8 dbms_output.put_line('Записали ' || l_bytes || ' байтов -> данных типа blob');

9 end loop;

10 11 for x in (select theClob from demo) 12 loop 13 l_bytes := lob_io.write('&PATH','clob.dat', x. t h e c l o b ) ;

14 dbms_output.put_line('Записали ' || l_bytes | | ' байтов -> данных типа c l o b ' ) ;

15 end loop;

16 17 l_bfile := bfilename('MY_FILES', 'something.big');

18 dbms_lob.fileopen(l_bfile);

19 1 bytes := lob io.write('&PATH','bfile.dat', l_bfile);

Глава 20 dbms_output.put_line('Записали ' || l_bytes || ' байтов данных -> типа bfile');

21 dbms_lob.fileclose(l_bfile);

22 end;

23 / old 7: l_bytes := lob_io.write('&PATH','blob.dat', x.theBlob);

new 7: l_bytes := lob_io.write('/tmp/', 'blob.dat', x.theBlob);

old 13: l_bytes := lob_io.write('&PATH', 'clob.dat', x.theClob);

new 13: l_bytes := lob_io.write('/tmp/', 'clob.dat', x.theClob);

old 19: l_bytes := lob_io.write('SPATH','bfile.dat', l_bfile);

new 19: l_bytes := lob_io.write('/tmp/','bfile.dat', l_bfile);

Записали 1107317 байт данных типа blob Записали 1107317 байт данных типа clob Записали 1107317 байт данных типа bfile PL/SQL procedure successfully completed. Это показывает, что мы успешно вызвали внешнюю процедуру и трижды записали файл. Каждый раз размер файла был одним и тем же (как и ожидалось). Теперь создадим временный большой объект, скопируем в него файл и запишем объект в другой файл, чтобы убедиться, что можно работать и с временными большими объектами: SQL> declare 2 l_tmpblob blob;

3 l_blob blob;

4 l_bytes number;

5 begin 6 select theBlob into l_blob from demo;

7 8 dbms_lob.createtemporary(l_tmpblob,TRUE);

9 10 dbms_lob.copy(l_tmpblob,l_blob,dbms_lob.getlength(l_blob),1,1) ;

11 12 l _ b y t e s := l o b _ i o. w r i t e ( ' & P A T H ', ' t e m p b l o b. d a t ', l _ t m p b l o b ) ;

13 d b m s _ o u t p u t. p u t _ l i n e ( ' З а п и с а л и ' || l _ b y t e s || ' байтов временного -> большого о б ъ е к т а ' ) ;

14 15 DBMS_LOB.FREETEMPORARY(l_tmpblob);

16 END;

17 / old 12: l_bytes := lob_io.write('&PATH','tempblob.dat', l_tmpblob);

new 12: l_bytes := lob_io.write('/tmp/','tempblob.dat', l_tmpblob);

Записали 1107317 байтов временного большого объекта PL/SQL procedure successfully completed. Таким образом, запись прошла успешно и, к счастью, записано точно такое же количество байтов. Последний шаг — проверить с помощью утилит ОС, что записанные файлы идентичны загруженному файлу: SQL> host &CMD SPATH.something.big &PATH.blob.dat Files /tmp/something.big and /tmp/blob.dat are identical SQL> host &CMD &PATH.something.big &PATH.clob.dat Files /tmp/something.big and /tmp/clob.dat are identical Внешние процедуры на языке С SQL> host &CMD &PATH.something.big &PATH.bfile.dat Files /tmp/something.big and /tmp/bfile.dat are identical SQL> host &CMD &PATH.something.big &PATH.tempblob.dat Files /tmp/something.big and /tmp/tempblob.dat are identical Мы проверили работу нового пакета LOB_IO.

Возможные ошибки Ниже представлен список типичных ошибок, которые могут возникнуть при использовании внешних процедур. Некоторые из них мы уже обсуждали, например ошибку, возникающую при неправильном конфигурировании процесса прослушивания или файла TNSNAMES.ORA. Но многие ошибки еше не рассмотрены. Мы займемся ими сейчас: я расскажу, когда они могут возникать и что сделать, чтобы их исправить. Все эти сообщения об ошибках описаны также в руководстве Oracle 8i Error Messages Manual.* 0RA-28575 "невозможно открыть соединение RPC с агентом внешней процедуры" 28575, 00000, "unable to open RPC connection to external procedure agent" // * Причина: инициализация подключения по сети к агенту внешних // процедур не прошла успешно. Это может быть связано с // проблемами сети, неправильной конфигурацией процесса // прослушивания или некорректным кодом переноса. // * Действие: проверить конфигурацию процесса прослушивания в файлах // LISTENER.ORA и TNSNAMES.ORA или проверить сервер Oracle // Names. Эта ошибка почти всегда свидетельствует об ошибках конфигурации в файлах TNSNAMES.ORA или LISTENER.ORA. Возможные причины ее возникновения уже рассматривались ранее, в разделе "Конфигурирование сервера".

ORA-28576 "потеряно соединение RPC с агентом внешней процедуры" 28576, 00000, "lost RPC connection to external procedure agent" // * Причина: произошла фатальная ошибка сетевого соединения, в агенте // внешних процедур или в вызванной внешней процедуре после // успешной организации взаимодействия. // * Действие: сначала проверьте вызываемый код внешней процедуры, // поскольку наиболее вероятной причиной получения этого // сообщения об ошибке является аварийное завершение // вызванной С-функции. Если — нет, проверьте сеть. Устраните // проблему, если она обнаружена. Если все компоненты // функционируют нормально, но проблема остается, она может // быть связана с внутренней логической ошибкой в коде // передачи RPC (вызова удаленной процедуры). Свяжитесь с // представителем службы поддержки. * Текст сообщения об ошибке сначала приведен так, как он выдается СУБД Oracle версии 8.0.5.0.0 при установке русского языка для сообщений. В примерах и описаниях оставлены сообщения на английском языке. - Прим. научн. ред.

Глава Это сообщение об ошибке при обращении к внешней процедуре почти наверняка связано с ошибкой в разработанном вами коде. Эта ошибка возникает, когда "исчезает" внешний процесс. Это происходит в случае "слета" программы. Например, я добавил строку: char * return_string (OCIExtProcContext * ctx, short * return_i, int * return_l) { *return_i = OCI_IND_NOTNULL;

*(char*)NDLL = 1;

return return_value;

} в конце текста функции return_string. После перекомпиляции обнаружилось следующее: ops$tkyte@ORA816.US.ORACLE.COM> exec dbms_output.put_line( demo_passing_pkg.return_string) BEGIN dbms_output.put_line(demo_passing_pkg.return_string);

END;

* ERROR at line 1: ORA-28576: lost RPC connection to external procedure agent Это сообщение об ошибке будет выдаваться до тех пор, пока вы не устраните ошибку в исходном коде.

ORA-28577 "аргумент %s внешней процедуры %s имеет неподдерживаемый тип данных %s" 28577, 00000, "argument %s of external procedure %s has unsupported ->datatype %s" // * Причина: при передаче аргументов внешней процедуры агенту обнаружен // тип данных, не поддерживаемый системой. // * Действие: найдите в документации список поддерживаемых типов данных // аргументов внешних процедур. Эта ошибка возникает при попытке передать из PL/SQL во внешнюю процедуру тип данных, не поддерживаемый данным интерфейсом. В частности, это относится к PL/SQL-таблицам. Если в примере demo_passing объявить тип numArray в спецификации пакета: type numArray is table of number index by binary_integer;

procedure pass(p_in in numArray, p_out out numArray);

а не как тип вложенной таблицы SQL, во время выполнения произойдет следующее: 1 2 3 4 5 declare l_input demo_passing_pkg.numArray;

l_output demo_passing_pkg.numArray;

begin demo_passing_pkg.pass(l_input, l_output);

Внешние процедуры на языке С 6* end;

SQL> / declare E R R at l i n e 1: RO ORA-28577: argument 2 of external procedure pass_numArray has unsupported datatype ORA-06512: at "OPS$TKYTE.DEM0_PASSING_PKG", line 0 ORA-06512: at line 5 Причина в том, что передача PL/SQL-таблиц не поддерживается (можно передавать наборы, тип которых создан в базе данных, но не PL/SQL-таблицы).

ORA-28578 "ошибка протокола во время вызова внешней процедуры" 28578, 00000, "protocol error during callback from an external procedure" // * Причина: произошла внутренняя ошибка протокола при попытке // выполнить обращение (callback) к серверу Oracle из // созданной пользователем внешней процедуры. // * Действие: свяжитесь со службой поддержки Oracle. К счастью, я никогда не получал ни этого, ни приведенного ниже сообщения об ошибке. Оно свидетельствует о внутренней ошибке сервера Oracle. Единственное, что можно сделать, получив это сообщение об ошибке, — попытаться воспроизвести его с помощью небольшого тестового кода и сообщить о проблеме службе поддержки Oracle.

ORA-28579 "сетевая ошибка во время вызова от агента внешней процедуры" ORA-28579 "network error during callback from external procedure agent" // * Причина: произошла внутренняя ошибка сети при попытке выполнить // обращение (callback) к серверу Oracle из созданной // пользователем внешней процедуры. // * Действие: свяжитесь со службой поддержки Oracle.

ORA-28580 "рекурсивные внешние процедуры не поддерживаются" ORA-28580 "recursive external procedures are not supported" // * Причина: обращение из внешней процедуры привело к вызову другой // внешней процедуры. // * Действие: проверьте, не вызывает ли выполняемый при обращении к // серверу SQL-код (непосредственно или косвенно, например // при срабатывании триггера) другую внешнюю процедуру, PL/ // SQL-процедуру, вызывающую внешние процедуры и т.д. Эта ошибка возникает при обращении из внешней процедуры к серверу, когда вызванная процедура обращается к другой внешней процедуре. Другими словами, внешняя процедура не может прямо или косвенно вызывать другую внешнюю процедуру. Это можно продемонстрировать, изменив.рс-файл для нашего пакета LOB_IO. Я добавил в этот файл следующее: {int x;

exec sql execute begin Глава :x := demo_passing_pkg.return_number;

end;

end-exec;

if (sqlca.sqlcode < 0) { return raise_application_error (ctx, 20000, "Error:\n%.70s", sqlca.sqlerrm.sqlerrmc);

} } сразу после вызова REGISTER CONNECT. Теперь при попытке выполнения основной функции пакета lob_io мы получим: ops$tkyte@DEV8I.WORLD> declare x clob;

у number;

begin у := lob_io.write('x', x ) ;

end;

2/ declare x clob;

у number;

begin у := lob_io.write('x', x ) ;

end;

* ERROR at line 1: ORA-20000: Error: ORA-28580: recursive external procedures are not supported ORA-06512: ORA-06512: at "OPS$TKYTE.LOB_IO", line 0 ORA-06512: at line 1 Единственное решение — никогда не вызывать из внешней процедуры другую внешнюю процедуру.

ORA-28582 "прямое соединение с этим агентом не разрешено" $ oerr ora 28582 28582, 00000, "a direct connection to this agent is not allowed" // * Причина: пользователь или инструментальное средство пытается // непосредственно подключиться к агенту внешних процедур или // к агенту гетерогенных служб (Heterogeneous Services), // например: // "SVRMGR> CONNECT SCOTT/TIGER@NETWORK_ALIAS". // Такие подключения не разрешены. //* Действие: при выполнении оператора CONNECT проверьте, не ссылается // ли связь базы данных или псевдоним на агента гетерогенных // служб или агента внешних процедур. Это сообщение может быть выдано только после попытки подключиться к базе данных, если случайно указано имя службы, сконфигурированной для подключения к службе внешних процедур.

ORA-06520 "PL/SQL: ошибка загрузки внешней библиотеки" $ oerr ora 6520 06520, 00000, "PL/SQL: Error loading external library" // * Причина: выявлена ошибка, связанная с попыткой динамической // загрузки внешней библиотеки в PL/SQL.

Внешние процедуры на языке С // * Действие: другие сообщения об ошибках (если они есть) подскажут // причину выдачи этого сообщения. После этого сообщения об ошибке должно быть выдано специфическое сообщение об ошибке ОС. Чтобы продемонстрировать эту ошибку, я сделал следующее: $ cp lobtofile.pc extproc.so То есть скопировал исходный код поверх.so-файла, что, определенно, должно вызвать проблемы. Теперь при попытке вызвать внешнюю процедуру я получаю: d e c l a r e х c l o b ;

у number;

b e g i n у := l o b _ i o. w r i t e ( ' x ', х ) ;

e n d ;

ERROR at l i n e 1: ORA-06520: PL/SQL: Error loading external library ORA-06522: ld.so.l: extprocPLSExtProc: fatal: /export/home/tkyte/src/ lobtofile/extproc.so: unknown file type ORA-06512: at "OPS$TKYTE.LOB_IO", line 0 ORA-06512: at line 1 Итак, как видите, среди сообщений об ошибках есть сообщение ОС, свидетельствующее о неизвестном типе файла, что и поможет выявить причину возникновения ошибки (в данном случае все просто: при просмотре файла extproc.se оказывается, что он содержит исходный код на языке С).

Pages:     | 1 |   ...   | 14 | 15 || 17 | 18 |   ...   | 24 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.