[JVCL-Checkins] dev/JVCL3/examples/JvUIB/Database employee_IB6.sql,NONE,1.1 - New IB6 script from Korecek

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvUIB/Database
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6943/dev/JVCL3/examples/JvUIB/Database

Added Files:
	employee_IB6.sql 
Log Message:
New IB6 script from Korecek


--- NEW FILE: employee_IB6.sql ---
/******************************************************************************/
/***           Generated by IBExpert 2.5.0.22 07/03/2003 18:57:49           ***/
/******************************************************************************/



/******************************************************************************/
/***                                Domains                                 ***/
/******************************************************************************/
SET SQL DIALECT 3;

CREATE DATABASE '..\..\..\bin\Data\employee.gdb' USER 'SYSDBA' PASSWORD 'masterkey' DEFAULT CHARACTER SET WIN1252;

CREATE DOMAIN ADDRESSLINE AS
VARCHAR(30) CHARACTER SET NONE;

CREATE DOMAIN BUDGET AS
NUMERIC(15,2)
DEFAULT 50000
[...1137 lines suppressed...]

ALTER PROCEDURE SUB_TOT_BUDGET (
    HEAD_DEPT CHAR(3) CHARACTER SET NONE)
RETURNS (
    TOT_BUDGET NUMERIC(15,2),
    AVG_BUDGET NUMERIC(15,2),
    MIN_BUDGET NUMERIC(15,2),
    MAX_BUDGET NUMERIC(15,2))
AS
BEGIN
 SELECT SUM(budget), AVG(budget), MIN(budget), MAX(budget)
  FROM department
  WHERE head_dept = :head_dept
  INTO :tot_budget, :avg_budget, :min_budget, :max_budget;
 SUSPEND;
END
^


SET TERM ; ^