|
Рефераты Главная Программирование икомп-ры Психология Радиоэлектроника Аудит АХД экпред финансыпредприятий Банковское дело Биографии Биология и химия Биржевое дело Финансы деньги и налоги Философия Физика и энергетика Военная кафедра Ветеринария Валютные отношения География и экономическая география Геология гидрология игеодезия Государство и право Товароведение Транспорт Нотариат Архитектура Химия Гражданское право и процесс Графология Делопроизводство Деньги и кредит Новые и неперечисленные |
Межбанковский клирингp> 1.5.4. Многосторонний взаимозачет путем новации и замещения.Хотя в принципе взаимозачет путем новации представляет собой двусторонний процесс, его можно использовать и для многосторонних расчетов между членами более крупной группы банков. В этом случае должна быть использована третья сторона (например, своего рода клиринговая палата) для принятия на себя нового чистого обязательства в качестве партнера каждого банка-участника. Такой процесс называется новацией и замещением. В качестве примера многостороннего взаимозачета путем новации и замещения можно привести гипотетическую клиринговую палату или компанию, занимающуюся расчетами по валютным операциям. В роли такого учреждения, предоставляющего услуги по взаимозачету, могла бы выступать национальная клиринговая палата, осуществляющая для своих членов имеющий юридическую силу многосторонний зачет обязательств по всем их валютным контрактам с другими участниками. При представлении такого контракта парой участников в клиринговую палату эта палата будет выступать в качестве партнера по отношению к каждому из этих своих членов и будет погашать их взаимные обязательства. Более того, у клиринговой палаты будет существовать текущая чистая позиция по соответствующим валютам и по датам зачисления средств по отношению к каждому участнику. В результате, для данной группы контрактов, переданных для взаимных расчетов, будет определен ряд чистых сумм (равных многостороннему сальдо каждого участника по отношению к группе участников взаимозачета в целом), причитающихся клиринговой палате от каждого участника им наоборот. В качестве основного партнера клиринговая палата возьмет на себя как кредитный риск, так и риск неликвидности. В то же самое время ее члены будут нести кредитный риск и риск неликвидности по отношению к клиринговой палате, а не к своим партнерам по операциям. Таким образом, клиринговой палате придется управлять своей кредитовой позицией по отношению к каждому члену, а также риском неликвидности, связанным с расчетами. Важнейшим элементом, способствующим тому, чтобы кредитный риск, существующий при использовании клиринговой палаты, был меньше кредитного риска, возникающего при двустороннем взаимозачете путем новации, является ряд соглашений, касающихся многостороннего взаимозачета путем новации и замещения. При юридической исполнимости договоренностей о многостороннем взаимозачете такое снижение риска для отдельного участника будет иметь место потому, что данная система взаимозачета даст возможность использовать двусторонние дебетовые сальдо каждого участника по отношению к другим для компенсации двусторонних кредитовых сальдо по той же валюте, в результате чего уменьшится чистая кредитовая позиция. Однако многосторонний взаимозачет не изменит кредитовую позицию участников, не имеющих двусторонних дебетовых сальдо. Многосторонний взаимозачет путем новации и замещения обладает потенциальной возможностью большего снижения риска неликвидности по сравнению с любой другой формой взаимозачета. При такой системе взаимозачета на данную дату зачисления средств чистые суммы задолженности по сравнению с двусторонним взаимозачетом снижаются или остаются неизменными для некоторых участников. Это снижает риск неликвидности для отдельных участников, для участников клиринга в целом и, возможно, для других финансовых рынков. С другой стороны, при использовании клиринговых палат требуется
централизация платежей по расчетам: все такие платежи производятся между
клиринговой палатой и отдельными участниками. В подобном случае
неспособность одного члена урегулировать свою позицию может привести к
нехватке наличности в одной или нескольких валютах, необходимых для
производства расчетов. Риск неликвидности для остальных участников зависит
в этом случае от способности клиринговой палаты мобилизовать наличность,
необходимую для завершения расчетов. 1.6. Управление рисками в системах взаимозачета Риск, возникающий в связи с осуществлением взаимозачета, может быть урегулирован несколькими путями. Центральный банк, выступая в роли учреждения, осуществляющего контроль за бесперебойным функционированием системы платежей, представляет собой одного из основных кредиторов и является расчетным агентом при проведении большей части клиринговых операций, что обуславливает и его решающую роль в определении принципов управления факторами риска и обеспечении того, чтобы каждый из участников клиринговой системы следовал этим принципам. Кроме того, немаловажную роль в управлении рисками играют и сами клиринговые палаты, определяющие порядок обслуживания кредитных учреждений, деятельность которых сопряжена с высокой степенью риска, а также осуществляющие урегулирование других проблем, связанных с различными видами финансового риска. Для управления рисками клиринговых платежей обычно используются следующие методы: - сокращение расчетного периода - двусторонние и многосторонние лимиты - механизмы распределения убытков - неокончательный характер расчетов в рамках клиринговых систем и аннулирование результатов клирингового сеанса. Сокращение расчетного периода Чем короче расчетный период, тем меньше риск неуплаты по расчетам и связанный с ним системный риск. В качестве дополнительного механизма применяются средства контроля в масштабе реального времени, которые помогают выявлять на ранней стадии потенциальные проблемы и облегчают управление ликвидными средствами, особенно в тех случаях, когда возможен централизованный контроль сальдо всех участников. Двусторонние и многосторонние лимиты Одним из методов управления рисками в клиринговых системах является
использование двусторонних или многосторонних верхних лимитов сальдо
участников, которые автоматически ограничивают потенциальный риск
межбанковских расчетов в рамках системы. Такие верхние лимиты часто
определяются как сумма, кратная величине первичного капитала банков, а
также основываются на оценке каждым учреждением своей кредитоспособности. Механизмы распределения убытков Наиболее твердой гарантией от связанных с осуществлением взаимозачета
рисков являются механизмы, призванные обеспечить возможность проведения
расчетов в рамках клиринговой системы даже в том случае, когда ее отдельные
участники не в состоянии урегулировать свои обязательства. Обычно такие
механизмы предусматривают объединение риска неликввдности и распределение
неурегулированных сальдо в соответствии с заранее установленным порядком. Неокончательный характер расчетов в рамках клиринговых систем и аннулирование результатов клирингового сеанса Своевременность расчетов в рамках клиринговых систем зависит от способности каждого из участников выполнить свои многосторонние обязательства, принятые в результате операций, проведенных в определенный период (в течение операционного дня). Типичной процедурой, применяемой при возникновении просрочек и неплатежей в процессе проведения расчетов, является использование положения о неокончательном характере расчетов и возможности отзыва платежей участнику, испытывающему подобные затруднения, и платежей, причитающихся с этого участника. В этом случае некоторые или все платежные операции, произведенные в рамках системы за данный период времени, аннулируются, а многостороннее сальдо для остальных участников пересчитывается. Эта процедура перемещает давление, связанное с недостатком ликвидности и потенциальными убытками, с одного на всех участников системы взаимозачета. 2. Оптимизация лага клиринга 1. Постановка задачи Республика Беларусь сейчас модернизирует автоматизированную систему межбанковских расчетов. Это ставит вопрос четкого выделения возможных их форм и оптимальных параметров. Ясность в формах расчетов достигнута, а в параметрах – нет. Проблема выбора оптимальных параметров расчетов не решена в системе, и данная часть дипломной работы посвящена выбору одного из них – лага клиринга. В зависимости от скорости обработки платежного документа есть два полюса форм оплаты, поступающих в банк платежных документов: валовая оплата и клиринг. При валовой оплате платежные документы оплачиваются индивидуально по
мере их поступления. Идеал валовой оплаты – оплата в темпе поступления
документов или, выражаясь по другому, в реальном времени (имеется в виду
время поступления). Такая форма называется RTSG (Real Time Gross Settlement Цель валовой оплаты – скорость оплаты. Модуль автоматизированной системы межбанковских расчетов, отвечающий за валовую оплату в реальном времени - это модуль BIS (Belarus Interbank Settlement). При клиринге оплата поступившего документа специально откладывается и
формируется множество неоплаченных платежных документов (платежный пакет). Лаг клиринга – отрезок времени, в течение которого формируется пакет платежных документов, и после истечения которого выносится решение о клиринговой оплате. Фактор лага проявляется двояко и в противоположных тенденциях: 1. Чем больше лаг клиринга, тем больше стоят в неподвижности деньги клирингового пакета. Значит, имеем отвлеченные средства и, следовательно, имеем потенциальные потери банка-получателя этих средств. Ясно, что отвлечение прямо пропорционально лагу клиринга. 2. Чем меньше лаг клиринга, тем больше требуется ликвидных средств для проведения совокупных расчетов. Значит, имеем отвлечение средств и, следовательно, имеем потенциальные потери банка-плательщика. Ясно, что при стремлении лага к нулю отвлечение достигает какого-то максимума V, а при стремлении лага к бесконечности отвлечение достигает какого-то минимума I. Итак, происходит конкуренция двух факторов: 1) потенциальная потеря от замораживания средств в клиринге, которая пропорциональна времени замораживания и 2) потенциальный доход от уменьшения средств обеспечения расчетов, которое растет с ростом лага клиринга. Интегральный эффект клиринга есть разность этих двух величин. Значит,
и слишком малый лаг клиринга плох, и слишком большой лаг клиринга плох. Задача состоит в том, чтобы определить лаг клирингового цикла, при котором интегральный эффект клиринга будет максимальным. 2.2. Формализация задачи Формула расчета убытка от применения клиринга вследствие простаивания денег клирингового пакета имеет следующий вид: [pic], где [pic] – интенсивность оборота, сколько средств проходит в валовых расчетах за единицу времени – за день. Эта формула показывает отвлечение вследствие клиринговой неподвижности средств платежного пакета, как следствие клиринга Средства [pic] были бы пущены в оборот и принесли бы выгоду банкам-получателям средств. Итак, имеем здесь дело с потенциальным убытком. Предполагая равномерное поступление платежей, имеем простой средств в размере [pic] в течение времени [pic], т.е. [pic] . Теперь подсчитаем доход: на оплату требуется меньше средств, чем при валовой оплате, а сэкономленные средства пускаются в оборот и приносят доход. Таким образом имеется возможность построить математическую модель: Пусть, [pic] - средства, необходимые для поддержания клиринга, [pic] – лаг клиринга. Накладываются следующие естественные условия: 1) При [pic] (2.1), где [pic] – средства, обслуживающие валовые расчеты. 2) При [pic] (2.2), где [pic] – средства, обслуживающие «экспорт-импорт» клиринговой системы; 3) [pic] есть функция от [pic]. Найдем вид функции [pic], основываясь, как говорят в физике, на
феноменологическом подходе. Т.е. мы не привлекаем никаких «микродеталей»
типа статистики потоков между участниками и т.д., а основываемся только на
самых общих «внешних» соображениях. Внутренний причинный механизм денежных
потоков остается черным ящиком. Воспользуемся однородностью времени. Все
возможные лаги клиринга образуют ось [pic] – ось лага клиринга. Очевидно,
что ни один момент времени [pic] не должен быть выделен: если у нас был лаг
клиринга [pic] и мы переходим к [pic], то все равно, как мы считаем [pic] –
или отталкиваясь от 0, беря за основу [pic], или отталкиваясь от [pic],
беря за основу [pic]. Графическая интерпретация изложенного дана на Рис. Итак, [pic] однородно и, значит, имеем своего рода принцип относительности: закон не должен зависеть от системы координат. В применении к нашему случаю это означает, что формула О должна давать ковариантную (не изменяющую вида) зависимость от [pic]: сдвиг по оси [pic] не должен менять вида формулы, если пересчитать все к новому началу координат – переход от [pic] к [pic] = [pic] - а и от [pic]к [pic] должен удовлетворять условию [pic]. Или, по другому, [pic]. Такое функциональное уравнение характерно только для экспоненты. Рис.2.1. Графическая интерпретация «однородности» времени. В дифференциальном виде экспонента характеризуется соотношением: [pic] (2.3), где v – какой-то коэффициент пропорциональности. Условия (1) - (3) дают единственное решение: [pic] (2.4) Проверяем выполнение свойства [pic]: Данная математическая модель подсчета средств, необходимых для
поддержания клиринга, была разработана и протестирована на адекватность и
устойчивость в американской клиринговой системе CHIPS, кроме того,
адекватность данной модели подтверждена проверкой на отечественных
статистических данных по межбанковским расчетам в информационно-
аналитическом управлении Белорусского Межбанковского Расчетного Центра Используя этот результат, подсчитаем экономию вследствие клиринговости. Итак, [pic] – реальное отвлечение вследствие «валовости» (об этом
говорит индекс параметра О), т. е. расчетов через конечный отрезок времени [pic] (2.5) Параметр [pic] характеризует импортную незамкнутость системы: если бы пользователи клиринга были тесно связаны только между собой, то [pic]. Для страны в целом – это средства оплаты экспорта-импорта и, значит, [pic] можно определить из данных статистики, если клиринг охватывает всю республику. Для группы банков – это обслуживание входа-выхода средств вне этой группы. Экономия вследствие клиринговости равна: [pic] Доход от такой экономии пропорционален рыночной процентной ставке Подсчитаем интегральный эффект от клиринга. Эффект - разность дохода и убытка: [pic] (2.6) Оптимизация этой функции равносильна оптимизации следующей функции: [pic] (2.7) 2.3. Решение задачи и его анализ При каком-то значении [pic] экономия достигает максимума. Для определения этого значения возьмем производную функции [pic] по [pic] и приравняем ее к нулю. Вычисляем производную: [pic] [pic] Теперь решаем уравнение: [pic] [pic] [pic] Для того, чтобы убедиться, что найденная точка является точкой
глобального максимума функции интегрального эффекта от применения клиринга [pic] Окончательно получим: [pic] (2.8) или с учетом (5): [pic] (2.9) Модифицируем вид решения: Пусть: k = K/V, т. е. k – дневная оборачиваемость средств в расчетах, определяющая, сколько рублей дневного оборота обслуживает один рубль сальдо. е = O(l)/V, т.е. е – доля клиринговых отвлечений от валовых отвлечений при однодневном цикле. n = 1/е – уменьшение средств, обусловленное клирингом – эффективность клиринга. i = l/V, т.е. i – доля средств, обслуживающих в расчетах экспорт- импорт системы. Тогда [pic] (2.10) Итак, [pic] выражена через: 1) k – дневную оборачиваемость средств в расчетах, 2) е – долю клиринговых отвлечений от валовых отвлечений при однодневном цикле, 3) i – долю обслуживания импорта в расчетах. Область возможного положительного эффекта от клиринга задается отрезком времени от 0 до Т. Т есть корень уравнения [pic] или [pic] Далее ясно, что при заданной модели [pic] существует нижняя граница
для [pic], выше которой клиринг не дает никакого эффекта. Эту границу
определяет касательная к [pic] в начале координат. Прямые [pic], лежащие
выше касательной, не пересекаются с [pic] нигде, кроме начала координат. [pic], отсюда [pic] (2.11)
Рис.2.2. Графическая интерпретация решения. И, наконец, подсчитаем потери от применения неоптимального лага: Пусть dt - отклонение от [pic]. Возникающие потери, измеряемые в сальдовых единицах, есть разность: [pic]. Все рассуждения, приведенные выше касались одного отдельно взятого банка, однако лаг клиринга устанавливается клиринговой палатой, составленной из представителей всех банков-участников. Поэтому, лаг, являющий оптимальным для одного банка, может быть далеким от такового для остальных банков. Поэтому для учета интересов всех участников системы предлагается следующая модель. Пусть в клиринговой системе участвует n банков. Обозначим, как и ранее [pic] – эффект от применения клиринга с лагом [pic] для i-го банка, вычисляемый по формуле (2.6), [pic] – средства i-го банка, необходимые ему для валовых взаиморасчетов (т.е. без клиринга). Тогда наиболее приемлемый для всех участников лаг клиринга рекомендуется искать, решив следующую задачу оптимизации: [pic] (2.12) т.е. максимизируется наименьший из удельных эффектов от применения клиринга для всех банков-участников. 2.4. Статистическая оценка оптимального лага. На основе статистической выборки, включающей в себя ежедневные данные за четыре месяца, были получены следующие оценки вышеописанных параметров: i*=0.05, k*=v*=0.42. Подставив оценочные значения в формулу (2.9), получим следующую оценку оптимального лага клиринга t* =1,538372. Таким образом, на основе вышеизложенной модели оптимизации лага клиринга можно утверждать, что оптимальным в текущих условиях является лаг в полтора дня, т.е. 36 часов. 3. ППП «Система межбанковского клиринга» 3.1. Назначение и структура пакета ППП «Система межбанковского клиринга» является практической
реализацией идеи автоматизации клирингового процесса. Пакет охватывает
автоматизацию как работы самой клиринговой палаты, так и работы банков-
участников клирингового сеанса. ППП содержит два функционально различных
программных модуля: «АРМ оператора клиринговой палаты» и «АРМ оператора
банка» и представляет собой программный продукт, построенный по схеме 3.2. Модуль « АРМ оператора клиринговой палаты» Модуль «АРМ оператора клиринговой палаты» устанавливается на сервере клиринговой палаты и обеспечивает добавление и удаление банков-участников клиринговой системы, прием, обработку платежных документов, проверку их на наличие ошибок и проведение окончательных взаиморасчетов между банками- членами клиринговой палаты. Кроме того, данный модуль инициирует начало клирингового сеанса, ведет статистику платежей и закрывает сеанс по истечению заданного срока. Работой модуля управляет один человек – оператор клиринговой палаты, наделенный особыми полномочиями. Главное окно модуля «АРМ оператора клиринговой палаты» выглядит следующим образом: Рис.3.1. Главное окно модуля «АРМ оператора клиринговой палаты». Пункт меню «Банки» содержит подпункты «Просмотреть» для просмотра
списка текущих участников системы и удаления любого из них и
При выборе подпункта «Регистрация нового участника» на экран
выводится диалоговое окно для ввода необходимой информации об участнике. Рис.3.3. Окно регистрации нового банка. После выполнения регистрации на сервере новый банк-участник может запускать на своей рабочей станции модуль «АРМ оператора банка» и входить в систему указав необходимые имя пользователя и пароль. Пункт меню «Сообщения» содержит один элемент – подпункт
Основными функциями данного окна являются просмотр списка полученных сообщений и подтверждение тех из них, которые удовлетворяют требованиям клиринговой палаты. Меню главного окна «Сеанс» содержит три подпункта «Начать сеанс», 3.2. Модуль « АРМ оператора банка» Модуль «АРМ оператора клиринговой палаты» устанавливается на рабочих станциях банков-участников системы взаимозачета и обеспечивает следующие функции: подключение банка к текущему клиринговому сеансу, выход от сеанса, отсылку платежных сообщений, а также подсчет и просмотр окончательной чистой позиции банка. Работой модуля также управляет один человек – оператор банка. Главное окно модуля «АРМ оператора клиринговой палаты» выглядит следующим образом:
Данное окно содержит два основных пункта меню «Клиринговый сеанс» и
Выбор подпункта «Показать сообщения» приводит к выводу на экран диалогового окна со списком сообщений, которые относятся к банку-владельцу запущенной копии модуля. Можно выбрать для показа входящие платежи, исходящие платежи или оба типа одновременно. Показываются лишь те сообщения, которые были подтверждены клиринговой палатой в модуле «АРМ оператора клиринговой палаты». Вид этого окна приведен на Рис. 3.7.
ЗАКЛЮЧЕНИЕ В данном дипломном проекте освещены проблемы межбанковского клиринга и методы их решения, приведены реальные модели клиринговых систем. Кроме того, поставлена, математически сформулирована и решена проблема оптимизации важнейшего параметра клирингового цикла – лага клиринга. На основе реальных статистических данных получена статистическая оценка искомого параметра. Также приводится математическая модель обобщения полученных результатов для максимизации прибыли каждого из участников клиринговой системы. Существенной частью работы в дипломном проекте является разработка пакета программных продуктов «Система межбанковского клиринга». Этот программный продукт является попыткой комплексной автоматизации клирингового процесса. Пакет полностью готов для тестового использования и сбора статистической информации, планируется его доработка в областях сохранности целостности данных, управления доступом и оптимизации производительности до уровня реальной системы. СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
“Финстатинформ”, 1993.-142с. М.: “Дело”, 1994.-122с. ИПЦ “Вазар-Ферро”, 1994.-320с. Банкаўскі веснік – 1998. №1. 1997. №9. – С.3-6. ПРИЛОЖЕНИЕ 1. SQL-КОД ППП «СИСТЕМА МЕЖБАНКОВСКОГО КЛИРИНГА» ---------------------------------------------------- -- 1. Sequence BankID_Seq PROMPT Creating sequence BankID_Seq... -- Последовательность уникальных идентификаторов для банков-участников
-- Таблица банков, зарегистрированных в клиринговой палате CONSTRAINT bankno_pk PRIMARY KEY, CONSTRAINT bankname UNIQUE, CONSTRAINT username UNIQUE ----------------------------------------------- PROMPT Creating table BankState... CREATE TABLE BankState CONSTRAINT sessionbankid_fk REFERENCES Banks ON DELETE CASCADE, ----------------------------------------------- PROMPT Creating package ClientUtils... CREATE OR REPLACE PACKAGE ClientUtils -- Возвращает флаг состояния текущей сессии
-- Процедура отсылки в клиринговую палату платежа в "электронном" виде END ClientUtils; / ----------------------------------------------- PROMPT Creating package body ClientUtils... CREATE OR REPLACE PACKAGE BODY ClientUtils -- Функция возвращает флаг состояния текущей сессии FUNCTION GetSessionStatus RETURN INT RETURN ServerUtils.SessionState; END GetSessionStatus;
FUNCTION StartBankSession(aBankID IN INT) RETURN INT IF ServerUtils.SessionState = GlobalConst.cSessionActive THEN UPDATE BankState SET BankStatus = GlobalConst.cBankWork WHERE BankID = aBankID; END IF; RETURN ServerUtils.SessionState; END StartBankSession;
PROCEDURE StopBankSession(aBankID IN INT) UPDATE BankState SET BankStatus = GlobalConst.cBankStopWork WHERE BankId = aBankID; END StopBankSession;
FUNCTION GetOurID RETURN INT Res INT; BEGIN SELECT BankID INTO Res FROM Banks WHERE UserName = USER; END GetOurID;
FUNCTION GetFinalSaldo(aBankID IN INT) RETURN INT aSaldo INT; BEGIN BEGIN SELECT DebitPos-CreditPos INTO aSaldo FROM Results WHERE BankID = aBankID; EXCEPTION WHEN No_Data_Found THEN aSaldo := NULL; END; RETURN aSaldo; END GetFinalSaldo;
PROCEDURE SendMessage(aSourceBankID IN INT, aDebitBankID IN INT, aCreditBankID IN INT, aAmount IN INT) aMsgID INT; BEGIN SELECT Msg_Seq.NextVal INTO aMsgID FROM Dual; INSERT INTO Messages VALUES (aMsgID, aSourceBankID, aDebitBankID, aCreditBankID, aAmount, GlobalConst.cMsgNotProcessed); END SendMessage; END ClientUtils; / ----------------------------------------------- PROMPT Creating package CommonUtils... CREATE OR REPLACE PACKAGE CommonUtils -- Возвращает уникальный номер банка по его имени
END CommonUtils; / ----------------------------------------------- PROMPT Creating package CommonUtils... CREATE OR REPLACE PACKAGE BODY CommonUtils
FUNCTION GetBankID(aBankName IN VARCHAR2) RETURN INT Res INT; BEGIN BEGIN SELECT BankID INTO Res FROM Banks WHERE BankName = aBankName; EXCEPTION WHEN No_Data_Found THEN Res := NULL; END; RETURN Res; END GetBankID;
FUNCTION GetCurrentDebitSaldo(aBankID IN INT) RETURN INT Res INT; BEGIN BEGIN SELECT DebitPos INTO Res FROM TmpRes WHERE BankID = aBankID; EXCEPTION WHEN No_Data_Found THEN Res := 0; END; RETURN Res; END GetCurrentDebitSaldo;
FUNCTION GetCurrentCreditSaldo(aBankID IN INT) RETURN INT Res INT; BEGIN BEGIN SELECT CreditPos INTO Res FROM TmpRes WHERE BankID = aBankID; EXCEPTION WHEN No_Data_Found THEN Res := 0; END; RETURN Res; END GetCurrentCreditSaldo; END CommonUtils; / -------------------------------------------------------- PROMPT Creating package GlobalConst CREATE OR REPLACE PACKAGE GlobalConst cStatusClass CONSTANT INT := -1; cBankWork CONSTANT INT := 1; cBankStopWork CONSTANT INT := 2; cBankNotWork CONSTANT INT := 3; cMsgNotProcessed CONSTANT INT := 1; cMsgAccepted CONSTANT INT := 2; cMsgSourceError CONSTANT INT := 3; cMsgDebitError CONSTANT INT := 4; cMsgCreditError CONSTANT INT := 5; cMsgProcessed CONSTANT INT := 6; cSessionUnActive CONSTANT INT := 1; cSessionActive CONSTANT INT := 2; END GlobalConst; / ------------------------------------------------------ CONNECT INTERNAL SPOOL createdb.log SET ECHO ON CREATE TABLESPACE "CLEARING" DATAFILE 'C:ORAWIN95DATABASEclearing.dbf' CREATE USER "ALEX" IDENTIFIED BY "ALEX" GRANT "DBA" TO "ALEX" WITH ADMIN OPTION; SPOOL OFF EXIT -------------------------------------------------- PROMPT Creating databases and sequences... @@consts.pkg PROMPT Creating packages... @@srvrutil.pkg @@clntutil.pkg @@commutil.pkg ------------------------------------------------------------- PROMPT Creating sequence Msg_Seq... CREATE SEQUENCE Msg_Seq PROMPT Creating table Messages... CREATE TABLE Messages CONSTRAINT message_pk PRIMARY KEY, CONSTRAINT sourcebank_fk REFERENCES Banks ON DELETE CASCADE, CONSTRAINT debitbank_fk REFERENCES Banks ON DELETE CASCADE, CONSTRAINT creditbank_fk REFERENCES Banks ON DELETE CASCADE, -------------------------------------------------------------- PROMPT Creating table Results... CREATE TABLE RESULTS CONSTRAINT resultbankid_fk REFERENCES Banks ON DELETE CASCADE, ------------------------------------------------------- PROMPT Creating package ServerUtils... CREATE OR REPLACE PACKAGE ServerUtils SessionState INT DEFAULT GlobalConst.cSessionUnActive; PROCEDURE StartClearingSession; PROCEDURE StopClearingSession;
-- Процедура регистрации банка-участника клиринговой системы PROCEDURE UnRegisterBank(aBankName IN VARCHAR2); -- Процедура выхода банка из клиринговой системы
PROCEDURE ConfirmMessage(aMessageID IN INT);
/ ----------------------------------------------- PROMPT Creating package body ServerUtils... CREATE OR REPLACE PACKAGE BODY ServerUtils
PROCEDURE StartClearingSession BEGIN DELETE FROM Messages; FOR x IN ( SELECT BankID FROM Banks ) INSERT INTO BankState (BankID, BankStatus) VALUES (x.BankID, GlobalConst.cBankNotWork); END LOOP; SessionState := GlobalConst.cSessionActive; END StartClearingSession;
PROCEDURE StopClearingSession aDebitSum INT; aCreditSum INT; BEGIN SessionState := GlobalConst.cSessionUnActive; UPDATE BankState SET BankStatus = GlobalConst.cBankStopWork WHERE BankStatus = GlobalConst.cBankWork; FOR x IN ( SELECT BankID FROM BankState WHERE BankStatus = GlobalConst.cBankStopWork ) BEGIN SELECT Sum(Amount) INTO aDebitSum FROM Messages WHERE MsgStatus = GlobalConst.cMsgAccepted AND DebitBankID = x.BankID; EXCEPTION WHEN No_Data_Found THEN aDebitSum := 0; END; BEGIN SELECT Sum(Amount) INTO aCreditSum FROM Messages WHERE MsgStatus = GlobalConst.cMsgAccepted AND CreditBankID = x.BankID; EXCEPTION WHEN No_Data_Found THEN aCreditSum := 0; END; INSERT INTO Results(BankID, DebitPos, CreditPos) VALUES(x.BankID, aDebitSum, aCreditSum); END LOOP;
SELECT Stat_Seq.NextVal, SYSDATE, BankID, DebitPos, CreditPos FROM Results;
END StopClearingSession;
FUNCTION GetActiveBanksCountInSession RETURN INT IS Res INT; BEGIN BEGIN SELECT Count(*) INTO Res FROM BankState WHERE BankStatus = GlobalConst.cBankWork; EXCEPTION WHEN No_Data_Found THEN Res :=0; END; RETURN Res; END GetActiveBanksCountInSession;
FUNCTION RegisterBank(aBankName IN VARCHAR2, aUserName IN VARCHAR2, aPassword IN VARCHAR2) RETURN INT IS Res INT; Cur INT; Col INT; BEGIN BEGIN SELECT BankID INTO Res FROM Banks WHERE BankName = aBankName; EXCEPTION WHEN No_Data_Found THEN SELECT BankID_Seq.NextVal INTO Res FROM Dual; INSERT INTO Banks(BankID, BankName, UserName) VALUES (Res, aBankName, aUserName); cur:=dbms_sql.open_cursor; dbms_sql.parse(cur, 'CREATE USER '||aUserName||' IDENTIFIED BY '||aPassword, dbms_sql.v7); Col := dbms_sql.execute(Cur); dbms_sql.parse(cur, 'GRANT CREATE SESSION to '||aUserName, dbms_sql.v7); Col := dbms_sql.execute(Cur); dbms_sql.close_cursor(cur); END; RETURN Res; END RegisterBank;
PROCEDURE UnRegisterBank(aBankID IN INT) BEGIN DELETE FROM Banks WHERE BankID = aBankID; END UnRegisterBank;
PROCEDURE UnRegisterBank(aBankName IN VARCHAR2) BEGIN DELETE FROM Banks WHERE BankName = aBankName; END UnRegisterBank;
FUNCTION CheckMessage(aMessageID IN INT) RETURN INT aMsgStatus INT; aBankStatus INT; aSourceBank INT; aDebitBank INT; aCreditBank INT; BEGIN SELECT SourceBankID INTO aSourceBank FROM Messages WHERE MessageID = aMessageID; SELECT DebitBankID INTO aDebitBank FROM Messages WHERE MessageID = aMessageID; SELECT CreditBankID INTO aCreditBank FROM Messages WHERE MessageID = aMessageID; BEGIN SELECT BankStatus INTO aBankStatus FROM BankState WHERE BankID = aSourceBank; EXCEPTION WHEN No_Data_Found THEN UPDATE Messages SET MsgStatus = GlobalConst.cMsgSourceError WHERE MessageID = aMessageID; RETURN GlobalConst.cMsgSourceError; END; IF aBankStatus = GlobalConst.cBankNotWork THEN UPDATE Messages SET MsgStatus = GlobalConst.cMsgSourceError WHERE MessageID = aMessageID; RETURN GlobalConst.cMsgSourceError; END IF; BEGIN SELECT BankStatus INTO aBankStatus FROM BankState WHERE BankID = aDebitBank; EXCEPTION WHEN No_Data_Found THEN UPDATE Messages SET MsgStatus = GlobalConst.cMsgDebitError WHERE MessageID = aMessageID; RETURN GlobalConst.cMsgDebitError; END; IF aBankStatus = GlobalConst.cBankNotWork THEN UPDATE Messages SET MsgStatus = GlobalConst.cMsgDebitError WHERE MessageID = aMessageID; RETURN GlobalConst.cMsgDebitError; END IF; BEGIN SELECT BankStatus INTO aBankStatus FROM BankState WHERE BankID = aCreditBank; EXCEPTION WHEN No_Data_Found THEN UPDATE Messages SET MsgStatus = GlobalConst.cMsgCreditError WHERE MessageID = aMessageID; RETURN GlobalConst.cMsgCreditError; END; IF aBankStatus = GlobalConst.cBankNotWork THEN UPDATE Messages SET MsgStatus = GlobalConst.cMsgCreditError WHERE MessageID = aMessageID; RETURN GlobalConst.cMsgCreditError; END IF; UPDATE Messages SET MsgStatus = GlobalConst.cMsgProcessed WHERE MessageID = aMessageID; RETURN GlobalConst.cMsgProcessed; END CheckMessage;
PROCEDURE ConfirmMessage(aMessageID IN INT) aMsgStatus INT; aTmpID INT; aAmount INT; aDebitBank INT; aCreditBank INT; BEGIN SELECT MsgStatus, DebitBankID, CreditBankID INTO aMsgStatus, aDebitBank, aCreditBank FROM Messages WHERE MessageID = aMessageID; IF aMessageID = GlobalConst.cMsgProcessed THEN UPDATE Messages SET MsgStatus = GlobalConst.cMsgAccepted WHERE MessageID = aMessageID; SELECT Amount INTO aAmount FROM Messages WHERE MessageID = aMessageID; BEGIN SELECT BankID INTO aTmpID FROM TmpRes WHERE BankID = aDebitBank; EXCEPTION WHEN No_Data_Found THEN INSERT INTO TmpRes (BankID, DebitPos, CreditPos) VALUES (aDebitBank, 0, 0); END; UPDATE TmpRes SET DebitPos = DebitPos + aAmount WHERE BankID = aDebitBank; BEGIN SELECT BankID INTO aTmpID FROM TmpRes WHERE BankID = aCreditBank; EXCEPTION WHEN No_Data_Found THEN INSERT INTO TmpRes (BankID, DebitPos, CreditPos) VALUES (aCreditBank, 0, 0); END; UPDATE TmpRes SET CreditPos = CreditPos - aAmount WHERE BankID = aCreditBank; END IF; END ConfirmMessage; END ServerUtils; / --------------------------------------------------------- PROMPT Create table Statistics... PROMPT Creating sequence Stat_Seq... CREATE SEQUENCE Stat_Seq CREATE TABLE Statistics CONSTRAINT itemno_pk PRIMARY KEY, ----------------------------------------------- PROMPT Inserting data into table Status ... BEGIN DELETE FROM Status WHERE StatusClass = 1;
COMMIT; END; ----------------------------------------------- PROMPT Create table Status ... CREATE TABLE Status StatusClass NUMBER(3), StatusNo NUMBER(3), StatusText VARCHAR2(70) NOT NULL, CONSTRAINT status_pk PRIMARY KEY (StatusClass, StatusNo) ------------------------------------------------------- PROMPT Creating table TmpRes... CREATE TABLE TmpRes CONSTRAINT tmpresbankid_fk REFERENCES Banks ON DELETE CASCADE, --------------------------------------------------- PROMPT Deleting databases... SET ECHO ON; DROP SEQUENCE Stat_Seq;
DROP PACKAGE BODY ServerUtils; DROP PACKAGE BODY ClientUtils; DROP PACKAGE BODY CommonUtils; SET ECHO OFF; ---------------------------------------------------------------- ----------------------- [pic] [pic]
Страницы: 1, 2 |
|