Руководство по языку sql

SET TERM ^; 
-- package header, declarations only 
CREATE OR ALTER PACKAGE TEST 
AS 
BEGIN 
PROCEDURE P1(I INT) RETURNS (O INT); -- public procedure 
END ^ 
-- package body, implementation 
RECREATE PACKAGE BODY TEST 
AS 
BEGIN 
FUNCTION F1(I INT) RETURNS INT; -- private function 
PROCEDURE P1(I INT) RETURNS (O INT) 
AS 
BEGIN 
END 
FUNCTION F1(I INT) RETURNS INT 
AS 
BEGIN 
RETURN 0; 
END 
END ^ 
2. 
Пакет функций и процедур для работы с сессионными переменными 
приложения. 
SET TERM ^ ; 

---

Новые возможности языка SQL Firebird 3.0 
56 
CREATE PACKAGE APP_VAR 
AS 
begin 
-- Возвращает дату начала периода 
-- Функция помечена как детерминированная, что позволяет 
-- рассматривать еѐ как инвариант в запросах 
function GET_DATEBEGIN() returns date deterministic; 
-- Возвращает дату окончания периода 
-- Функция помечена как детерминированная, что позволяет 
-- рассматривать еѐ как инвариант в запросах 
function GET_DATEEND() returns date deterministic; 
-- Устанавливает диапазон дат рабочего периода 
procedure SET_DATERANGE(ADATEBEGIN date, ADATEEND date); 
end^ 
CREATE PACKAGE BODY APP_VAR 
AS 
begin 
-- Возвращает дату начала периода 
function GET_DATEBEGIN() returns date 
as 
begin 
return RDB$GET_CONTEXT('USER_SESSION', 'DATEBEGIN'); 
end 
-- Возвращает дату окончания периода