[ViewVC] Diff of: public/ibx/branches/journaling/testsuite/FB3reference.log

Comparing ibx/trunk/testsuite/FB3reference.log (file contents):
Revision 348 by tony, Wed Oct 6 09:38:14 2021 UTC vs.
Revision 349 by tony, Mon Oct 18 08:39:40 2021 UTC

#	Line 644 \| Line 644 \| Rows printed = 42
644		Current memory = 19,651,152
645		Delta memory = 13,040
646		Max memory = 19,779,424
647	<	Elapsed time= 0.022 sec
648	<	Cpu = 0.000 sec
647	>	Elapsed time= 0.029 sec
648	>	Cpu = 0.010 sec
649		Buffers = 2048
650		Reads = 2
651		Writes = 0
#	Line 1445 \| Line 1445 \| DPB: Item Count = 3
1445		isc_dpb_lc_ctype = UTF8
1446
1447		Before Disconnect
1448	<	inet://localhost/employee Disconnected after 21 ms
1448	>	inet://localhost/employee Disconnected after 20 ms
1449		Before Connect
1450		Connected to inet://localhost/employee
1451		DPB: Item Count = 3
#	Line 1454 \| Line 1454 \| DPB: Item Count = 3
1454		isc_dpb_lc_ctype = UTF8
1455
1456		Before Disconnect
1457	<	inet://localhost/employee Disconnected after 4015 ms
1457	>	inet://localhost/employee Disconnected after 3984 ms
1458		Idle Timer Expired for Test_Database_02
1459		Database Closed
1460		Transaction Events
#	Line 1477 \| Line 1477 \| TPB: Item Count = 3
1477		isc_tpb_read
1478
1479		Transaction Ending
1480	<	Transaction Ended after 0 ms
1480	>	Transaction Ended after 1 ms
1481		Transaction idle timer test
1482		Requested TPB: Item Count = 3
1483		isc_tpb_concurrency
#	Line 1491 \| Line 1491 \| TPB: Item Count = 3
1491		isc_tpb_read
1492
1493		Transaction Ending
1494	<	Transaction Ended after 2000 ms
1494	>	Transaction Ended after 2001 ms
1495		Idle Timer Expired for Test_Transaction_02
1496		Before Disconnect
1497	<	inet://localhost/employee Disconnected after 2040 ms
1497	>	inet://localhost/employee Disconnected after 2051 ms
1498		SQL Dialect Downgrade test
1499		Before Connect
1500		Connected to inet://localhost//tmp/ibx-testsuite/testsuite1.fdb
#	Line 1506 \| Line 1506 \| DPB: Item Count = 4
1506
1507		inet://localhost//tmp/ibx-testsuite/testsuite1.fdb created
1508		Before Disconnect
1509	<	inet://localhost//tmp/ibx-testsuite/testsuite1.fdb Disconnected after 20 ms
1509	>	inet://localhost//tmp/ibx-testsuite/testsuite1.fdb Disconnected after 13 ms
1510		Before Connect
1511		Warning: SQL Dialect Downgrade of inet://localhost//tmp/ibx-testsuite/testsuite1.fdb
1512		Connected to inet://localhost//tmp/ibx-testsuite/testsuite1.fdb
#	Line 1516 \| Line 1516 \| DPB: Item Count = 3
1516		isc_dpb_lc_ctype = UTF8
1517
1518		Before Disconnect
1519	<	inet://localhost//tmp/ibx-testsuite/testsuite1.fdb Disconnected after 36 ms
1519	>	inet://localhost//tmp/ibx-testsuite/testsuite1.fdb Disconnected after 22 ms
1520
1521
1522		------------------------------------------------------
#	Line 3172 \| Line 3172 \| Current memory = 19,653,504
3172		Delta memory = 13,072
3173		Max memory = 19,729,584
3174		Elapsed time= 0.023 sec
3175	<	Cpu = 0.020 sec
3175	>	Cpu = 0.010 sec
3176		Buffers = 2048
3177		Reads = 2
3178		Writes = 0
#	Line 3773 \| Line 3773 \| SET AUTODDL ON;
3773		/* Domain definitions */
3774
3775		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
3776	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
3776	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
3777		DEFAULT 50000;
3778		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
3779		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 3788 \| Line 3788 \| CREATE DOMAIN PONUMBER AS CHAR(8);
3788		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
3789		DEFAULT 'software' NOT NULL;
3790		CREATE DOMAIN PROJNO AS CHAR(5);
3791	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
3791	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
3792		DEFAULT 0;
3793
3794		/* Table: COUNTRY, Owner: SYSDBA */
3795
3796	<	CREATE TABLE COUNTRY
3796	>	CREATE TABLE COUNTRY
3797		(
3798		COUNTRY COUNTRYNAME NOT NULL,
3799		CURRENCY VARCHAR(10) NOT NULL,
#	Line 3802 \| Line 3802 \| PRIMARY KEY (COUNTRY)
3802
3803		/* Table: CUSTOMER, Owner: SYSDBA */
3804
3805	<	CREATE TABLE CUSTOMER
3805	>	CREATE TABLE CUSTOMER
3806		(
3807		CUST_NO CUSTNO NOT NULL,
3808		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 3821 \| Line 3821 \| PRIMARY KEY (CUST_NO)
3821
3822		/* Table: DEPARTMENT, Owner: SYSDBA */
3823
3824	<	CREATE TABLE DEPARTMENT
3824	>	CREATE TABLE DEPARTMENT
3825		(
3826		DEPT_NO DEPTNO NOT NULL,
3827		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 3836 \| Line 3836 \| PRIMARY KEY (DEPT_NO)
3836
3837		/* Table: EMPLOYEE, Owner: SYSDBA */
3838
3839	<	CREATE TABLE EMPLOYEE
3839	>	CREATE TABLE EMPLOYEE
3840		(
3841		EMP_NO EMPNO NOT NULL,
3842		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 3854 \| Line 3854 \| PRIMARY KEY (EMP_NO)
3854
3855		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
3856
3857	<	CREATE TABLE EMPLOYEE_PROJECT
3857	>	CREATE TABLE EMPLOYEE_PROJECT
3858		(
3859		EMP_NO EMPNO NOT NULL,
3860		PROJ_ID PROJNO NOT NULL,
#	Line 3863 \| Line 3863 \| PRIMARY KEY (EMP_NO, PROJ_ID)
3863
3864		/* Table: JOB, Owner: SYSDBA */
3865
3866	<	CREATE TABLE JOB
3866	>	CREATE TABLE JOB
3867		(
3868		JOB_CODE JOBCODE NOT NULL,
3869		JOB_GRADE JOBGRADE NOT NULL,
#	Line 3878 \| Line 3878 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
3878
3879		/* Table: PROJECT, Owner: SYSDBA */
3880
3881	<	CREATE TABLE PROJECT
3881	>	CREATE TABLE PROJECT
3882		(
3883		PROJ_ID PROJNO NOT NULL,
3884		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 3891 \| Line 3891 \| PRIMARY KEY (PROJ_ID)
3891
3892		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
3893
3894	<	CREATE TABLE PROJ_DEPT_BUDGET
3894	>	CREATE TABLE PROJ_DEPT_BUDGET
3895		(
3896		FISCAL_YEAR INTEGER NOT NULL,
3897		PROJ_ID PROJNO NOT NULL,
#	Line 3903 \| Line 3903 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
3903
3904		/* Table: SALARY_HISTORY, Owner: SYSDBA */
3905
3906	<	CREATE TABLE SALARY_HISTORY
3906	>	CREATE TABLE SALARY_HISTORY
3907		(
3908		EMP_NO EMPNO NOT NULL,
3909		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 3916 \| Line 3916 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
3916
3917		/* Table: SALES, Owner: SYSDBA */
3918
3919	<	CREATE TABLE SALES
3919	>	CREATE TABLE SALES
3920		(
3921		PO_NUMBER PONUMBER NOT NULL,
3922		CUST_NO CUSTNO NOT NULL,
#	Line 3927 \| Line 3927 \| CREATE TABLE SALES
3927		DATE_NEEDED TIMESTAMP,
3928		PAID CHAR(1) DEFAULT 'n',
3929		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
3930	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
3930	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
3931		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
3932		ITEM_TYPE PRODTYPE,
3933		AGED COMPUTED BY (ship_date - order_date),
#	Line 3969 \| Line 3969 \| CREATE SEQUENCE EMP_NO_GEN;
3969		/* View: PHONE_LIST, Owner: SYSDBA */
3970
3971		CREATE VIEW PHONE_LIST (
3972	<	EMP_NO,
3973	<	FIRST_NAME,
3974	<	LAST_NAME,
3975	<	PHONE_EXT,
3976	<	LOCATION,
3972	>	EMP_NO,
3973	>	FIRST_NAME,
3974	>	LAST_NAME,
3975	>	PHONE_EXT,
3976	>	LOCATION,
3977		PHONE_NO
3978		) AS
3979		SELECT
#	Line 4071 \| Line 4071 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
4071		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
4072		COMMIT WORK;
4073		SET AUTODDL OFF;
4074	<	SET TERM ^ ;
4074	>	SET TERM ^;
4075
4076		/* Stored procedures Definitions*/
4077
#	Line 4088 \| Line 4088 \| RETURNS
4088		AS
4089		BEGIN SUSPEND; EXIT; END
4090		^
4091	+
4092		CREATE PROCEDURE ADD_EMP_PROJ
4093		(
4094		EMP_NO SMALLINT,
#	Line 4096 \| Line 4097 \| CREATE PROCEDURE ADD_EMP_PROJ
4097		AS
4098		BEGIN SUSPEND; EXIT; END
4099		^
4100	+
4101		CREATE PROCEDURE ALL_LANGS
4102		RETURNS
4103		(
#	Line 4107 \| Line 4109 \| RETURNS
4109		AS
4110		BEGIN SUSPEND; EXIT; END
4111		^
4112	+
4113		CREATE PROCEDURE DELETE_EMPLOYEE
4114		(
4115		EMP_NUM INTEGER
#	Line 4114 \| Line 4117 \| CREATE PROCEDURE DELETE_EMPLOYEE
4117		AS
4118		BEGIN SUSPEND; EXIT; END
4119		^
4120	+
4121		CREATE PROCEDURE DEPT_BUDGET
4122		(
4123		DNO CHAR(3) CHARACTER SET NONE
4124		)
4125		RETURNS
4126		(
4127	<	TOT DECIMAL(12, 2)
4127	>	TOT DECIMAL(12,2)
4128		)
4129		AS
4130		BEGIN SUSPEND; EXIT; END
4131		^
4132	+
4133		CREATE PROCEDURE GET_EMP_PROJ
4134		(
4135		EMP_NO SMALLINT
#	Line 4136 \| Line 4141 \| RETURNS
4141		AS
4142		BEGIN SUSPEND; EXIT; END
4143		^
4144	+
4145		CREATE PROCEDURE MAIL_LABEL
4146		(
4147		CUST_NO INTEGER
#	Line 4152 \| Line 4158 \| RETURNS
4158		AS
4159		BEGIN SUSPEND; EXIT; END
4160		^
4161	+
4162		CREATE PROCEDURE ORG_CHART
4163		RETURNS
4164		(
#	Line 4164 \| Line 4171 \| RETURNS
4171		AS
4172		BEGIN SUSPEND; EXIT; END
4173		^
4174	+
4175		CREATE PROCEDURE SHIP_ORDER
4176		(
4177		PO_NUM CHAR(8) CHARACTER SET NONE
#	Line 4171 \| Line 4179 \| CREATE PROCEDURE SHIP_ORDER
4179		AS
4180		BEGIN SUSPEND; EXIT; END
4181		^
4182	+
4183		CREATE PROCEDURE SUB_TOT_BUDGET
4184		(
4185		HEAD_DEPT CHAR(3) CHARACTER SET NONE
4186		)
4187		RETURNS
4188		(
4189	<	TOT_BUDGET DECIMAL(12, 2),
4190	<	AVG_BUDGET DECIMAL(12, 2),
4191	<	MIN_BUDGET DECIMAL(12, 2),
4192	<	MAX_BUDGET DECIMAL(12, 2)
4189	>	TOT_BUDGET DECIMAL(12,2),
4190	>	AVG_BUDGET DECIMAL(12,2),
4191	>	MIN_BUDGET DECIMAL(12,2),
4192	>	MAX_BUDGET DECIMAL(12,2)
4193		)
4194		AS
4195		BEGIN SUSPEND; EXIT; END
4196		^
4197	<	SET TERM ; ^
4197	>
4198	>	SET TERM ;^
4199		COMMIT WORK;
4200		SET AUTODDL ON;
4201	<	SET TERM ^ ;
4201	>	SET TERM ^;
4202
4203
4204		/* Triggers only will work for SQL triggers */
#	Line 4200 \| Line 4210 \| BEGIN
4210		if (new.cust_no is null) then
4211		new.cust_no = gen_id(cust_no_gen, 1);
4212		END
4213	<	^
4213	>	^
4214	>
4215		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
4216		ACTIVE BEFORE INSERT POSITION 0
4217		AS
#	Line 4208 \| Line 4219 \| BEGIN
4219		if (new.emp_no is null) then
4220		new.emp_no = gen_id(emp_no_gen, 1);
4221		END
4222	<	^
4222	>	^
4223	>
4224		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
4225		ACTIVE AFTER UPDATE POSITION 0
4226		AS
#	Line 4223 \| Line 4235 \| BEGIN
4235		old.salary,
4236		(new.salary - old.salary) * 100 / old.salary);
4237		END
4238	<	^
4238	>	^
4239	>
4240		CREATE TRIGGER POST_NEW_ORDER FOR SALES
4241		ACTIVE AFTER INSERT POSITION 0
4242		AS
4243		BEGIN
4244		POST_EVENT 'new_order';
4245		END
4246	<	^
4247	<	COMMIT WORK ^
4246	>	^
4247	>
4248	>	COMMIT WORK^
4249		SET TERM ;^
4250		COMMIT WORK;
4251		SET AUTODDL OFF;
4252	<	SET TERM ^ ;
4252	>	SET TERM ^;
4253
4254		/* Stored procedure Bodies */
4255
4242	–
4256		ALTER PROCEDURE SHOW_LANGS
4257		(
4258		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 4379 \| Line 4392 \| ALTER PROCEDURE DEPT_BUDGET
4392		)
4393		RETURNS
4394		(
4395	<	TOT DECIMAL(12, 2)
4395	>	TOT DECIMAL(12,2)
4396		)
4397		AS
4398		DECLARE VARIABLE sumb DECIMAL(12, 2);
#	Line 4609 \| Line 4622 \| ALTER PROCEDURE SUB_TOT_BUDGET
4622		)
4623		RETURNS
4624		(
4625	<	TOT_BUDGET DECIMAL(12, 2),
4626	<	AVG_BUDGET DECIMAL(12, 2),
4627	<	MIN_BUDGET DECIMAL(12, 2),
4628	<	MAX_BUDGET DECIMAL(12, 2)
4625	>	TOT_BUDGET DECIMAL(12,2),
4626	>	AVG_BUDGET DECIMAL(12,2),
4627	>	MIN_BUDGET DECIMAL(12,2),
4628	>	MAX_BUDGET DECIMAL(12,2)
4629		)
4630		AS
4631		BEGIN
#	Line 4623 \| Line 4636 \| BEGIN
4636		SUSPEND;
4637		END
4638		^
4639	<	SET TERM ; ^
4639	>
4640	>	SET TERM ;^
4641		COMMIT WORK;
4642		SET AUTODDL ON;
4643
#	Line 4667 \| Line 4681 \| SET AUTODDL ON;
4681
4682		CREATE DATABASE 'inet://localhost//tmp/ibx-testsuite/testsuite1.fdb' PAGE_SIZE 8192
4683
4684	<	DEFAULT CHARACTER SET NONE;
4684	>	DEFAULT CHARACTER SET NONE;
4685		COMMENT ON DATABASE IS 'Employee Test DB';
4686
4687		/* Domain definitions */
4688
4689		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
4690	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
4690	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
4691		DEFAULT 50000;
4692		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
4693		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 4689 \| Line 4703 \| CREATE DOMAIN PONUMBER AS CHAR(8);
4703		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
4704		DEFAULT 'software' NOT NULL;
4705		CREATE DOMAIN PROJNO AS CHAR(5);
4706	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
4706	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
4707		DEFAULT 0;
4708
4709		/* Table: COUNTRIES, Owner: SYSDBA */
4710
4711	<	CREATE TABLE COUNTRIES
4711	>	CREATE TABLE COUNTRIES
4712		(
4713		COUNTRY VARCHAR(64) NOT NULL,
4714		NONEU SMALLINT,
#	Line 4707 \| Line 4721 \| COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
4721
4722		/* Table: COUNTRY, Owner: SYSDBA */
4723
4724	<	CREATE TABLE COUNTRY
4724	>	CREATE TABLE COUNTRY
4725		(
4726		COUNTRY COUNTRYNAME NOT NULL,
4727		CURRENCY VARCHAR(10) NOT NULL,
#	Line 4716 \| Line 4730 \| PRIMARY KEY (COUNTRY)
4730
4731		/* Table: CUSTOMER, Owner: SYSDBA */
4732
4733	<	CREATE TABLE CUSTOMER
4733	>	CREATE TABLE CUSTOMER
4734		(
4735		CUST_NO CUSTNO NOT NULL,
4736		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 4736 \| Line 4750 \| PRIMARY KEY (CUST_NO)
4750
4751		/* Table: DEPARTMENT, Owner: SYSDBA */
4752
4753	<	CREATE TABLE DEPARTMENT
4753	>	CREATE TABLE DEPARTMENT
4754		(
4755		DEPT_NO DEPTNO NOT NULL,
4756		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 4751 \| Line 4765 \| PRIMARY KEY (DEPT_NO)
4765
4766		/* Table: EMPLOYEE, Owner: SYSDBA */
4767
4768	<	CREATE TABLE EMPLOYEE
4768	>	CREATE TABLE EMPLOYEE
4769		(
4770		EMP_NO EMPNO NOT NULL,
4771		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 4769 \| Line 4783 \| PRIMARY KEY (EMP_NO)
4783
4784		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
4785
4786	<	CREATE TABLE EMPLOYEE_PROJECT
4786	>	CREATE TABLE EMPLOYEE_PROJECT
4787		(
4788		EMP_NO EMPNO NOT NULL,
4789		PROJ_ID PROJNO NOT NULL,
#	Line 4778 \| Line 4792 \| PRIMARY KEY (EMP_NO, PROJ_ID)
4792
4793		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
4794
4795	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
4795	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
4796		(
4797		LINE_NUM INTEGER,
4798		CONTENT FB$OUT_TYPE
#	Line 4786 \| Line 4800 \| CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
4800
4801		/* Table: ITEST, Owner: SYSDBA */
4802
4803	<	CREATE TABLE ITEST
4803	>	CREATE TABLE ITEST
4804		(
4805		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0) NOT NULL,
4806		SOMETEXT VARCHAR(64),
#	Line 4795 \| Line 4809 \| PRIMARY KEY ("KEY")
4809
4810		/* Table: ITEST2, Owner: SYSDBA */
4811
4812	<	CREATE TABLE ITEST2
4812	>	CREATE TABLE ITEST2
4813		(
4814		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
4815		SOMETEXT VARCHAR(64),
#	Line 4804 \| Line 4818 \| PRIMARY KEY ("KEY")
4818		Error processing SQL statement: On Line 140 Character 1: Dynamic SQL Error
4819		-SQL error code = -104
4820		-Token unknown - line 3, column 63
4821	<	-INCREMENT When Executing: CREATE TABLE ITEST2
4821	>	-INCREMENT When Executing: CREATE TABLE ITEST2
4822		(
4823		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
4824		SOMETEXT VARCHAR(64),
4825		PRIMARY KEY ("KEY")
4826		)
4827	<	- for statement "CREATE TABLE ITEST2
4827	>	- for statement "CREATE TABLE ITEST2
4828		(
4829		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
4830		SOMETEXT VARCHAR(64),
#	Line 4819 \| Line 4833 \| PRIMARY KEY ("KEY")
4833
4834		/* Table: JOB, Owner: SYSDBA */
4835
4836	<	CREATE TABLE JOB
4836	>	CREATE TABLE JOB
4837		(
4838		JOB_CODE JOBCODE NOT NULL,
4839		JOB_GRADE JOBGRADE NOT NULL,
#	Line 4834 \| Line 4848 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
4848
4849		/* Table: PROJECT, Owner: SYSDBA */
4850
4851	<	CREATE TABLE PROJECT
4851	>	CREATE TABLE PROJECT
4852		(
4853		PROJ_ID PROJNO NOT NULL,
4854		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 4847 \| Line 4861 \| PRIMARY KEY (PROJ_ID)
4861
4862		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
4863
4864	<	CREATE TABLE PROJ_DEPT_BUDGET
4864	>	CREATE TABLE PROJ_DEPT_BUDGET
4865		(
4866		FISCAL_YEAR INTEGER NOT NULL,
4867		PROJ_ID PROJNO NOT NULL,
#	Line 4859 \| Line 4873 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
4873
4874		/* Table: SALARY_HISTORY, Owner: SYSDBA */
4875
4876	<	CREATE TABLE SALARY_HISTORY
4876	>	CREATE TABLE SALARY_HISTORY
4877		(
4878		EMP_NO EMPNO NOT NULL,
4879		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 4872 \| Line 4886 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
4886
4887		/* Table: SALES, Owner: SYSDBA */
4888
4889	<	CREATE TABLE SALES
4889	>	CREATE TABLE SALES
4890		(
4891		PO_NUMBER PONUMBER NOT NULL,
4892		CUST_NO CUSTNO NOT NULL,
#	Line 4883 \| Line 4897 \| CREATE TABLE SALES
4897		DATE_NEEDED TIMESTAMP,
4898		PAID CHAR(1) DEFAULT 'n',
4899		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
4900	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
4900	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
4901		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
4902		ITEM_TYPE PRODTYPE,
4903		AGED COMPUTED BY (ship_date - order_date),
#	Line 4896 \| Line 4910 \| DECLARE EXTERNAL FUNCTION ADDDAY
4910		TIMESTAMP, INTEGER
4911		RETURNS TIMESTAMP
4912		ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
4899	–
4913		;
4914
4915
4916		DECLARE EXTERNAL FUNCTION I64TRUNCATE
4917	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
4917	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
4918		RETURNS PARAMETER 2
4919		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
4907	–
4920		;
4921
4922
#	Line 4912 \| Line 4924 \| DECLARE EXTERNAL FUNCTION TESTIT
4924		TIMESTAMP, INTEGER NULL, CSTRING(10) CHARACTER SET NONE, CSTRING(10) CHARACTER SET NONE BY DESCRIPTOR
4925		RETURNS CSTRING(32) CHARACTER SET NONE FREE_IT
4926		ENTRY_POINT 'testit' MODULE_NAME 'fbudf'
4915	–
4927		;
4928
4929
#	Line 5654 \| Line 5665 \| ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1
5665		/* View: DEPTLIST, Owner: SYSDBA */
5666
5667		CREATE VIEW DEPTLIST (
5668	<	EMP_NO,
5669	<	FIRST_NAME,
5670	<	LAST_NAME,
5671	<	PHONE_EXT,
5672	<	HIRE_DATE,
5673	<	DEPT_NO,
5674	<	JOB_CODE,
5675	<	JOB_GRADE,
5676	<	JOB_COUNTRY,
5677	<	SALARY,
5678	<	FULL_NAME,
5679	<	DEPT_PATH,
5668	>	EMP_NO,
5669	>	FIRST_NAME,
5670	>	LAST_NAME,
5671	>	PHONE_EXT,
5672	>	HIRE_DATE,
5673	>	DEPT_NO,
5674	>	JOB_CODE,
5675	>	JOB_GRADE,
5676	>	JOB_COUNTRY,
5677	>	SALARY,
5678	>	FULL_NAME,
5679	>	DEPT_PATH,
5680		DEPT_KEY_PATH,
5681		"Payment Status"
5682		) AS
#	Line 5682 \| Line 5693 \| JOIN Depts On D.HEAD_DEPT = Depts.DEPT_N
5693
5694		Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,
5695		A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH,
5696	<	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
5696	>	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
5697		From EMPLOYEE A
5698		JOIN Depts D On D.DEPT_NO = A.DEPT_NO
5699		;
#	Line 5690 \| Line 5701 \| JOIN Depts D On D.DEPT_NO = A.DEPT_NO
5701		/* View: PHONE_LIST, Owner: SYSDBA */
5702
5703		CREATE VIEW PHONE_LIST (
5704	<	EMP_NO,
5705	<	FIRST_NAME,
5706	<	LAST_NAME,
5707	<	PHONE_EXT,
5708	<	LOCATION,
5704	>	EMP_NO,
5705	>	FIRST_NAME,
5706	>	LAST_NAME,
5707	>	PHONE_EXT,
5708	>	LOCATION,
5709		PHONE_NO
5710		) AS
5711		SELECT
#	Line 5796 \| Line 5807 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
5807		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
5808		COMMIT WORK;
5809		SET AUTODDL OFF;
5810	<	SET TERM ^ ;
5810	>	SET TERM ^;
5811
5812		/* Package Definitions */
5813
5814	<	CREATE PACKAGE FB$OUT
5814	>	CREATE PACKAGE FB$OUT
5815		AS
5805	–
5816		begin
5817		procedure enable;
5818		procedure disable;
#	Line 5814 \| Line 5824 \| begin
5824		end
5825		^
5826
5827	<	CREATE PACKAGE SELECT$TEST
5827	>	CREATE PACKAGE SELECT$TEST
5828		AS
5819	–
5829		Begin
5830		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer);
5831		End
#	Line 5827 \| Line 5836 \| COMMIT WORK;
5836		SET AUTODDL ON;
5837		COMMIT WORK;
5838		SET AUTODDL OFF;
5839	<	SET TERM ^ ;
5839	>	SET TERM ^;
5840
5841		/* Stored procedures Definitions*/
5842
5843	<	CREATE PROCEDURE SHOW_LANGS
5843	>	CREATE PROCEDURE SHOW_LANGS
5844		(
5845		CODE VARCHAR(5) CHARACTER SET NONE,
5846		GRADE SMALLINT,
#	Line 5843 \| Line 5852 \| RETURNS
5852		)
5853		AS
5854		BEGIN SUSPEND; EXIT; END
5846	–
5855		^
5856
5857	<	CREATE PROCEDURE ADD_EMP_PROJ
5857	>	CREATE PROCEDURE ADD_EMP_PROJ
5858		(
5859		EMP_NO SMALLINT,
5860		PROJ_ID CHAR(5) CHARACTER SET NONE
5861		)
5862		AS
5863		BEGIN EXIT; END
5856	–
5864		^
5865
5866	<	CREATE PROCEDURE ALL_LANGS
5866	>	CREATE PROCEDURE ALL_LANGS
5867		RETURNS
5868		(
5869		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 5866 \| Line 5873 \| RETURNS
5873		)
5874		AS
5875		BEGIN SUSPEND; EXIT; END
5869	–
5876		^
5877
5878	<	CREATE PROCEDURE DELETE_EMPLOYEE
5878	>	CREATE PROCEDURE DELETE_EMPLOYEE
5879		(
5880		EMP_NUM INTEGER
5881		)
5882		AS
5883		BEGIN EXIT; END
5878	–
5884		^
5885
5886	<	CREATE PROCEDURE DEPT_BUDGET
5886	>	CREATE PROCEDURE DEPT_BUDGET
5887		(
5888		DNO CHAR(3) CHARACTER SET NONE
5889		)
5890		RETURNS
5891		(
5892	<	TOT DECIMAL(12, 2)
5892	>	TOT DECIMAL(12,2)
5893		)
5894		AS
5895		BEGIN SUSPEND; EXIT; END
5891	–
5896		^
5897
5898		CREATE PROCEDURE EMPLOYEE_PAY_STATUS
5899		(
5900	<	EMP_NO SMALLINT
5900	>	EMP_NUM SMALLINT
5901		)
5902		RETURNS
5903		(
5904	<	PAY_STATUS VARCHAR(6) CHARACTER SET NONE
5904	>	PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
5905	>	SALARY NUMERIC(10,2)
5906		)
5907		AS
5908		BEGIN EXIT; END
5904	–
5909		^
5910
5911	<
5908	<	CREATE PROCEDURE GET_EMP_PROJ
5911	>	CREATE PROCEDURE GET_EMP_PROJ
5912		(
5913		EMP_NO SMALLINT
5914		)
#	Line 5915 \| Line 5918 \| RETURNS
5918		)
5919		AS
5920		BEGIN SUSPEND; EXIT; END
5918	–
5921		^
5922
5923	<	CREATE PROCEDURE "Has Space"
5923	>	CREATE PROCEDURE "Has Space"
5924		(
5925		ARG1 INTEGER
5926		)
5927		AS
5928		BEGIN EXIT; END
5927	–
5929		^
5930
5931	<	CREATE PROCEDURE MAIL_LABEL
5931	>	CREATE PROCEDURE MAIL_LABEL
5932		(
5933		CUST_NO INTEGER
5934		)
#	Line 5942 \| Line 5943 \| RETURNS
5943		)
5944		AS
5945		BEGIN SUSPEND; EXIT; END
5945	–
5946		^
5947
5948	<	CREATE PROCEDURE ORG_CHART
5948	>	CREATE PROCEDURE ORG_CHART
5949		RETURNS
5950		(
5951		HEAD_DEPT CHAR(25) CHARACTER SET NONE,
#	Line 5956 \| Line 5956 \| RETURNS
5956		)
5957		AS
5958		BEGIN SUSPEND; EXIT; END
5959	–
5959		^
5960
5961	<	CREATE PROCEDURE SHIP_ORDER
5961	>	CREATE PROCEDURE SHIP_ORDER
5962		(
5963		PO_NUM CHAR(8) CHARACTER SET NONE
5964		)
5965		AS
5966		BEGIN EXIT; END
5968	–
5967		^
5968
5969	<	CREATE PROCEDURE SUB_TOT_BUDGET
5969	>	CREATE PROCEDURE SUB_TOT_BUDGET
5970		(
5971		HEAD_DEPT CHAR(3) CHARACTER SET NONE
5972		)
5973		RETURNS
5974		(
5975	<	TOT_BUDGET DECIMAL(12, 2),
5976	<	AVG_BUDGET DECIMAL(12, 2),
5977	<	MIN_BUDGET DECIMAL(12, 2),
5978	<	MAX_BUDGET DECIMAL(12, 2)
5975	>	TOT_BUDGET DECIMAL(12,2),
5976	>	AVG_BUDGET DECIMAL(12,2),
5977	>	MIN_BUDGET DECIMAL(12,2),
5978	>	MAX_BUDGET DECIMAL(12,2)
5979		)
5980		AS
5981		BEGIN SUSPEND; EXIT; END
5984	–
5982		^
5983
5984	<	CREATE PROCEDURE "UC SPACE"
5984	>	CREATE PROCEDURE "UC SPACE"
5985		(
5986		ARG1 INTEGER
5987		)
5988		AS
5989		BEGIN EXIT; END
5993	–
5990		^
5991
5992	<	CREATE PROCEDURE "iCASE"
5992	>	CREATE PROCEDURE "iCASE"
5993		AS
5994		BEGIN EXIT; END
5999	–
5995		^
5996
5997		SET TERM ;^
#	Line 6004 \| Line 5999 \| COMMIT WORK;
5999		SET AUTODDL ON;
6000		COMMIT WORK;
6001		SET AUTODDL OFF;
6002	<	SET TERM ^ ;
6002	>	SET TERM ^;
6003
6004		/* Stored Function declarations */
6005
6006		CREATE FUNCTION F (X INTEGER)
6007		RETURNS INTEGER
6008		AS BEGIN END
6014	–
6009		^
6010
6017	–
6011		SET TERM ;^
6012		COMMIT WORK;
6013		SET AUTODDL ON;
6014	<	SET TERM ^ ;
6014	>	SET TERM ^;
6015
6016
6017		/* Triggers only will work for SQL triggers */
#	Line 6029 \| Line 6022 \| as
6022		begin
6023		End
6024		^
6025	+
6026		CREATE TRIGGER "BEFORE CREATE TABLE"
6027		ACTIVE BEFORE CREATE TABLE POSITION 0
6028		AS BEGIN END
6029		^
6030	+
6031		CREATE TRIGGER "AFTER CREATE TABLE"
6032		ACTIVE AFTER CREATE TABLE POSITION 0
6033		AS BEGIN END
6034		^
6035	+
6036		CREATE TRIGGER "BEFORE ALTER TABLE"
6037		ACTIVE BEFORE ALTER TABLE POSITION 0
6038		AS BEGIN END
6039		^
6040	+
6041		CREATE TRIGGER "AFTER ALTER TABLE"
6042		ACTIVE AFTER ALTER TABLE POSITION 0
6043		AS BEGIN END
6044		^
6045	+
6046		CREATE TRIGGER "AFTER CREATE/Alter TABLE"
6047		ACTIVE AFTER CREATE TABLE OR ALTER TABLE POSITION 0
6048		AS BEGIN END
6049		^
6050	+
6051		CREATE TRIGGER "BEFORE DROP TABLE"
6052		ACTIVE BEFORE Drop TABLE POSITION 0
6053		AS BEGIN END
6054		^
6055	+
6056		CREATE TRIGGER "AFTER DROP TABLE"
6057		ACTIVE AFTER Drop TABLE POSITION 0
6058		AS BEGIN END
6059		^
6060	+
6061		CREATE TRIGGER "BEFORE CREATE PROCEDURE"
6062		ACTIVE BEFORE CREATE PROCEDURE POSITION 0
6063		AS BEGIN END
6064		^
6065	+
6066		CREATE TRIGGER "AFTER CREATE PROCEDURE"
6067		ACTIVE AFTER CREATE PROCEDURE POSITION 0
6068		AS BEGIN END
6069		^
6070	+
6071		CREATE TRIGGER "BEFORE ALTER PROCEDURE"
6072		ACTIVE BEFORE ALTER PROCEDURE POSITION 0
6073		AS BEGIN END
6074		^
6075	+
6076		CREATE TRIGGER "AFTER ALTER PROCEDURE"
6077		ACTIVE AFTER ALTER PROCEDURE POSITION 0
6078		AS BEGIN END
6079		^
6080	+
6081		CREATE TRIGGER "BEFORE DROP PROCEDURE"
6082		ACTIVE BEFORE Drop PROCEDURE POSITION 0
6083		AS BEGIN END
6084		^
6085	+
6086		CREATE TRIGGER "AFTER DROP PROCEDURE"
6087		ACTIVE AFTER Drop PROCEDURE POSITION 0
6088		AS BEGIN END
6089		^
6090	+
6091		CREATE TRIGGER "BEFORE CREATE FUNCTION"
6092		ACTIVE BEFORE CREATE FUNCTION POSITION 0
6093		AS BEGIN END
6094		^
6095	+
6096		CREATE TRIGGER "AFTER CREATE FUNCTION"
6097		ACTIVE AFTER CREATE FUNCTION POSITION 0
6098		AS BEGIN END
6099		^
6100	+
6101		CREATE TRIGGER "BEFORE ALTER FUNCTION"
6102		ACTIVE BEFORE ALTER FUNCTION POSITION 0
6103		AS BEGIN END
6104		^
6105	+
6106		CREATE TRIGGER "AFTER ALTER FUNCTION"
6107		ACTIVE AFTER ALTER FUNCTION POSITION 0
6108		AS BEGIN END
6109		^
6110	+
6111		CREATE TRIGGER "BEFORE DROP FUNCTION"
6112		ACTIVE BEFORE Drop FUNCTION POSITION 0
6113		AS BEGIN END
6114		^
6115	+
6116		CREATE TRIGGER "AFTER DROP FUNCTION"
6117		ACTIVE AFTER Drop FUNCTION POSITION 0
6118		AS BEGIN END
6119		^
6120	+
6121		CREATE TRIGGER "BEFORE CREATE TRIGGER"
6122		ACTIVE BEFORE CREATE TRIGGER POSITION 0
6123		AS BEGIN END
6124		^
6125	+
6126		CREATE TRIGGER "AFTER CREATE TRIGGER"
6127		ACTIVE AFTER CREATE TRIGGER POSITION 0
6128		AS BEGIN END
6129		^
6130	+
6131		CREATE TRIGGER "BEFORE ALTER TRIGGER"
6132		ACTIVE BEFORE ALTER TRIGGER POSITION 0
6133		AS BEGIN END
6134		^
6135	+
6136		CREATE TRIGGER "AFTER ALTER TRIGGER"
6137		ACTIVE AFTER ALTER TRIGGER POSITION 0
6138		AS BEGIN END
6139		^
6140	+
6141		CREATE TRIGGER "BEFORE DROP TRIGGER"
6142		ACTIVE BEFORE Drop TRIGGER POSITION 0
6143		AS BEGIN END
6144		^
6145	+
6146		CREATE TRIGGER "AFTER DROP TRIGGER"
6147		ACTIVE AFTER Drop TRIGGER POSITION 0
6148		AS BEGIN END
6149		^
6150	+
6151		CREATE TRIGGER "BEFORE CREATE EXCEPTION"
6152		ACTIVE BEFORE CREATE EXCEPTION POSITION 0
6153		AS BEGIN END
6154		^
6155	+
6156		CREATE TRIGGER "AFTER CREATE EXCEPTION"
6157		ACTIVE AFTER CREATE EXCEPTION POSITION 0
6158		AS BEGIN END
6159		^
6160	+
6161		CREATE TRIGGER "BEFORE ALTER EXCEPTION"
6162		ACTIVE BEFORE ALTER EXCEPTION POSITION 0
6163		AS BEGIN END
6164		^
6165	+
6166		CREATE TRIGGER "AFTER ALTER EXCEPTION"
6167		ACTIVE AFTER ALTER EXCEPTION POSITION 0
6168		AS BEGIN END
6169		^
6170	+
6171		CREATE TRIGGER "BEFORE DROP EXCEPTION"
6172		ACTIVE BEFORE Drop EXCEPTION POSITION 0
6173		AS BEGIN END
6174		^
6175	+
6176		CREATE TRIGGER "AFTER DROP EXCEPTION"
6177		ACTIVE AFTER Drop EXCEPTION POSITION 0
6178		AS BEGIN END
6179		^
6180	+
6181		CREATE TRIGGER "BEFORE CREATE VIEW"
6182		ACTIVE BEFORE CREATE VIEW POSITION 0
6183		AS BEGIN END
6184		^
6185	+
6186		CREATE TRIGGER "AFTER CREATE VIEW"
6187		ACTIVE AFTER CREATE VIEW POSITION 0
6188		AS BEGIN END
6189		^
6190	+
6191		CREATE TRIGGER "BEFORE ALTER VIEW"
6192		ACTIVE BEFORE ALTER VIEW POSITION 0
6193		AS BEGIN END
6194		^
6195	+
6196		CREATE TRIGGER "AFTER ALTER VIEW"
6197		ACTIVE AFTER ALTER VIEW POSITION 0
6198		AS BEGIN END
6199		^
6200	+
6201		CREATE TRIGGER "BEFORE DROP VIEW"
6202		ACTIVE BEFORE Drop VIEW POSITION 0
6203		AS BEGIN END
6204		^
6205	+
6206		CREATE TRIGGER "AFTER DROP VIEW"
6207		ACTIVE AFTER Drop VIEW POSITION 0
6208		AS BEGIN END
6209		^
6210	+
6211		CREATE TRIGGER "BEFORE CREATE DOMAIN"
6212		ACTIVE BEFORE CREATE DOMAIN POSITION 0
6213		AS BEGIN END
6214		^
6215	+
6216		CREATE TRIGGER "AFTER CREATE DOMAIN"
6217		ACTIVE AFTER CREATE DOMAIN POSITION 0
6218		AS BEGIN END
6219		^
6220	+
6221		CREATE TRIGGER "BEFORE ALTER DOMAIN"
6222		ACTIVE BEFORE ALTER DOMAIN POSITION 0
6223		AS BEGIN END
6224		^
6225	+
6226		CREATE TRIGGER "AFTER ALTER DOMAIN"
6227		ACTIVE AFTER ALTER DOMAIN POSITION 0
6228		AS BEGIN END
6229		^
6230	+
6231		CREATE TRIGGER "BEFORE DROP DOMAIN"
6232		ACTIVE BEFORE Drop DOMAIN POSITION 0
6233		AS BEGIN END
6234		^
6235	+
6236		CREATE TRIGGER "AFTER DROP DOMAIN"
6237		ACTIVE AFTER Drop DOMAIN POSITION 0
6238		AS BEGIN END
6239		^
6240	+
6241		CREATE TRIGGER "BEFORE CREATE ROLE"
6242		ACTIVE BEFORE CREATE ROLE POSITION 0
6243		AS BEGIN END
6244		^
6245	+
6246		CREATE TRIGGER "AFTER CREATE ROLE"
6247		ACTIVE AFTER CREATE ROLE POSITION 0
6248		AS BEGIN END
6249		^
6250	+
6251		CREATE TRIGGER "BEFORE ALTER ROLE"
6252		ACTIVE BEFORE ALTER ROLE POSITION 0
6253		AS BEGIN END
6254		^
6255	+
6256		CREATE TRIGGER "AFTER ALTER ROLE"
6257		ACTIVE AFTER ALTER ROLE POSITION 0
6258		AS BEGIN END
6259		^
6260	+
6261		CREATE TRIGGER "BEFORE DROP ROLE"
6262		ACTIVE BEFORE Drop ROLE POSITION 0
6263		AS BEGIN END
6264		^
6265	+
6266		CREATE TRIGGER "AFTER DROP ROLE"
6267		ACTIVE AFTER Drop ROLE POSITION 0
6268		AS BEGIN END
6269		^
6270	+
6271		CREATE TRIGGER "BEFORE CREATE INDEX"
6272		ACTIVE BEFORE CREATE INDEX POSITION 0
6273		AS BEGIN END
6274		^
6275	+
6276		CREATE TRIGGER "AFTER CREATE INDEX"
6277		ACTIVE AFTER CREATE INDEX POSITION 0
6278		AS BEGIN END
6279		^
6280	+
6281		CREATE TRIGGER "BEFORE ALTER INDEX"
6282		ACTIVE BEFORE ALTER INDEX POSITION 0
6283		AS BEGIN END
6284		^
6285	+
6286		CREATE TRIGGER "AFTER ALTER INDEX"
6287		ACTIVE AFTER ALTER INDEX POSITION 0
6288		AS BEGIN END
6289		^
6290	+
6291		CREATE TRIGGER "BEFORE DROP INDEX"
6292		ACTIVE BEFORE Drop INDEX POSITION 0
6293		AS BEGIN END
6294		^
6295	+
6296		CREATE TRIGGER "AFTER DROP INDEX"
6297		ACTIVE AFTER Drop INDEX POSITION 0
6298		AS BEGIN END
6299		^
6300	+
6301		CREATE TRIGGER "BEFORE CREATE SEQUENCE"
6302		ACTIVE BEFORE CREATE SEQUENCE POSITION 0
6303		AS BEGIN END
6304		^
6305	+
6306		CREATE TRIGGER "AFTER CREATE SEQUENCE"
6307		ACTIVE AFTER CREATE SEQUENCE POSITION 0
6308		AS BEGIN END
6309		^
6310	+
6311		CREATE TRIGGER "BEFORE ALTER SEQUENCE"
6312		ACTIVE BEFORE ALTER SEQUENCE POSITION 0
6313		AS BEGIN END
6314		^
6315	+
6316		CREATE TRIGGER "AFTER ALTER SEQUENCE"
6317		ACTIVE AFTER ALTER SEQUENCE POSITION 0
6318		AS BEGIN END
6319		^
6320	+
6321		CREATE TRIGGER "BEFORE DROP SEQUENCE"
6322		ACTIVE BEFORE Drop SEQUENCE POSITION 0
6323		AS BEGIN END
6324		^
6325	+
6326		CREATE TRIGGER "AFTER DROP SEQUENCE"
6327		ACTIVE AFTER Drop SEQUENCE POSITION 0
6328		AS BEGIN END
6329		^
6330	+
6331		CREATE TRIGGER "BEFORE CREATE USER"
6332		ACTIVE BEFORE CREATE USER POSITION 0
6333		AS BEGIN END
6334		^
6335	+
6336		CREATE TRIGGER "AFTER CREATE USER"
6337		ACTIVE AFTER CREATE USER POSITION 0
6338		AS BEGIN END
6339		^
6340	+
6341		CREATE TRIGGER "BEFORE ALTER USER"
6342		ACTIVE BEFORE ALTER USER POSITION 0
6343		AS BEGIN END
6344		^
6345	+
6346		CREATE TRIGGER "AFTER ALTER USER"
6347		ACTIVE AFTER ALTER USER POSITION 0
6348		AS BEGIN END
6349		^
6350	+
6351		CREATE TRIGGER "BEFORE DROP USER"
6352		ACTIVE BEFORE Drop USER POSITION 0
6353		AS BEGIN END
6354		^
6355	+
6356		CREATE TRIGGER "AFTER DROP USER"
6357		ACTIVE AFTER Drop USER POSITION 0
6358		AS BEGIN END
6359		^
6360	+
6361		CREATE TRIGGER "BEFORE CREATE COLLATION"
6362		ACTIVE BEFORE CREATE COLLATION POSITION 0
6363		AS BEGIN END
6364		^
6365	+
6366		CREATE TRIGGER "AFTER CREATE COLLATION"
6367		ACTIVE AFTER CREATE COLLATION POSITION 0
6368		AS BEGIN END
6369		^
6370	+
6371		CREATE TRIGGER "BEFORE DROP COLLATION"
6372		ACTIVE BEFORE Drop COLLATION POSITION 0
6373		AS BEGIN END
6374		^
6375	+
6376		CREATE TRIGGER "AFTER DROP COLLATION"
6377		ACTIVE AFTER Drop COLLATION POSITION 0
6378		AS BEGIN END
6379		^
6380	+
6381		CREATE TRIGGER "BEFORE ALTER CHARACTER SET"
6382		ACTIVE BEFORE ALTER CHARACTER SET POSITION 0
6383		AS BEGIN END
6384		^
6385	+
6386		CREATE TRIGGER "AFTER ALTER CHARACTER SET"
6387		ACTIVE AFTER ALTER CHARACTER SET POSITION 0
6388		AS BEGIN END
6389		^
6390	+
6391		CREATE TRIGGER "BEFORE CREATE PACKAGE"
6392		ACTIVE BEFORE CREATE PACKAGE POSITION 0
6393		AS BEGIN END
6394		^
6395	+
6396		CREATE TRIGGER "AFTER CREATE PACKAGE"
6397		ACTIVE AFTER CREATE PACKAGE POSITION 0
6398		AS BEGIN END
6399		^
6400	+
6401		CREATE TRIGGER "BEFORE ALTER PACKAGE"
6402		ACTIVE BEFORE ALTER PACKAGE POSITION 0
6403		AS BEGIN END
6404		^
6405	+
6406		CREATE TRIGGER "AFTER ALTER PACKAGE"
6407		ACTIVE AFTER ALTER PACKAGE POSITION 0
6408		AS BEGIN END
6409		^
6410	+
6411		CREATE TRIGGER "BEFORE DROP PACKAGE"
6412		ACTIVE BEFORE Drop PACKAGE POSITION 0
6413		AS BEGIN END
6414		^
6415	+
6416		CREATE TRIGGER "AFTER DROP PACKAGE"
6417		ACTIVE AFTER Drop PACKAGE POSITION 0
6418		AS BEGIN END
6419		^
6420	+
6421		CREATE TRIGGER "BEFORE CREATE PACKAGE BODY"
6422		ACTIVE BEFORE CREATE PACKAGE BODY POSITION 0
6423		AS BEGIN END
6424		^
6425	+
6426		CREATE TRIGGER "AFTER CREATE PACKAGE BODY"
6427		ACTIVE AFTER CREATE PACKAGE BODY POSITION 0
6428		AS BEGIN END
6429		^
6430	+
6431		CREATE TRIGGER "BEFORE DROP PACKAGE BODY"
6432		ACTIVE BEFORE Drop PACKAGE BODY POSITION 0
6433		AS BEGIN END
6434		^
6435	+
6436		CREATE TRIGGER "AFTER DROP PACKAGE BODY"
6437		ACTIVE AFTER Drop PACKAGE BODY POSITION 0
6438		AS BEGIN END
6439		^
6440	+
6441		CREATE TRIGGER "BEFORE ANY DDL STATEMENT"
6442		ACTIVE BEFORE ANY DDL STATEMENT POSITION 0
6443		AS BEGIN END
6444		^
6445	+
6446		CREATE TRIGGER "AFTER ANY DDL STATEMENT"
6447		ACTIVE AFTER ANY DDL STATEMENT POSITION 0
6448		AS BEGIN END
6449		^
6450	+
6451		CREATE TRIGGER SET_CUST_NO FOR CUSTOMER
6452		ACTIVE BEFORE INSERT POSITION 0
6453		AS
#	Line 6377 \| Line 6456 \| BEGIN
6456		new.cust_no = gen_id(cust_no_gen, 1);
6457		END
6458		^
6459	+
6460		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
6461		ACTIVE BEFORE INSERT POSITION 0
6462		AS
#	Line 6385 \| Line 6465 \| BEGIN
6465		new.emp_no = gen_id(emp_no_gen, 1);
6466		END
6467		^
6468	+
6469		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
6470		ACTIVE AFTER UPDATE POSITION 0
6471		AS
#	Line 6400 \| Line 6481 \| BEGIN
6481		(new.salary - old.salary) * 100 / old.salary);
6482		END
6483		^
6484	+
6485		CREATE TRIGGER POST_NEW_ORDER FOR SALES
6486		ACTIVE AFTER INSERT POSITION 0
6487		AS
#	Line 6407 \| Line 6489 \| BEGIN
6489		POST_EVENT 'new_order';
6490		END
6491		^
6492	+
6493		COMMIT WORK^
6494		SET TERM ;^
6495		COMMIT WORK;
6496		SET AUTODDL OFF;
6497	<	SET TERM ^ ;
6497	>	SET TERM ^;
6498
6499		/* Package Definitions */
6500
6501	<	CREATE PACKAGE BODY FB$OUT
6501	>	CREATE PACKAGE BODY FB$OUT
6502		AS
6420	–
6503		begin
6504		procedure enable
6505		as
#	Line 6474 \| Line 6556 \| begin
6556		end
6557		^
6558
6559	<	CREATE PACKAGE BODY SELECT$TEST
6559	>	CREATE PACKAGE BODY SELECT$TEST
6560		AS
6479	–
6561		Begin
6562		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer)
6563		As
#	Line 6491 \| Line 6572 \| COMMIT WORK;
6572		SET AUTODDL ON;
6573		COMMIT WORK;
6574		SET AUTODDL OFF;
6575	<	SET TERM ^ ;
6575	>	SET TERM ^;
6576
6577		/* Stored procedure Bodies */
6578
6579	<
6499	<	ALTER PROCEDURE SHOW_LANGS
6579	>	ALTER PROCEDURE SHOW_LANGS
6580		(
6581		CODE VARCHAR(5) CHARACTER SET NONE,
6582		GRADE SMALLINT,
#	Line 6517 \| Line 6597 \| BEGIN
6597		AND (language_req IS NOT NULL))
6598		INTO :languages;
6599		IF (languages = ' ') THEN /* Prints 'NULL' instead of blanks */
6600	<	languages = 'NULL';
6600	>	languages = 'NULL';
6601		i = i +1;
6602		SUSPEND;
6603		END
6604		END
6605		^
6606
6607	<
6528	<	ALTER PROCEDURE ADD_EMP_PROJ
6607	>	ALTER PROCEDURE ADD_EMP_PROJ
6608		(
6609		EMP_NO SMALLINT,
6610		PROJ_ID CHAR(5) CHARACTER SET NONE
#	Line 6540 \| Line 6619 \| BEGIN
6619		END
6620		^
6621
6622	<	ALTER PROCEDURE ALL_LANGS
6622	>	ALTER PROCEDURE ALL_LANGS
6623		RETURNS
6624		(
6625		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 6550 \| Line 6629 \| RETURNS
6629		)
6630		AS
6631		BEGIN
6632	<	FOR SELECT job_code, job_grade, job_country FROM job
6632	>	FOR SELECT job_code, job_grade, job_country FROM job
6633		INTO :code, :grade, :country
6634
6635		DO
6636		BEGIN
6637	<	FOR SELECT languages FROM show_langs
6637	>	FOR SELECT languages FROM show_langs
6638		(:code, :grade, :country) INTO :lang DO
6639		SUSPEND;
6640		/* Put nice separators between rows */
#	Line 6568 \| Line 6647 \| BEGIN
6647		END
6648		^
6649
6650	<
6572	<	ALTER PROCEDURE DELETE_EMPLOYEE
6650	>	ALTER PROCEDURE DELETE_EMPLOYEE
6651		(
6652		EMP_NUM INTEGER
6653		)
#	Line 6628 \| Line 6706 \| BEGIN
6706		END
6707		^
6708
6709	<
6632	<	ALTER PROCEDURE DEPT_BUDGET
6709	>	ALTER PROCEDURE DEPT_BUDGET
6710		(
6711		DNO CHAR(3) CHARACTER SET NONE
6712		)
6713		RETURNS
6714		(
6715	<	TOT DECIMAL(12, 2)
6715	>	TOT DECIMAL(12,2)
6716		)
6717		AS
6718	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
6718	>	DECLARE VARIABLE sumb DECIMAL(12,2);
6719		DECLARE VARIABLE rdno CHAR(3);
6720		DECLARE VARIABLE cnt INTEGER;
6721		BEGIN
#	Line 6675 \| Line 6752 \| RETURNS
6752		SALARY NUMERIC(10,2)
6753		)
6754		AS
6755	<	BEGIN
6756	<	Select SALARY, Case
6757	<	When SALARY > 10000 and SALARY <= 100000 then 'higher'
6758	<	When SALARY > 100000 then 'gross'
6759	<	else 'lower' End
6760	<	From employee
6761	<	WHERE emp_no = :EMP_NUM
6755	>	Declare aCursor CURSOR FOR (
6756	>	Select EMP_NO,SALARY From EMPLOYEE WHERE LAST_NAME = 'unknown');
6757	>	BEGIN
6758	>	Select SALARY, Case
6759	>	When SALARY > 10000 and SALARY <= 100000 then 'higher'
6760	>	When SALARY > 100000 then 'gross'
6761	>	else 'lower' End
6762	>	From employee
6763	>	WHERE emp_no = :EMP_NUM
6764		into :SALARY, :PAY_STATUS;
6765		END
6766		^
6767
6768	<	ALTER PROCEDURE GET_EMP_PROJ
6768	>	ALTER PROCEDURE GET_EMP_PROJ
6769		(
6770		EMP_NO SMALLINT
6771		)
#	Line 6705 \| Line 6784 \| BEGIN
6784		END
6785		^
6786
6787	<
6709	<	ALTER PROCEDURE "Has Space"
6787	>	ALTER PROCEDURE "Has Space"
6788		(
6789		ARG1 INTEGER
6790		)
#	Line 6714 \| Line 6792 \| AS
6792		Begin End
6793		^
6794
6795	<
6718	<	ALTER PROCEDURE MAIL_LABEL
6795	>	ALTER PROCEDURE MAIL_LABEL
6796		(
6797		CUST_NO INTEGER
6798		)
#	Line 6785 \| Line 6862 \| BEGIN
6862		END
6863		^
6864
6865	<
6789	<	ALTER PROCEDURE ORG_CHART
6865	>	ALTER PROCEDURE ORG_CHART
6866		RETURNS
6867		(
6868		HEAD_DEPT CHAR(25) CHARACTER SET NONE,
#	Line 6828 \| Line 6904 \| BEGIN
6904		END
6905		^
6906
6907	<
6832	<	ALTER PROCEDURE SHIP_ORDER
6907	>	ALTER PROCEDURE SHIP_ORDER
6908		(
6909		PO_NUM CHAR(8) CHARACTER SET NONE
6910		)
#	Line 6888 \| Line 6963 \| BEGIN
6963		END
6964		^
6965
6966	<
6892	<	ALTER PROCEDURE SUB_TOT_BUDGET
6966	>	ALTER PROCEDURE SUB_TOT_BUDGET
6967		(
6968		HEAD_DEPT CHAR(3) CHARACTER SET NONE
6969		)
6970		RETURNS
6971		(
6972	<	TOT_BUDGET DECIMAL(12, 2),
6973	<	AVG_BUDGET DECIMAL(12, 2),
6974	<	MIN_BUDGET DECIMAL(12, 2),
6975	<	MAX_BUDGET DECIMAL(12, 2)
6972	>	TOT_BUDGET DECIMAL(12,2),
6973	>	AVG_BUDGET DECIMAL(12,2),
6974	>	MIN_BUDGET DECIMAL(12,2),
6975	>	MAX_BUDGET DECIMAL(12,2)
6976		)
6977		AS
6978		BEGIN
#	Line 6910 \| Line 6984 \| BEGIN
6984		END
6985		^
6986
6987	<
6914	<	ALTER PROCEDURE "UC SPACE"
6987	>	ALTER PROCEDURE "UC SPACE"
6988		(
6989		ARG1 INTEGER
6990		)
#	Line 6919 \| Line 6992 \| AS
6992		Begin End
6993		^
6994
6995	<
6923	<	ALTER PROCEDURE "iCASE"
6995	>	ALTER PROCEDURE "iCASE"
6996		AS
6997		Begin End
6998		^
#	Line 6930 \| Line 7002 \| COMMIT WORK;
7002		SET AUTODDL ON;
7003		COMMIT WORK;
7004		SET AUTODDL OFF;
7005	<	SET TERM ^ ;
7005	>	SET TERM ^;
7006
7007		/* Stored Function Body */
7008
7009		ALTER FUNCTION F (X INTEGER)
7010		RETURNS INTEGER
7011	<	AS
7011	>	AS
7012		BEGIN
7013		RETURN X+1;
7014		END
7015		^
7016
6945	–
7017		SET TERM ;^
7018		COMMIT WORK;
7019		SET AUTODDL ON;
#	Line 6957 \| Line 7028 \| COMMENT ON CHARACTER SET UTF8 IS 'Defaul
7028		/* Role: TESTROLE, Owner: SYSDBA */
7029
7030		CREATE ROLE TESTROLE SET SYSTEM PRIVILEGES TO CREATE_DATABASE;
7031	<	Error processing SQL statement: On Line 2281 Character 1: Dynamic SQL Error
7031	>	Error processing SQL statement: On Line 2338 Character 1: Dynamic SQL Error
7032		-SQL error code = -104
7033		-Token unknown - line 1, column 22
7034		-SET When Executing: CREATE ROLE TESTROLE SET SYSTEM PRIVILEGES TO CREATE_DATABASE
#	Line 7025 \| Line 7096 \| COMMENT ON DATABASE IS 'Employee Test D
7096		/* Domain definitions */
7097
7098		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
7099	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
7099	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
7100		DEFAULT 50000;
7101		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
7102		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 7041 \| Line 7112 \| CREATE DOMAIN PONUMBER AS CHAR(8);
7112		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
7113		DEFAULT 'software' NOT NULL;
7114		CREATE DOMAIN PROJNO AS CHAR(5);
7115	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
7115	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
7116		DEFAULT 0;
7117
7118		/* Table: COUNTRIES, Owner: SYSDBA */
7119
7120	<	CREATE TABLE COUNTRIES
7120	>	CREATE TABLE COUNTRIES
7121		(
7122		COUNTRY VARCHAR(64) NOT NULL,
7123		NONEU SMALLINT,
#	Line 7059 \| Line 7130 \| COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
7130
7131		/* Table: COUNTRY, Owner: SYSDBA */
7132
7133	<	CREATE TABLE COUNTRY
7133	>	CREATE TABLE COUNTRY
7134		(
7135		COUNTRY COUNTRYNAME NOT NULL,
7136		CURRENCY VARCHAR(10) NOT NULL,
#	Line 7068 \| Line 7139 \| PRIMARY KEY (COUNTRY)
7139
7140		/* Table: CUSTOMER, Owner: SYSDBA */
7141
7142	<	CREATE TABLE CUSTOMER
7142	>	CREATE TABLE CUSTOMER
7143		(
7144		CUST_NO CUSTNO NOT NULL,
7145		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 7088 \| Line 7159 \| PRIMARY KEY (CUST_NO)
7159
7160		/* Table: DEPARTMENT, Owner: SYSDBA */
7161
7162	<	CREATE TABLE DEPARTMENT
7162	>	CREATE TABLE DEPARTMENT
7163		(
7164		DEPT_NO DEPTNO NOT NULL,
7165		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 7103 \| Line 7174 \| PRIMARY KEY (DEPT_NO)
7174
7175		/* Table: EMPLOYEE, Owner: SYSDBA */
7176
7177	<	CREATE TABLE EMPLOYEE
7177	>	CREATE TABLE EMPLOYEE
7178		(
7179		EMP_NO EMPNO NOT NULL,
7180		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 7121 \| Line 7192 \| PRIMARY KEY (EMP_NO)
7192
7193		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
7194
7195	<	CREATE TABLE EMPLOYEE_PROJECT
7195	>	CREATE TABLE EMPLOYEE_PROJECT
7196		(
7197		EMP_NO EMPNO NOT NULL,
7198		PROJ_ID PROJNO NOT NULL,
#	Line 7130 \| Line 7201 \| PRIMARY KEY (EMP_NO, PROJ_ID)
7201
7202		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
7203
7204	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
7204	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
7205		(
7206		LINE_NUM INTEGER,
7207		CONTENT FB$OUT_TYPE
#	Line 7138 \| Line 7209 \| CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
7209
7210		/* Table: ITEST, Owner: SYSDBA */
7211
7212	<	CREATE TABLE ITEST
7212	>	CREATE TABLE ITEST
7213		(
7214		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0) NOT NULL,
7215		SOMETEXT VARCHAR(64),
#	Line 7147 \| Line 7218 \| PRIMARY KEY ("KEY")
7218
7219		/* Table: JOB, Owner: SYSDBA */
7220
7221	<	CREATE TABLE JOB
7221	>	CREATE TABLE JOB
7222		(
7223		JOB_CODE JOBCODE NOT NULL,
7224		JOB_GRADE JOBGRADE NOT NULL,
#	Line 7162 \| Line 7233 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
7233
7234		/* Table: PROJECT, Owner: SYSDBA */
7235
7236	<	CREATE TABLE PROJECT
7236	>	CREATE TABLE PROJECT
7237		(
7238		PROJ_ID PROJNO NOT NULL,
7239		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 7175 \| Line 7246 \| PRIMARY KEY (PROJ_ID)
7246
7247		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
7248
7249	<	CREATE TABLE PROJ_DEPT_BUDGET
7249	>	CREATE TABLE PROJ_DEPT_BUDGET
7250		(
7251		FISCAL_YEAR INTEGER NOT NULL,
7252		PROJ_ID PROJNO NOT NULL,
#	Line 7187 \| Line 7258 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
7258
7259		/* Table: SALARY_HISTORY, Owner: SYSDBA */
7260
7261	<	CREATE TABLE SALARY_HISTORY
7261	>	CREATE TABLE SALARY_HISTORY
7262		(
7263		EMP_NO EMPNO NOT NULL,
7264		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 7200 \| Line 7271 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
7271
7272		/* Table: SALES, Owner: SYSDBA */
7273
7274	<	CREATE TABLE SALES
7274	>	CREATE TABLE SALES
7275		(
7276		PO_NUMBER PONUMBER NOT NULL,
7277		CUST_NO CUSTNO NOT NULL,
#	Line 7211 \| Line 7282 \| CREATE TABLE SALES
7282		DATE_NEEDED TIMESTAMP,
7283		PAID CHAR(1) DEFAULT 'n',
7284		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
7285	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
7285	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
7286		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
7287		ITEM_TYPE PRODTYPE,
7288		AGED COMPUTED BY (ship_date - order_date),
#	Line 7228 \| Line 7299 \| ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
7299
7300
7301		DECLARE EXTERNAL FUNCTION I64TRUNCATE
7302	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
7302	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
7303		RETURNS PARAMETER 2
7304		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
7305		;
#	Line 7979 \| Line 8050 \| ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1
8050		/* View: DEPTLIST, Owner: SYSDBA */
8051
8052		CREATE VIEW DEPTLIST (
8053	<	EMP_NO,
8054	<	FIRST_NAME,
8055	<	LAST_NAME,
8056	<	PHONE_EXT,
8057	<	HIRE_DATE,
8058	<	DEPT_NO,
8059	<	JOB_CODE,
8060	<	JOB_GRADE,
8061	<	JOB_COUNTRY,
8062	<	SALARY,
8063	<	FULL_NAME,
8064	<	DEPT_PATH,
8065	<	DEPT_KEY_PATH,
8053	>	EMP_NO,
8054	>	FIRST_NAME,
8055	>	LAST_NAME,
8056	>	PHONE_EXT,
8057	>	HIRE_DATE,
8058	>	DEPT_NO,
8059	>	JOB_CODE,
8060	>	JOB_GRADE,
8061	>	JOB_COUNTRY,
8062	>	SALARY,
8063	>	FULL_NAME,
8064	>	DEPT_PATH,
8065	>	DEPT_KEY_PATH,
8066		"Payment Status"
8067		) AS
8068		with recursive Depts As (
#	Line 8007 \| Line 8078 \| JOIN Depts On D.HEAD_DEPT = Depts.DEPT_N
8078
8079		Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,
8080		A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH,
8081	<	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
8081	>	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
8082		From EMPLOYEE A
8083		JOIN Depts D On D.DEPT_NO = A.DEPT_NO
8084		;
#	Line 8015 \| Line 8086 \| JOIN Depts D On D.DEPT_NO = A.DEPT_NO
8086		/* View: PHONE_LIST, Owner: SYSDBA */
8087
8088		CREATE VIEW PHONE_LIST (
8089	<	EMP_NO,
8090	<	FIRST_NAME,
8091	<	LAST_NAME,
8092	<	PHONE_EXT,
8093	<	LOCATION,
8089	>	EMP_NO,
8090	>	FIRST_NAME,
8091	>	LAST_NAME,
8092	>	PHONE_EXT,
8093	>	LOCATION,
8094		PHONE_NO
8095		) AS
8096		SELECT
#	Line 8121 \| Line 8192 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
8192		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
8193		COMMIT WORK;
8194		SET AUTODDL OFF;
8195	<	SET TERM ^ ;
8195	>	SET TERM ^;
8196
8197		/* Package Definitions */
8198
8199	<	CREATE PACKAGE FB$OUT
8199	>	CREATE PACKAGE FB$OUT
8200		AS
8130	–
8201		begin
8202		procedure enable;
8203		procedure disable;
#	Line 8137 \| Line 8207 \| begin
8207
8208		procedure get_lines returns (lines fb$out_type);
8209		end
8210	<	^
8210	>	^
8211
8212	<	CREATE PACKAGE SELECT$TEST
8212	>	CREATE PACKAGE SELECT$TEST
8213		AS
8144	–
8214		Begin
8215		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer);
8216		End
8217	<	^
8217	>	^
8218
8219	<	SET TERM ; ^
8219	>	SET TERM ;^
8220		COMMIT WORK;
8221		SET AUTODDL ON;
8222		COMMIT WORK;
8223		SET AUTODDL OFF;
8224	<	SET TERM ^ ;
8224	>	SET TERM ^;
8225
8226		/* Stored procedures Definitions*/
8227
#	Line 8169 \| Line 8238 \| RETURNS
8238		AS
8239		BEGIN SUSPEND; EXIT; END
8240		^
8241	+
8242		CREATE PROCEDURE ADD_EMP_PROJ
8243		(
8244		EMP_NO SMALLINT,
#	Line 8177 \| Line 8247 \| CREATE PROCEDURE ADD_EMP_PROJ
8247		AS
8248		BEGIN EXIT; END
8249		^
8250	+
8251		CREATE PROCEDURE ALL_LANGS
8252		RETURNS
8253		(
#	Line 8188 \| Line 8259 \| RETURNS
8259		AS
8260		BEGIN SUSPEND; EXIT; END
8261		^
8262	+
8263		CREATE PROCEDURE DELETE_EMPLOYEE
8264		(
8265		EMP_NUM INTEGER
#	Line 8195 \| Line 8267 \| CREATE PROCEDURE DELETE_EMPLOYEE
8267		AS
8268		BEGIN EXIT; END
8269		^
8270	+
8271		CREATE PROCEDURE DEPT_BUDGET
8272		(
8273		DNO CHAR(3) CHARACTER SET NONE
8274		)
8275		RETURNS
8276		(
8277	<	TOT DECIMAL(12, 2)
8277	>	TOT DECIMAL(12,2)
8278		)
8279		AS
8280		BEGIN SUSPEND; EXIT; END
8281		^
8282	+
8283		CREATE PROCEDURE EMPLOYEE_PAY_STATUS
8284		(
8285		EMP_NUM SMALLINT
#	Line 8213 \| Line 8287 \| CREATE PROCEDURE EMPLOYEE_PAY_STATUS
8287		RETURNS
8288		(
8289		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
8290	<	SALARY NUMERIC(10, 2)
8290	>	SALARY NUMERIC(10,2)
8291		)
8292		AS
8293		BEGIN EXIT; END
8294		^
8295	+
8296		CREATE PROCEDURE GET_EMP_PROJ
8297		(
8298		EMP_NO SMALLINT
#	Line 8229 \| Line 8304 \| RETURNS
8304		AS
8305		BEGIN SUSPEND; EXIT; END
8306		^
8307	+
8308		CREATE PROCEDURE "Has Space"
8309		(
8310		ARG1 INTEGER
#	Line 8236 \| Line 8312 \| CREATE PROCEDURE "Has Space"
8312		AS
8313		BEGIN EXIT; END
8314		^
8315	+
8316		CREATE PROCEDURE MAIL_LABEL
8317		(
8318		CUST_NO INTEGER
#	Line 8252 \| Line 8329 \| RETURNS
8329		AS
8330		BEGIN SUSPEND; EXIT; END
8331		^
8332	+
8333		CREATE PROCEDURE ORG_CHART
8334		RETURNS
8335		(
#	Line 8264 \| Line 8342 \| RETURNS
8342		AS
8343		BEGIN SUSPEND; EXIT; END
8344		^
8345	+
8346		CREATE PROCEDURE SHIP_ORDER
8347		(
8348		PO_NUM CHAR(8) CHARACTER SET NONE
#	Line 8271 \| Line 8350 \| CREATE PROCEDURE SHIP_ORDER
8350		AS
8351		BEGIN EXIT; END
8352		^
8353	+
8354		CREATE PROCEDURE SUB_TOT_BUDGET
8355		(
8356		HEAD_DEPT CHAR(3) CHARACTER SET NONE
8357		)
8358		RETURNS
8359		(
8360	<	TOT_BUDGET DECIMAL(12, 2),
8361	<	AVG_BUDGET DECIMAL(12, 2),
8362	<	MIN_BUDGET DECIMAL(12, 2),
8363	<	MAX_BUDGET DECIMAL(12, 2)
8360	>	TOT_BUDGET DECIMAL(12,2),
8361	>	AVG_BUDGET DECIMAL(12,2),
8362	>	MIN_BUDGET DECIMAL(12,2),
8363	>	MAX_BUDGET DECIMAL(12,2)
8364		)
8365		AS
8366		BEGIN SUSPEND; EXIT; END
8367		^
8368	+
8369		CREATE PROCEDURE "UC SPACE"
8370		(
8371		ARG1 INTEGER
#	Line 8292 \| Line 8373 \| CREATE PROCEDURE "UC SPACE"
8373		AS
8374		BEGIN EXIT; END
8375		^
8376	+
8377		CREATE PROCEDURE "iCASE"
8378		AS
8379		BEGIN EXIT; END
8380		^
8381	<	SET TERM ; ^
8381	>
8382	>	SET TERM ;^
8383		COMMIT WORK;
8384		SET AUTODDL ON;
8385		COMMIT WORK;
8386		SET AUTODDL OFF;
8387	<	SET TERM ^ ;
8387	>	SET TERM ^;
8388
8389		/* Stored Function declarations */
8390
#	Line 8310 \| Line 8393 \| CREATE FUNCTION F (X INTEGER)
8393		AS BEGIN END
8394		^
8395
8396	<
8314	<	SET TERM ; ^
8396	>	SET TERM ;^
8397		COMMIT WORK;
8398		SET AUTODDL ON;
8399	<	SET TERM ^ ;
8399	>	SET TERM ^;
8400
8401
8402		/* Triggers only will work for SQL triggers */
#	Line 8324 \| Line 8406 \| ACTIVE ON CONNECT POSITION 0
8406		as
8407		begin
8408		End
8409	<	^
8409	>	^
8410	>
8411		CREATE TRIGGER "BEFORE CREATE TABLE"
8412		ACTIVE BEFORE CREATE TABLE POSITION 0
8413		AS BEGIN END
8414	<	^
8414	>	^
8415	>
8416		CREATE TRIGGER "AFTER CREATE TABLE"
8417		ACTIVE AFTER CREATE TABLE POSITION 0
8418		AS BEGIN END
8419	<	^
8419	>	^
8420	>
8421		CREATE TRIGGER "BEFORE ALTER TABLE"
8422		ACTIVE BEFORE ALTER TABLE POSITION 0
8423		AS BEGIN END
8424	<	^
8424	>	^
8425	>
8426		CREATE TRIGGER "AFTER ALTER TABLE"
8427		ACTIVE AFTER ALTER TABLE POSITION 0
8428		AS BEGIN END
8429	<	^
8429	>	^
8430	>
8431		CREATE TRIGGER "AFTER CREATE/Alter TABLE"
8432		ACTIVE AFTER CREATE TABLE OR ALTER TABLE POSITION 0
8433		AS BEGIN END
8434	<	^
8434	>	^
8435	>
8436		CREATE TRIGGER "BEFORE DROP TABLE"
8437		ACTIVE BEFORE Drop TABLE POSITION 0
8438		AS BEGIN END
8439	<	^
8439	>	^
8440	>
8441		CREATE TRIGGER "AFTER DROP TABLE"
8442		ACTIVE AFTER Drop TABLE POSITION 0
8443		AS BEGIN END
8444	<	^
8444	>	^
8445	>
8446		CREATE TRIGGER "BEFORE CREATE PROCEDURE"
8447		ACTIVE BEFORE CREATE PROCEDURE POSITION 0
8448		AS BEGIN END
8449	<	^
8449	>	^
8450	>
8451		CREATE TRIGGER "AFTER CREATE PROCEDURE"
8452		ACTIVE AFTER CREATE PROCEDURE POSITION 0
8453		AS BEGIN END
8454	<	^
8454	>	^
8455	>
8456		CREATE TRIGGER "BEFORE ALTER PROCEDURE"
8457		ACTIVE BEFORE ALTER PROCEDURE POSITION 0
8458		AS BEGIN END
8459	<	^
8459	>	^
8460	>
8461		CREATE TRIGGER "AFTER ALTER PROCEDURE"
8462		ACTIVE AFTER ALTER PROCEDURE POSITION 0
8463		AS BEGIN END
8464	<	^
8464	>	^
8465	>
8466		CREATE TRIGGER "BEFORE DROP PROCEDURE"
8467		ACTIVE BEFORE Drop PROCEDURE POSITION 0
8468		AS BEGIN END
8469	<	^
8469	>	^
8470	>
8471		CREATE TRIGGER "AFTER DROP PROCEDURE"
8472		ACTIVE AFTER Drop PROCEDURE POSITION 0
8473		AS BEGIN END
8474	<	^
8474	>	^
8475	>
8476		CREATE TRIGGER "BEFORE CREATE FUNCTION"
8477		ACTIVE BEFORE CREATE FUNCTION POSITION 0
8478		AS BEGIN END
8479	<	^
8479	>	^
8480	>
8481		CREATE TRIGGER "AFTER CREATE FUNCTION"
8482		ACTIVE AFTER CREATE FUNCTION POSITION 0
8483		AS BEGIN END
8484	<	^
8484	>	^
8485	>
8486		CREATE TRIGGER "BEFORE ALTER FUNCTION"
8487		ACTIVE BEFORE ALTER FUNCTION POSITION 0
8488		AS BEGIN END
8489	<	^
8489	>	^
8490	>
8491		CREATE TRIGGER "AFTER ALTER FUNCTION"
8492		ACTIVE AFTER ALTER FUNCTION POSITION 0
8493		AS BEGIN END
8494	<	^
8494	>	^
8495	>
8496		CREATE TRIGGER "BEFORE DROP FUNCTION"
8497		ACTIVE BEFORE Drop FUNCTION POSITION 0
8498		AS BEGIN END
8499	<	^
8499	>	^
8500	>
8501		CREATE TRIGGER "AFTER DROP FUNCTION"
8502		ACTIVE AFTER Drop FUNCTION POSITION 0
8503		AS BEGIN END
8504	<	^
8504	>	^
8505	>
8506		CREATE TRIGGER "BEFORE CREATE TRIGGER"
8507		ACTIVE BEFORE CREATE TRIGGER POSITION 0
8508		AS BEGIN END
8509	<	^
8509	>	^
8510	>
8511		CREATE TRIGGER "AFTER CREATE TRIGGER"
8512		ACTIVE AFTER CREATE TRIGGER POSITION 0
8513		AS BEGIN END
8514	<	^
8514	>	^
8515	>
8516		CREATE TRIGGER "BEFORE ALTER TRIGGER"
8517		ACTIVE BEFORE ALTER TRIGGER POSITION 0
8518		AS BEGIN END
8519	<	^
8519	>	^
8520	>
8521		CREATE TRIGGER "AFTER ALTER TRIGGER"
8522		ACTIVE AFTER ALTER TRIGGER POSITION 0
8523		AS BEGIN END
8524	<	^
8524	>	^
8525	>
8526		CREATE TRIGGER "BEFORE DROP TRIGGER"
8527		ACTIVE BEFORE Drop TRIGGER POSITION 0
8528		AS BEGIN END
8529	<	^
8529	>	^
8530	>
8531		CREATE TRIGGER "AFTER DROP TRIGGER"
8532		ACTIVE AFTER Drop TRIGGER POSITION 0
8533		AS BEGIN END
8534	<	^
8534	>	^
8535	>
8536		CREATE TRIGGER "BEFORE CREATE EXCEPTION"
8537		ACTIVE BEFORE CREATE EXCEPTION POSITION 0
8538		AS BEGIN END
8539	<	^
8539	>	^
8540	>
8541		CREATE TRIGGER "AFTER CREATE EXCEPTION"
8542		ACTIVE AFTER CREATE EXCEPTION POSITION 0
8543		AS BEGIN END
8544	<	^
8544	>	^
8545	>
8546		CREATE TRIGGER "BEFORE ALTER EXCEPTION"
8547		ACTIVE BEFORE ALTER EXCEPTION POSITION 0
8548		AS BEGIN END
8549	<	^
8549	>	^
8550	>
8551		CREATE TRIGGER "AFTER ALTER EXCEPTION"
8552		ACTIVE AFTER ALTER EXCEPTION POSITION 0
8553		AS BEGIN END
8554	<	^
8554	>	^
8555	>
8556		CREATE TRIGGER "BEFORE DROP EXCEPTION"
8557		ACTIVE BEFORE Drop EXCEPTION POSITION 0
8558		AS BEGIN END
8559	<	^
8559	>	^
8560	>
8561		CREATE TRIGGER "AFTER DROP EXCEPTION"
8562		ACTIVE AFTER Drop EXCEPTION POSITION 0
8563		AS BEGIN END
8564	<	^
8564	>	^
8565	>
8566		CREATE TRIGGER "BEFORE CREATE VIEW"
8567		ACTIVE BEFORE CREATE VIEW POSITION 0
8568		AS BEGIN END
8569	<	^
8569	>	^
8570	>
8571		CREATE TRIGGER "AFTER CREATE VIEW"
8572		ACTIVE AFTER CREATE VIEW POSITION 0
8573		AS BEGIN END
8574	<	^
8574	>	^
8575	>
8576		CREATE TRIGGER "BEFORE ALTER VIEW"
8577		ACTIVE BEFORE ALTER VIEW POSITION 0
8578		AS BEGIN END
8579	<	^
8579	>	^
8580	>
8581		CREATE TRIGGER "AFTER ALTER VIEW"
8582		ACTIVE AFTER ALTER VIEW POSITION 0
8583		AS BEGIN END
8584	<	^
8584	>	^
8585	>
8586		CREATE TRIGGER "BEFORE DROP VIEW"
8587		ACTIVE BEFORE Drop VIEW POSITION 0
8588		AS BEGIN END
8589	<	^
8589	>	^
8590	>
8591		CREATE TRIGGER "AFTER DROP VIEW"
8592		ACTIVE AFTER Drop VIEW POSITION 0
8593		AS BEGIN END
8594	<	^
8594	>	^
8595	>
8596		CREATE TRIGGER "BEFORE CREATE DOMAIN"
8597		ACTIVE BEFORE CREATE DOMAIN POSITION 0
8598		AS BEGIN END
8599	<	^
8599	>	^
8600	>
8601		CREATE TRIGGER "AFTER CREATE DOMAIN"
8602		ACTIVE AFTER CREATE DOMAIN POSITION 0
8603		AS BEGIN END
8604	<	^
8604	>	^
8605	>
8606		CREATE TRIGGER "BEFORE ALTER DOMAIN"
8607		ACTIVE BEFORE ALTER DOMAIN POSITION 0
8608		AS BEGIN END
8609	<	^
8609	>	^
8610	>
8611		CREATE TRIGGER "AFTER ALTER DOMAIN"
8612		ACTIVE AFTER ALTER DOMAIN POSITION 0
8613		AS BEGIN END
8614	<	^
8614	>	^
8615	>
8616		CREATE TRIGGER "BEFORE DROP DOMAIN"
8617		ACTIVE BEFORE Drop DOMAIN POSITION 0
8618		AS BEGIN END
8619	<	^
8619	>	^
8620	>
8621		CREATE TRIGGER "AFTER DROP DOMAIN"
8622		ACTIVE AFTER Drop DOMAIN POSITION 0
8623		AS BEGIN END
8624	<	^
8624	>	^
8625	>
8626		CREATE TRIGGER "BEFORE CREATE ROLE"
8627		ACTIVE BEFORE CREATE ROLE POSITION 0
8628		AS BEGIN END
8629	<	^
8629	>	^
8630	>
8631		CREATE TRIGGER "AFTER CREATE ROLE"
8632		ACTIVE AFTER CREATE ROLE POSITION 0
8633		AS BEGIN END
8634	<	^
8634	>	^
8635	>
8636		CREATE TRIGGER "BEFORE ALTER ROLE"
8637		ACTIVE BEFORE ALTER ROLE POSITION 0
8638		AS BEGIN END
8639	<	^
8639	>	^
8640	>
8641		CREATE TRIGGER "AFTER ALTER ROLE"
8642		ACTIVE AFTER ALTER ROLE POSITION 0
8643		AS BEGIN END
8644	<	^
8644	>	^
8645	>
8646		CREATE TRIGGER "BEFORE DROP ROLE"
8647		ACTIVE BEFORE Drop ROLE POSITION 0
8648		AS BEGIN END
8649	<	^
8649	>	^
8650	>
8651		CREATE TRIGGER "AFTER DROP ROLE"
8652		ACTIVE AFTER Drop ROLE POSITION 0
8653		AS BEGIN END
8654	<	^
8654	>	^
8655	>
8656		CREATE TRIGGER "BEFORE CREATE INDEX"
8657		ACTIVE BEFORE CREATE INDEX POSITION 0
8658		AS BEGIN END
8659	<	^
8659	>	^
8660	>
8661		CREATE TRIGGER "AFTER CREATE INDEX"
8662		ACTIVE AFTER CREATE INDEX POSITION 0
8663		AS BEGIN END
8664	<	^
8664	>	^
8665	>
8666		CREATE TRIGGER "BEFORE ALTER INDEX"
8667		ACTIVE BEFORE ALTER INDEX POSITION 0
8668		AS BEGIN END
8669	<	^
8669	>	^
8670	>
8671		CREATE TRIGGER "AFTER ALTER INDEX"
8672		ACTIVE AFTER ALTER INDEX POSITION 0
8673		AS BEGIN END
8674	<	^
8674	>	^
8675	>
8676		CREATE TRIGGER "BEFORE DROP INDEX"
8677		ACTIVE BEFORE Drop INDEX POSITION 0
8678		AS BEGIN END
8679	<	^
8679	>	^
8680	>
8681		CREATE TRIGGER "AFTER DROP INDEX"
8682		ACTIVE AFTER Drop INDEX POSITION 0
8683		AS BEGIN END
8684	<	^
8684	>	^
8685	>
8686		CREATE TRIGGER "BEFORE CREATE SEQUENCE"
8687		ACTIVE BEFORE CREATE SEQUENCE POSITION 0
8688		AS BEGIN END
8689	<	^
8689	>	^
8690	>
8691		CREATE TRIGGER "AFTER CREATE SEQUENCE"
8692		ACTIVE AFTER CREATE SEQUENCE POSITION 0
8693		AS BEGIN END
8694	<	^
8694	>	^
8695	>
8696		CREATE TRIGGER "BEFORE ALTER SEQUENCE"
8697		ACTIVE BEFORE ALTER SEQUENCE POSITION 0
8698		AS BEGIN END
8699	<	^
8699	>	^
8700	>
8701		CREATE TRIGGER "AFTER ALTER SEQUENCE"
8702		ACTIVE AFTER ALTER SEQUENCE POSITION 0
8703		AS BEGIN END
8704	<	^
8704	>	^
8705	>
8706		CREATE TRIGGER "BEFORE DROP SEQUENCE"
8707		ACTIVE BEFORE Drop SEQUENCE POSITION 0
8708		AS BEGIN END
8709	<	^
8709	>	^
8710	>
8711		CREATE TRIGGER "AFTER DROP SEQUENCE"
8712		ACTIVE AFTER Drop SEQUENCE POSITION 0
8713		AS BEGIN END
8714	<	^
8714	>	^
8715	>
8716		CREATE TRIGGER "BEFORE CREATE USER"
8717		ACTIVE BEFORE CREATE USER POSITION 0
8718		AS BEGIN END
8719	<	^
8719	>	^
8720	>
8721		CREATE TRIGGER "AFTER CREATE USER"
8722		ACTIVE AFTER CREATE USER POSITION 0
8723		AS BEGIN END
8724	<	^
8724	>	^
8725	>
8726		CREATE TRIGGER "BEFORE ALTER USER"
8727		ACTIVE BEFORE ALTER USER POSITION 0
8728		AS BEGIN END
8729	<	^
8729	>	^
8730	>
8731		CREATE TRIGGER "AFTER ALTER USER"
8732		ACTIVE AFTER ALTER USER POSITION 0
8733		AS BEGIN END
8734	<	^
8734	>	^
8735	>
8736		CREATE TRIGGER "BEFORE DROP USER"
8737		ACTIVE BEFORE Drop USER POSITION 0
8738		AS BEGIN END
8739	<	^
8739	>	^
8740	>
8741		CREATE TRIGGER "AFTER DROP USER"
8742		ACTIVE AFTER Drop USER POSITION 0
8743		AS BEGIN END
8744	<	^
8744	>	^
8745	>
8746		CREATE TRIGGER "BEFORE CREATE COLLATION"
8747		ACTIVE BEFORE CREATE COLLATION POSITION 0
8748		AS BEGIN END
8749	<	^
8749	>	^
8750	>
8751		CREATE TRIGGER "AFTER CREATE COLLATION"
8752		ACTIVE AFTER CREATE COLLATION POSITION 0
8753		AS BEGIN END
8754	<	^
8754	>	^
8755	>
8756		CREATE TRIGGER "BEFORE DROP COLLATION"
8757		ACTIVE BEFORE Drop COLLATION POSITION 0
8758		AS BEGIN END
8759	<	^
8759	>	^
8760	>
8761		CREATE TRIGGER "AFTER DROP COLLATION"
8762		ACTIVE AFTER Drop COLLATION POSITION 0
8763		AS BEGIN END
8764	<	^
8764	>	^
8765	>
8766		CREATE TRIGGER "BEFORE ALTER CHARACTER SET"
8767		ACTIVE BEFORE ALTER CHARACTER SET POSITION 0
8768		AS BEGIN END
8769	<	^
8769	>	^
8770	>
8771		CREATE TRIGGER "AFTER ALTER CHARACTER SET"
8772		ACTIVE AFTER ALTER CHARACTER SET POSITION 0
8773		AS BEGIN END
8774	<	^
8774	>	^
8775	>
8776		CREATE TRIGGER "BEFORE CREATE PACKAGE"
8777		ACTIVE BEFORE CREATE PACKAGE POSITION 0
8778		AS BEGIN END
8779	<	^
8779	>	^
8780	>
8781		CREATE TRIGGER "AFTER CREATE PACKAGE"
8782		ACTIVE AFTER CREATE PACKAGE POSITION 0
8783		AS BEGIN END
8784	<	^
8784	>	^
8785	>
8786		CREATE TRIGGER "BEFORE ALTER PACKAGE"
8787		ACTIVE BEFORE ALTER PACKAGE POSITION 0
8788		AS BEGIN END
8789	<	^
8789	>	^
8790	>
8791		CREATE TRIGGER "AFTER ALTER PACKAGE"
8792		ACTIVE AFTER ALTER PACKAGE POSITION 0
8793		AS BEGIN END
8794	<	^
8794	>	^
8795	>
8796		CREATE TRIGGER "BEFORE DROP PACKAGE"
8797		ACTIVE BEFORE Drop PACKAGE POSITION 0
8798		AS BEGIN END
8799	<	^
8799	>	^
8800	>
8801		CREATE TRIGGER "AFTER DROP PACKAGE"
8802		ACTIVE AFTER Drop PACKAGE POSITION 0
8803		AS BEGIN END
8804	<	^
8804	>	^
8805	>
8806		CREATE TRIGGER "BEFORE CREATE PACKAGE BODY"
8807		ACTIVE BEFORE CREATE PACKAGE BODY POSITION 0
8808		AS BEGIN END
8809	<	^
8809	>	^
8810	>
8811		CREATE TRIGGER "AFTER CREATE PACKAGE BODY"
8812		ACTIVE AFTER CREATE PACKAGE BODY POSITION 0
8813		AS BEGIN END
8814	<	^
8814	>	^
8815	>
8816		CREATE TRIGGER "BEFORE DROP PACKAGE BODY"
8817		ACTIVE BEFORE Drop PACKAGE BODY POSITION 0
8818		AS BEGIN END
8819	<	^
8819	>	^
8820	>
8821		CREATE TRIGGER "AFTER DROP PACKAGE BODY"
8822		ACTIVE AFTER Drop PACKAGE BODY POSITION 0
8823		AS BEGIN END
8824	<	^
8824	>	^
8825	>
8826		CREATE TRIGGER "BEFORE ANY DDL STATEMENT"
8827		ACTIVE BEFORE ANY DDL STATEMENT POSITION 0
8828		AS BEGIN END
8829	<	^
8829	>	^
8830	>
8831		CREATE TRIGGER "AFTER ANY DDL STATEMENT"
8832		ACTIVE AFTER ANY DDL STATEMENT POSITION 0
8833		AS BEGIN END
8834	<	^
8834	>	^
8835	>
8836		CREATE TRIGGER SET_CUST_NO FOR CUSTOMER
8837		ACTIVE BEFORE INSERT POSITION 0
8838		AS
#	Line 8672 \| Line 8840 \| BEGIN
8840		if (new.cust_no is null) then
8841		new.cust_no = gen_id(cust_no_gen, 1);
8842		END
8843	<	^
8843	>	^
8844	>
8845		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
8846		ACTIVE BEFORE INSERT POSITION 0
8847		AS
#	Line 8680 \| Line 8849 \| BEGIN
8849		if (new.emp_no is null) then
8850		new.emp_no = gen_id(emp_no_gen, 1);
8851		END
8852	<	^
8852	>	^
8853	>
8854		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
8855		ACTIVE AFTER UPDATE POSITION 0
8856		AS
#	Line 8695 \| Line 8865 \| BEGIN
8865		old.salary,
8866		(new.salary - old.salary) * 100 / old.salary);
8867		END
8868	<	^
8868	>	^
8869	>
8870		CREATE TRIGGER POST_NEW_ORDER FOR SALES
8871		ACTIVE AFTER INSERT POSITION 0
8872		AS
8873		BEGIN
8874		POST_EVENT 'new_order';
8875		END
8876	<	^
8877	<	COMMIT WORK ^
8876	>	^
8877	>
8878	>	COMMIT WORK^
8879		SET TERM ;^
8880		COMMIT WORK;
8881		SET AUTODDL OFF;
8882	<	SET TERM ^ ;
8882	>	SET TERM ^;
8883
8884		/* Package Definitions */
8885
8886	<	CREATE PACKAGE BODY FB$OUT
8886	>	CREATE PACKAGE BODY FB$OUT
8887		AS
8716	–
8888		begin
8889		procedure enable
8890		as
#	Line 8768 \| Line 8939 \| begin
8939		execute procedure clear;
8940		end
8941		end
8942	<	^
8942	>	^
8943
8944	<	CREATE PACKAGE BODY SELECT$TEST
8944	>	CREATE PACKAGE BODY SELECT$TEST
8945		AS
8775	–
8946		Begin
8947		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer)
8948		As
#	Line 8780 \| Line 8950 \| Begin
8950		SUSPEND;
8951		End
8952		End
8953	<	^
8953	>	^
8954
8955	<	SET TERM ; ^
8955	>	SET TERM ;^
8956		COMMIT WORK;
8957		SET AUTODDL ON;
8958		COMMIT WORK;
8959		SET AUTODDL OFF;
8960	<	SET TERM ^ ;
8960	>	SET TERM ^;
8961
8962		/* Stored procedure Bodies */
8963
8794	–
8964		ALTER PROCEDURE SHOW_LANGS
8965		(
8966		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 8813 \| Line 8982 \| BEGIN
8982		AND (language_req IS NOT NULL))
8983		INTO :languages;
8984		IF (languages = ' ') THEN /* Prints 'NULL' instead of blanks */
8985	<	languages = 'NULL';
8985	>	languages = 'NULL';
8986		i = i +1;
8987		SUSPEND;
8988		END
#	Line 8845 \| Line 9014 \| RETURNS
9014		)
9015		AS
9016		BEGIN
9017	<	FOR SELECT job_code, job_grade, job_country FROM job
9017	>	FOR SELECT job_code, job_grade, job_country FROM job
9018		INTO :code, :grade, :country
9019
9020		DO
9021		BEGIN
9022	<	FOR SELECT languages FROM show_langs
9022	>	FOR SELECT languages FROM show_langs
9023		(:code, :grade, :country) INTO :lang DO
9024		SUSPEND;
9025		/* Put nice separators between rows */
#	Line 8928 \| Line 9097 \| ALTER PROCEDURE DEPT_BUDGET
9097		)
9098		RETURNS
9099		(
9100	<	TOT DECIMAL(12, 2)
9100	>	TOT DECIMAL(12,2)
9101		)
9102		AS
9103	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
9103	>	DECLARE VARIABLE sumb DECIMAL(12,2);
9104		DECLARE VARIABLE rdno CHAR(3);
9105		DECLARE VARIABLE cnt INTEGER;
9106		BEGIN
#	Line 8965 \| Line 9134 \| ALTER PROCEDURE EMPLOYEE_PAY_STATUS
9134		RETURNS
9135		(
9136		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
9137	<	SALARY NUMERIC(10, 2)
9137	>	SALARY NUMERIC(10,2)
9138		)
9139		AS
9140	<	BEGIN
9141	<	Select SALARY, Case
9142	<	When SALARY > 10000 and SALARY <= 100000 then 'higher'
9143	<	When SALARY > 100000 then 'gross'
9144	<	else 'lower' End
9145	<	From employee
9146	<	WHERE emp_no = :EMP_NUM
9140	>	Declare aCursor CURSOR FOR (
9141	>	Select EMP_NO,SALARY From EMPLOYEE WHERE LAST_NAME = 'unknown');
9142	>	BEGIN
9143	>	Select SALARY, Case
9144	>	When SALARY > 10000 and SALARY <= 100000 then 'higher'
9145	>	When SALARY > 100000 then 'gross'
9146	>	else 'lower' End
9147	>	From employee
9148	>	WHERE emp_no = :EMP_NUM
9149		into :SALARY, :PAY_STATUS;
9150		END
9151		^
#	Line 9183 \| Line 9354 \| ALTER PROCEDURE SUB_TOT_BUDGET
9354		)
9355		RETURNS
9356		(
9357	<	TOT_BUDGET DECIMAL(12, 2),
9358	<	AVG_BUDGET DECIMAL(12, 2),
9359	<	MIN_BUDGET DECIMAL(12, 2),
9360	<	MAX_BUDGET DECIMAL(12, 2)
9357	>	TOT_BUDGET DECIMAL(12,2),
9358	>	AVG_BUDGET DECIMAL(12,2),
9359	>	MIN_BUDGET DECIMAL(12,2),
9360	>	MAX_BUDGET DECIMAL(12,2)
9361		)
9362		AS
9363		BEGIN
#	Line 9210 \| Line 9381 \| ALTER PROCEDURE "iCASE"
9381		AS
9382		Begin End
9383		^
9384	<	SET TERM ; ^
9384	>
9385	>	SET TERM ;^
9386		COMMIT WORK;
9387		SET AUTODDL ON;
9388		COMMIT WORK;
9389		SET AUTODDL OFF;
9390	<	SET TERM ^ ;
9390	>	SET TERM ^;
9391
9392		/* Stored Function Body */
9393
9394		ALTER FUNCTION F (X INTEGER)
9395		RETURNS INTEGER
9396	<	AS
9396	>	AS
9397		BEGIN
9398		RETURN X+1;
9399		END
9400		^
9401
9402	<
9231	<	SET TERM ; ^
9402	>	SET TERM ;^
9403		COMMIT WORK;
9404		SET AUTODDL ON;
9405
#	Line 9298 \| Line 9469 \| COMMENT ON DATABASE IS 'Employee Test D
9469		/* Domain definitions */
9470
9471		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
9472	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
9472	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
9473		DEFAULT 50000;
9474		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
9475		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 9314 \| Line 9485 \| CREATE DOMAIN PONUMBER AS CHAR(8);
9485		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
9486		DEFAULT 'software' NOT NULL;
9487		CREATE DOMAIN PROJNO AS CHAR(5);
9488	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
9488	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
9489		DEFAULT 0;
9490
9491		/* Table: COUNTRIES, Owner: SYSDBA */
9492
9493	<	CREATE TABLE COUNTRIES
9493	>	CREATE TABLE COUNTRIES
9494		(
9495		COUNTRY VARCHAR(64) NOT NULL,
9496		NONEU SMALLINT,
#	Line 9332 \| Line 9503 \| COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
9503
9504		/* Table: COUNTRY, Owner: SYSDBA */
9505
9506	<	CREATE TABLE COUNTRY
9506	>	CREATE TABLE COUNTRY
9507		(
9508		COUNTRY COUNTRYNAME NOT NULL,
9509		CURRENCY VARCHAR(10) NOT NULL,
#	Line 9341 \| Line 9512 \| PRIMARY KEY (COUNTRY)
9512
9513		/* Table: CUSTOMER, Owner: SYSDBA */
9514
9515	<	CREATE TABLE CUSTOMER
9515	>	CREATE TABLE CUSTOMER
9516		(
9517		CUST_NO CUSTNO NOT NULL,
9518		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 9361 \| Line 9532 \| PRIMARY KEY (CUST_NO)
9532
9533		/* Table: DEPARTMENT, Owner: SYSDBA */
9534
9535	<	CREATE TABLE DEPARTMENT
9535	>	CREATE TABLE DEPARTMENT
9536		(
9537		DEPT_NO DEPTNO NOT NULL,
9538		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 9376 \| Line 9547 \| PRIMARY KEY (DEPT_NO)
9547
9548		/* Table: EMPLOYEE, Owner: SYSDBA */
9549
9550	<	CREATE TABLE EMPLOYEE
9550	>	CREATE TABLE EMPLOYEE
9551		(
9552		EMP_NO EMPNO NOT NULL,
9553		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 9394 \| Line 9565 \| PRIMARY KEY (EMP_NO)
9565
9566		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
9567
9568	<	CREATE TABLE EMPLOYEE_PROJECT
9568	>	CREATE TABLE EMPLOYEE_PROJECT
9569		(
9570		EMP_NO EMPNO NOT NULL,
9571		PROJ_ID PROJNO NOT NULL,
#	Line 9403 \| Line 9574 \| PRIMARY KEY (EMP_NO, PROJ_ID)
9574
9575		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
9576
9577	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
9577	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
9578		(
9579		LINE_NUM INTEGER,
9580		CONTENT FB$OUT_TYPE
#	Line 9411 \| Line 9582 \| CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
9582
9583		/* Table: ITEST, Owner: SYSDBA */
9584
9585	<	CREATE TABLE ITEST
9585	>	CREATE TABLE ITEST
9586		(
9587		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0) NOT NULL,
9588		SOMETEXT VARCHAR(64),
#	Line 9420 \| Line 9591 \| PRIMARY KEY ("KEY")
9591
9592		/* Table: JOB, Owner: SYSDBA */
9593
9594	<	CREATE TABLE JOB
9594	>	CREATE TABLE JOB
9595		(
9596		JOB_CODE JOBCODE NOT NULL,
9597		JOB_GRADE JOBGRADE NOT NULL,
#	Line 9435 \| Line 9606 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
9606
9607		/* Table: PROJECT, Owner: SYSDBA */
9608
9609	<	CREATE TABLE PROJECT
9609	>	CREATE TABLE PROJECT
9610		(
9611		PROJ_ID PROJNO NOT NULL,
9612		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 9448 \| Line 9619 \| PRIMARY KEY (PROJ_ID)
9619
9620		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
9621
9622	<	CREATE TABLE PROJ_DEPT_BUDGET
9622	>	CREATE TABLE PROJ_DEPT_BUDGET
9623		(
9624		FISCAL_YEAR INTEGER NOT NULL,
9625		PROJ_ID PROJNO NOT NULL,
#	Line 9460 \| Line 9631 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
9631
9632		/* Table: SALARY_HISTORY, Owner: SYSDBA */
9633
9634	<	CREATE TABLE SALARY_HISTORY
9634	>	CREATE TABLE SALARY_HISTORY
9635		(
9636		EMP_NO EMPNO NOT NULL,
9637		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 9473 \| Line 9644 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
9644
9645		/* Table: SALES, Owner: SYSDBA */
9646
9647	<	CREATE TABLE SALES
9647	>	CREATE TABLE SALES
9648		(
9649		PO_NUMBER PONUMBER NOT NULL,
9650		CUST_NO CUSTNO NOT NULL,
#	Line 9484 \| Line 9655 \| CREATE TABLE SALES
9655		DATE_NEEDED TIMESTAMP,
9656		PAID CHAR(1) DEFAULT 'n',
9657		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
9658	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
9658	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
9659		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
9660		ITEM_TYPE PRODTYPE,
9661		AGED COMPUTED BY (ship_date - order_date),
#	Line 9501 \| Line 9672 \| ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
9672
9673
9674		DECLARE EXTERNAL FUNCTION I64TRUNCATE
9675	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
9675	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
9676		RETURNS PARAMETER 2
9677		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
9678		;
#	Line 10252 \| Line 10423 \| ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1
10423		/* View: DEPTLIST, Owner: SYSDBA */
10424
10425		CREATE VIEW DEPTLIST (
10426	<	EMP_NO,
10427	<	FIRST_NAME,
10428	<	LAST_NAME,
10429	<	PHONE_EXT,
10430	<	HIRE_DATE,
10431	<	DEPT_NO,
10432	<	JOB_CODE,
10433	<	JOB_GRADE,
10434	<	JOB_COUNTRY,
10435	<	SALARY,
10436	<	FULL_NAME,
10437	<	DEPT_PATH,
10438	<	DEPT_KEY_PATH,
10426	>	EMP_NO,
10427	>	FIRST_NAME,
10428	>	LAST_NAME,
10429	>	PHONE_EXT,
10430	>	HIRE_DATE,
10431	>	DEPT_NO,
10432	>	JOB_CODE,
10433	>	JOB_GRADE,
10434	>	JOB_COUNTRY,
10435	>	SALARY,
10436	>	FULL_NAME,
10437	>	DEPT_PATH,
10438	>	DEPT_KEY_PATH,
10439		"Payment Status"
10440		) AS
10441		with recursive Depts As (
#	Line 10280 \| Line 10451 \| JOIN Depts On D.HEAD_DEPT = Depts.DEPT_N
10451
10452		Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,
10453		A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH,
10454	<	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
10454	>	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
10455		From EMPLOYEE A
10456		JOIN Depts D On D.DEPT_NO = A.DEPT_NO
10457		;
#	Line 10288 \| Line 10459 \| JOIN Depts D On D.DEPT_NO = A.DEPT_NO
10459		/* View: PHONE_LIST, Owner: SYSDBA */
10460
10461		CREATE VIEW PHONE_LIST (
10462	<	EMP_NO,
10463	<	FIRST_NAME,
10464	<	LAST_NAME,
10465	<	PHONE_EXT,
10466	<	LOCATION,
10462	>	EMP_NO,
10463	>	FIRST_NAME,
10464	>	LAST_NAME,
10465	>	PHONE_EXT,
10466	>	LOCATION,
10467		PHONE_NO
10468		) AS
10469		SELECT
#	Line 10394 \| Line 10565 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
10565		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
10566		COMMIT WORK;
10567		SET AUTODDL OFF;
10568	<	SET TERM ^ ;
10568	>	SET TERM ^;
10569
10570		/* Package Definitions */
10571
10572	<	CREATE PACKAGE FB$OUT
10572	>	CREATE PACKAGE FB$OUT
10573		AS
10403	–
10574		begin
10575		procedure enable;
10576		procedure disable;
#	Line 10410 \| Line 10580 \| begin
10580
10581		procedure get_lines returns (lines fb$out_type);
10582		end
10583	<	^
10583	>	^
10584
10585	<	CREATE PACKAGE SELECT$TEST
10585	>	CREATE PACKAGE SELECT$TEST
10586		AS
10417	–
10587		Begin
10588		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer);
10589		End
10590	<	^
10590	>	^
10591
10592	<	SET TERM ; ^
10592	>	SET TERM ;^
10593		COMMIT WORK;
10594		SET AUTODDL ON;
10595		COMMIT WORK;
10596		SET AUTODDL OFF;
10597	<	SET TERM ^ ;
10597	>	SET TERM ^;
10598
10599		/* Stored procedures Definitions*/
10600
#	Line 10442 \| Line 10611 \| RETURNS
10611		AS
10612		BEGIN SUSPEND; EXIT; END
10613		^
10614	+
10615		CREATE PROCEDURE ADD_EMP_PROJ
10616		(
10617		EMP_NO SMALLINT,
#	Line 10450 \| Line 10620 \| CREATE PROCEDURE ADD_EMP_PROJ
10620		AS
10621		BEGIN EXIT; END
10622		^
10623	+
10624		CREATE PROCEDURE ALL_LANGS
10625		RETURNS
10626		(
#	Line 10461 \| Line 10632 \| RETURNS
10632		AS
10633		BEGIN SUSPEND; EXIT; END
10634		^
10635	+
10636		CREATE PROCEDURE DELETE_EMPLOYEE
10637		(
10638		EMP_NUM INTEGER
#	Line 10468 \| Line 10640 \| CREATE PROCEDURE DELETE_EMPLOYEE
10640		AS
10641		BEGIN EXIT; END
10642		^
10643	+
10644		CREATE PROCEDURE DEPT_BUDGET
10645		(
10646		DNO CHAR(3) CHARACTER SET NONE
10647		)
10648		RETURNS
10649		(
10650	<	TOT DECIMAL(12, 2)
10650	>	TOT DECIMAL(12,2)
10651		)
10652		AS
10653		BEGIN SUSPEND; EXIT; END
10654		^
10655	+
10656		CREATE PROCEDURE EMPLOYEE_PAY_STATUS
10657		(
10658		EMP_NUM SMALLINT
#	Line 10486 \| Line 10660 \| CREATE PROCEDURE EMPLOYEE_PAY_STATUS
10660		RETURNS
10661		(
10662		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
10663	<	SALARY NUMERIC(10, 2)
10663	>	SALARY NUMERIC(10,2)
10664		)
10665		AS
10666		BEGIN EXIT; END
10667		^
10668	+
10669		CREATE PROCEDURE GET_EMP_PROJ
10670		(
10671		EMP_NO SMALLINT
#	Line 10502 \| Line 10677 \| RETURNS
10677		AS
10678		BEGIN SUSPEND; EXIT; END
10679		^
10680	+
10681		CREATE PROCEDURE "Has Space"
10682		(
10683		ARG1 INTEGER
#	Line 10509 \| Line 10685 \| CREATE PROCEDURE "Has Space"
10685		AS
10686		BEGIN EXIT; END
10687		^
10688	+
10689		CREATE PROCEDURE MAIL_LABEL
10690		(
10691		CUST_NO INTEGER
#	Line 10525 \| Line 10702 \| RETURNS
10702		AS
10703		BEGIN SUSPEND; EXIT; END
10704		^
10705	+
10706		CREATE PROCEDURE ORG_CHART
10707		RETURNS
10708		(
#	Line 10537 \| Line 10715 \| RETURNS
10715		AS
10716		BEGIN SUSPEND; EXIT; END
10717		^
10718	+
10719		CREATE PROCEDURE SHIP_ORDER
10720		(
10721		PO_NUM CHAR(8) CHARACTER SET NONE
#	Line 10544 \| Line 10723 \| CREATE PROCEDURE SHIP_ORDER
10723		AS
10724		BEGIN EXIT; END
10725		^
10726	+
10727		CREATE PROCEDURE SUB_TOT_BUDGET
10728		(
10729		HEAD_DEPT CHAR(3) CHARACTER SET NONE
10730		)
10731		RETURNS
10732		(
10733	<	TOT_BUDGET DECIMAL(12, 2),
10734	<	AVG_BUDGET DECIMAL(12, 2),
10735	<	MIN_BUDGET DECIMAL(12, 2),
10736	<	MAX_BUDGET DECIMAL(12, 2)
10733	>	TOT_BUDGET DECIMAL(12,2),
10734	>	AVG_BUDGET DECIMAL(12,2),
10735	>	MIN_BUDGET DECIMAL(12,2),
10736	>	MAX_BUDGET DECIMAL(12,2)
10737		)
10738		AS
10739		BEGIN SUSPEND; EXIT; END
10740		^
10741	+
10742		CREATE PROCEDURE "UC SPACE"
10743		(
10744		ARG1 INTEGER
#	Line 10565 \| Line 10746 \| CREATE PROCEDURE "UC SPACE"
10746		AS
10747		BEGIN EXIT; END
10748		^
10749	+
10750		CREATE PROCEDURE "iCASE"
10751		AS
10752		BEGIN EXIT; END
10753		^
10754	<	SET TERM ; ^
10754	>
10755	>	SET TERM ;^
10756		COMMIT WORK;
10757		SET AUTODDL ON;
10758		COMMIT WORK;
10759		SET AUTODDL OFF;
10760	<	SET TERM ^ ;
10760	>	SET TERM ^;
10761
10762		/* Stored Function declarations */
10763
#	Line 10583 \| Line 10766 \| CREATE FUNCTION F (X INTEGER)
10766		AS BEGIN END
10767		^
10768
10769	<
10587	<	SET TERM ; ^
10769	>	SET TERM ;^
10770		COMMIT WORK;
10771		SET AUTODDL ON;
10772	<	SET TERM ^ ;
10772	>	SET TERM ^;
10773
10774
10775		/* Triggers only will work for SQL triggers */
#	Line 10597 \| Line 10779 \| ACTIVE ON CONNECT POSITION 0
10779		as
10780		begin
10781		End
10782	<	^
10782	>	^
10783	>
10784		CREATE TRIGGER "BEFORE CREATE TABLE"
10785		ACTIVE BEFORE CREATE TABLE POSITION 0
10786		AS BEGIN END
10787	<	^
10787	>	^
10788	>
10789		CREATE TRIGGER "AFTER CREATE TABLE"
10790		ACTIVE AFTER CREATE TABLE POSITION 0
10791		AS BEGIN END
10792	<	^
10792	>	^
10793	>
10794		CREATE TRIGGER "BEFORE ALTER TABLE"
10795		ACTIVE BEFORE ALTER TABLE POSITION 0
10796		AS BEGIN END
10797	<	^
10797	>	^
10798	>
10799		CREATE TRIGGER "AFTER ALTER TABLE"
10800		ACTIVE AFTER ALTER TABLE POSITION 0
10801		AS BEGIN END
10802	<	^
10802	>	^
10803	>
10804		CREATE TRIGGER "AFTER CREATE/Alter TABLE"
10805		ACTIVE AFTER CREATE TABLE OR ALTER TABLE POSITION 0
10806		AS BEGIN END
10807	<	^
10807	>	^
10808	>
10809		CREATE TRIGGER "BEFORE DROP TABLE"
10810		ACTIVE BEFORE Drop TABLE POSITION 0
10811		AS BEGIN END
10812	<	^
10812	>	^
10813	>
10814		CREATE TRIGGER "AFTER DROP TABLE"
10815		ACTIVE AFTER Drop TABLE POSITION 0
10816		AS BEGIN END
10817	<	^
10817	>	^
10818	>
10819		CREATE TRIGGER "BEFORE CREATE PROCEDURE"
10820		ACTIVE BEFORE CREATE PROCEDURE POSITION 0
10821		AS BEGIN END
10822	<	^
10822	>	^
10823	>
10824		CREATE TRIGGER "AFTER CREATE PROCEDURE"
10825		ACTIVE AFTER CREATE PROCEDURE POSITION 0
10826		AS BEGIN END
10827	<	^
10827	>	^
10828	>
10829		CREATE TRIGGER "BEFORE ALTER PROCEDURE"
10830		ACTIVE BEFORE ALTER PROCEDURE POSITION 0
10831		AS BEGIN END
10832	<	^
10832	>	^
10833	>
10834		CREATE TRIGGER "AFTER ALTER PROCEDURE"
10835		ACTIVE AFTER ALTER PROCEDURE POSITION 0
10836		AS BEGIN END
10837	<	^
10837	>	^
10838	>
10839		CREATE TRIGGER "BEFORE DROP PROCEDURE"
10840		ACTIVE BEFORE Drop PROCEDURE POSITION 0
10841		AS BEGIN END
10842	<	^
10842	>	^
10843	>
10844		CREATE TRIGGER "AFTER DROP PROCEDURE"
10845		ACTIVE AFTER Drop PROCEDURE POSITION 0
10846		AS BEGIN END
10847	<	^
10847	>	^
10848	>
10849		CREATE TRIGGER "BEFORE CREATE FUNCTION"
10850		ACTIVE BEFORE CREATE FUNCTION POSITION 0
10851		AS BEGIN END
10852	<	^
10852	>	^
10853	>
10854		CREATE TRIGGER "AFTER CREATE FUNCTION"
10855		ACTIVE AFTER CREATE FUNCTION POSITION 0
10856		AS BEGIN END
10857	<	^
10857	>	^
10858	>
10859		CREATE TRIGGER "BEFORE ALTER FUNCTION"
10860		ACTIVE BEFORE ALTER FUNCTION POSITION 0
10861		AS BEGIN END
10862	<	^
10862	>	^
10863	>
10864		CREATE TRIGGER "AFTER ALTER FUNCTION"
10865		ACTIVE AFTER ALTER FUNCTION POSITION 0
10866		AS BEGIN END
10867	<	^
10867	>	^
10868	>
10869		CREATE TRIGGER "BEFORE DROP FUNCTION"
10870		ACTIVE BEFORE Drop FUNCTION POSITION 0
10871		AS BEGIN END
10872	<	^
10872	>	^
10873	>
10874		CREATE TRIGGER "AFTER DROP FUNCTION"
10875		ACTIVE AFTER Drop FUNCTION POSITION 0
10876		AS BEGIN END
10877	<	^
10877	>	^
10878	>
10879		CREATE TRIGGER "BEFORE CREATE TRIGGER"
10880		ACTIVE BEFORE CREATE TRIGGER POSITION 0
10881		AS BEGIN END
10882	<	^
10882	>	^
10883	>
10884		CREATE TRIGGER "AFTER CREATE TRIGGER"
10885		ACTIVE AFTER CREATE TRIGGER POSITION 0
10886		AS BEGIN END
10887	<	^
10887	>	^
10888	>
10889		CREATE TRIGGER "BEFORE ALTER TRIGGER"
10890		ACTIVE BEFORE ALTER TRIGGER POSITION 0
10891		AS BEGIN END
10892	<	^
10892	>	^
10893	>
10894		CREATE TRIGGER "AFTER ALTER TRIGGER"
10895		ACTIVE AFTER ALTER TRIGGER POSITION 0
10896		AS BEGIN END
10897	<	^
10897	>	^
10898	>
10899		CREATE TRIGGER "BEFORE DROP TRIGGER"
10900		ACTIVE BEFORE Drop TRIGGER POSITION 0
10901		AS BEGIN END
10902	<	^
10902	>	^
10903	>
10904		CREATE TRIGGER "AFTER DROP TRIGGER"
10905		ACTIVE AFTER Drop TRIGGER POSITION 0
10906		AS BEGIN END
10907	<	^
10907	>	^
10908	>
10909		CREATE TRIGGER "BEFORE CREATE EXCEPTION"
10910		ACTIVE BEFORE CREATE EXCEPTION POSITION 0
10911		AS BEGIN END
10912	<	^
10912	>	^
10913	>
10914		CREATE TRIGGER "AFTER CREATE EXCEPTION"
10915		ACTIVE AFTER CREATE EXCEPTION POSITION 0
10916		AS BEGIN END
10917	<	^
10917	>	^
10918	>
10919		CREATE TRIGGER "BEFORE ALTER EXCEPTION"
10920		ACTIVE BEFORE ALTER EXCEPTION POSITION 0
10921		AS BEGIN END
10922	<	^
10922	>	^
10923	>
10924		CREATE TRIGGER "AFTER ALTER EXCEPTION"
10925		ACTIVE AFTER ALTER EXCEPTION POSITION 0
10926		AS BEGIN END
10927	<	^
10927	>	^
10928	>
10929		CREATE TRIGGER "BEFORE DROP EXCEPTION"
10930		ACTIVE BEFORE Drop EXCEPTION POSITION 0
10931		AS BEGIN END
10932	<	^
10932	>	^
10933	>
10934		CREATE TRIGGER "AFTER DROP EXCEPTION"
10935		ACTIVE AFTER Drop EXCEPTION POSITION 0
10936		AS BEGIN END
10937	<	^
10937	>	^
10938	>
10939		CREATE TRIGGER "BEFORE CREATE VIEW"
10940		ACTIVE BEFORE CREATE VIEW POSITION 0
10941		AS BEGIN END
10942	<	^
10942	>	^
10943	>
10944		CREATE TRIGGER "AFTER CREATE VIEW"
10945		ACTIVE AFTER CREATE VIEW POSITION 0
10946		AS BEGIN END
10947	<	^
10947	>	^
10948	>
10949		CREATE TRIGGER "BEFORE ALTER VIEW"
10950		ACTIVE BEFORE ALTER VIEW POSITION 0
10951		AS BEGIN END
10952	<	^
10952	>	^
10953	>
10954		CREATE TRIGGER "AFTER ALTER VIEW"
10955		ACTIVE AFTER ALTER VIEW POSITION 0
10956		AS BEGIN END
10957	<	^
10957	>	^
10958	>
10959		CREATE TRIGGER "BEFORE DROP VIEW"
10960		ACTIVE BEFORE Drop VIEW POSITION 0
10961		AS BEGIN END
10962	<	^
10962	>	^
10963	>
10964		CREATE TRIGGER "AFTER DROP VIEW"
10965		ACTIVE AFTER Drop VIEW POSITION 0
10966		AS BEGIN END
10967	<	^
10967	>	^
10968	>
10969		CREATE TRIGGER "BEFORE CREATE DOMAIN"
10970		ACTIVE BEFORE CREATE DOMAIN POSITION 0
10971		AS BEGIN END
10972	<	^
10972	>	^
10973	>
10974		CREATE TRIGGER "AFTER CREATE DOMAIN"
10975		ACTIVE AFTER CREATE DOMAIN POSITION 0
10976		AS BEGIN END
10977	<	^
10977	>	^
10978	>
10979		CREATE TRIGGER "BEFORE ALTER DOMAIN"
10980		ACTIVE BEFORE ALTER DOMAIN POSITION 0
10981		AS BEGIN END
10982	<	^
10982	>	^
10983	>
10984		CREATE TRIGGER "AFTER ALTER DOMAIN"
10985		ACTIVE AFTER ALTER DOMAIN POSITION 0
10986		AS BEGIN END
10987	<	^
10987	>	^
10988	>
10989		CREATE TRIGGER "BEFORE DROP DOMAIN"
10990		ACTIVE BEFORE Drop DOMAIN POSITION 0
10991		AS BEGIN END
10992	<	^
10992	>	^
10993	>
10994		CREATE TRIGGER "AFTER DROP DOMAIN"
10995		ACTIVE AFTER Drop DOMAIN POSITION 0
10996		AS BEGIN END
10997	<	^
10997	>	^
10998	>
10999		CREATE TRIGGER "BEFORE CREATE ROLE"
11000		ACTIVE BEFORE CREATE ROLE POSITION 0
11001		AS BEGIN END
11002	<	^
11002	>	^
11003	>
11004		CREATE TRIGGER "AFTER CREATE ROLE"
11005		ACTIVE AFTER CREATE ROLE POSITION 0
11006		AS BEGIN END
11007	<	^
11007	>	^
11008	>
11009		CREATE TRIGGER "BEFORE ALTER ROLE"
11010		ACTIVE BEFORE ALTER ROLE POSITION 0
11011		AS BEGIN END
11012	<	^
11012	>	^
11013	>
11014		CREATE TRIGGER "AFTER ALTER ROLE"
11015		ACTIVE AFTER ALTER ROLE POSITION 0
11016		AS BEGIN END
11017	<	^
11017	>	^
11018	>
11019		CREATE TRIGGER "BEFORE DROP ROLE"
11020		ACTIVE BEFORE Drop ROLE POSITION 0
11021		AS BEGIN END
11022	<	^
11022	>	^
11023	>
11024		CREATE TRIGGER "AFTER DROP ROLE"
11025		ACTIVE AFTER Drop ROLE POSITION 0
11026		AS BEGIN END
11027	<	^
11027	>	^
11028	>
11029		CREATE TRIGGER "BEFORE CREATE INDEX"
11030		ACTIVE BEFORE CREATE INDEX POSITION 0
11031		AS BEGIN END
11032	<	^
11032	>	^
11033	>
11034		CREATE TRIGGER "AFTER CREATE INDEX"
11035		ACTIVE AFTER CREATE INDEX POSITION 0
11036		AS BEGIN END
11037	<	^
11037	>	^
11038	>
11039		CREATE TRIGGER "BEFORE ALTER INDEX"
11040		ACTIVE BEFORE ALTER INDEX POSITION 0
11041		AS BEGIN END
11042	<	^
11042	>	^
11043	>
11044		CREATE TRIGGER "AFTER ALTER INDEX"
11045		ACTIVE AFTER ALTER INDEX POSITION 0
11046		AS BEGIN END
11047	<	^
11047	>	^
11048	>
11049		CREATE TRIGGER "BEFORE DROP INDEX"
11050		ACTIVE BEFORE Drop INDEX POSITION 0
11051		AS BEGIN END
11052	<	^
11052	>	^
11053	>
11054		CREATE TRIGGER "AFTER DROP INDEX"
11055		ACTIVE AFTER Drop INDEX POSITION 0
11056		AS BEGIN END
11057	<	^
11057	>	^
11058	>
11059		CREATE TRIGGER "BEFORE CREATE SEQUENCE"
11060		ACTIVE BEFORE CREATE SEQUENCE POSITION 0
11061		AS BEGIN END
11062	<	^
11062	>	^
11063	>
11064		CREATE TRIGGER "AFTER CREATE SEQUENCE"
11065		ACTIVE AFTER CREATE SEQUENCE POSITION 0
11066		AS BEGIN END
11067	<	^
11067	>	^
11068	>
11069		CREATE TRIGGER "BEFORE ALTER SEQUENCE"
11070		ACTIVE BEFORE ALTER SEQUENCE POSITION 0
11071		AS BEGIN END
11072	<	^
11072	>	^
11073	>
11074		CREATE TRIGGER "AFTER ALTER SEQUENCE"
11075		ACTIVE AFTER ALTER SEQUENCE POSITION 0
11076		AS BEGIN END
11077	<	^
11077	>	^
11078	>
11079		CREATE TRIGGER "BEFORE DROP SEQUENCE"
11080		ACTIVE BEFORE Drop SEQUENCE POSITION 0
11081		AS BEGIN END
11082	<	^
11082	>	^
11083	>
11084		CREATE TRIGGER "AFTER DROP SEQUENCE"
11085		ACTIVE AFTER Drop SEQUENCE POSITION 0
11086		AS BEGIN END
11087	<	^
11087	>	^
11088	>
11089		CREATE TRIGGER "BEFORE CREATE USER"
11090		ACTIVE BEFORE CREATE USER POSITION 0
11091		AS BEGIN END
11092	<	^
11092	>	^
11093	>
11094		CREATE TRIGGER "AFTER CREATE USER"
11095		ACTIVE AFTER CREATE USER POSITION 0
11096		AS BEGIN END
11097	<	^
11097	>	^
11098	>
11099		CREATE TRIGGER "BEFORE ALTER USER"
11100		ACTIVE BEFORE ALTER USER POSITION 0
11101		AS BEGIN END
11102	<	^
11102	>	^
11103	>
11104		CREATE TRIGGER "AFTER ALTER USER"
11105		ACTIVE AFTER ALTER USER POSITION 0
11106		AS BEGIN END
11107	<	^
11107	>	^
11108	>
11109		CREATE TRIGGER "BEFORE DROP USER"
11110		ACTIVE BEFORE Drop USER POSITION 0
11111		AS BEGIN END
11112	<	^
11112	>	^
11113	>
11114		CREATE TRIGGER "AFTER DROP USER"
11115		ACTIVE AFTER Drop USER POSITION 0
11116		AS BEGIN END
11117	<	^
11117	>	^
11118	>
11119		CREATE TRIGGER "BEFORE CREATE COLLATION"
11120		ACTIVE BEFORE CREATE COLLATION POSITION 0
11121		AS BEGIN END
11122	<	^
11122	>	^
11123	>
11124		CREATE TRIGGER "AFTER CREATE COLLATION"
11125		ACTIVE AFTER CREATE COLLATION POSITION 0
11126		AS BEGIN END
11127	<	^
11127	>	^
11128	>
11129		CREATE TRIGGER "BEFORE DROP COLLATION"
11130		ACTIVE BEFORE Drop COLLATION POSITION 0
11131		AS BEGIN END
11132	<	^
11132	>	^
11133	>
11134		CREATE TRIGGER "AFTER DROP COLLATION"
11135		ACTIVE AFTER Drop COLLATION POSITION 0
11136		AS BEGIN END
11137	<	^
11137	>	^
11138	>
11139		CREATE TRIGGER "BEFORE ALTER CHARACTER SET"
11140		ACTIVE BEFORE ALTER CHARACTER SET POSITION 0
11141		AS BEGIN END
11142	<	^
11142	>	^
11143	>
11144		CREATE TRIGGER "AFTER ALTER CHARACTER SET"
11145		ACTIVE AFTER ALTER CHARACTER SET POSITION 0
11146		AS BEGIN END
11147	<	^
11147	>	^
11148	>
11149		CREATE TRIGGER "BEFORE CREATE PACKAGE"
11150		ACTIVE BEFORE CREATE PACKAGE POSITION 0
11151		AS BEGIN END
11152	<	^
11152	>	^
11153	>
11154		CREATE TRIGGER "AFTER CREATE PACKAGE"
11155		ACTIVE AFTER CREATE PACKAGE POSITION 0
11156		AS BEGIN END
11157	<	^
11157	>	^
11158	>
11159		CREATE TRIGGER "BEFORE ALTER PACKAGE"
11160		ACTIVE BEFORE ALTER PACKAGE POSITION 0
11161		AS BEGIN END
11162	<	^
11162	>	^
11163	>
11164		CREATE TRIGGER "AFTER ALTER PACKAGE"
11165		ACTIVE AFTER ALTER PACKAGE POSITION 0
11166		AS BEGIN END
11167	<	^
11167	>	^
11168	>
11169		CREATE TRIGGER "BEFORE DROP PACKAGE"
11170		ACTIVE BEFORE Drop PACKAGE POSITION 0
11171		AS BEGIN END
11172	<	^
11172	>	^
11173	>
11174		CREATE TRIGGER "AFTER DROP PACKAGE"
11175		ACTIVE AFTER Drop PACKAGE POSITION 0
11176		AS BEGIN END
11177	<	^
11177	>	^
11178	>
11179		CREATE TRIGGER "BEFORE CREATE PACKAGE BODY"
11180		ACTIVE BEFORE CREATE PACKAGE BODY POSITION 0
11181		AS BEGIN END
11182	<	^
11182	>	^
11183	>
11184		CREATE TRIGGER "AFTER CREATE PACKAGE BODY"
11185		ACTIVE AFTER CREATE PACKAGE BODY POSITION 0
11186		AS BEGIN END
11187	<	^
11187	>	^
11188	>
11189		CREATE TRIGGER "BEFORE DROP PACKAGE BODY"
11190		ACTIVE BEFORE Drop PACKAGE BODY POSITION 0
11191		AS BEGIN END
11192	<	^
11192	>	^
11193	>
11194		CREATE TRIGGER "AFTER DROP PACKAGE BODY"
11195		ACTIVE AFTER Drop PACKAGE BODY POSITION 0
11196		AS BEGIN END
11197	<	^
11197	>	^
11198	>
11199		CREATE TRIGGER "BEFORE ANY DDL STATEMENT"
11200		ACTIVE BEFORE ANY DDL STATEMENT POSITION 0
11201		AS BEGIN END
11202	<	^
11202	>	^
11203	>
11204		CREATE TRIGGER "AFTER ANY DDL STATEMENT"
11205		ACTIVE AFTER ANY DDL STATEMENT POSITION 0
11206		AS BEGIN END
11207	<	^
11207	>	^
11208	>
11209		CREATE TRIGGER SET_CUST_NO FOR CUSTOMER
11210		ACTIVE BEFORE INSERT POSITION 0
11211		AS
#	Line 10945 \| Line 11213 \| BEGIN
11213		if (new.cust_no is null) then
11214		new.cust_no = gen_id(cust_no_gen, 1);
11215		END
11216	<	^
11216	>	^
11217	>
11218		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
11219		ACTIVE BEFORE INSERT POSITION 0
11220		AS
#	Line 10953 \| Line 11222 \| BEGIN
11222		if (new.emp_no is null) then
11223		new.emp_no = gen_id(emp_no_gen, 1);
11224		END
11225	<	^
11225	>	^
11226	>
11227		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
11228		ACTIVE AFTER UPDATE POSITION 0
11229		AS
#	Line 10968 \| Line 11238 \| BEGIN
11238		old.salary,
11239		(new.salary - old.salary) * 100 / old.salary);
11240		END
11241	<	^
11241	>	^
11242	>
11243		CREATE TRIGGER POST_NEW_ORDER FOR SALES
11244		ACTIVE AFTER INSERT POSITION 0
11245		AS
11246		BEGIN
11247		POST_EVENT 'new_order';
11248		END
11249	<	^
11250	<	COMMIT WORK ^
11249	>	^
11250	>
11251	>	COMMIT WORK^
11252		SET TERM ;^
11253		COMMIT WORK;
11254		SET AUTODDL OFF;
11255	<	SET TERM ^ ;
11255	>	SET TERM ^;
11256
11257		/* Package Definitions */
11258
11259	<	CREATE PACKAGE BODY FB$OUT
11259	>	CREATE PACKAGE BODY FB$OUT
11260		AS
10989	–
11261		begin
11262		procedure enable
11263		as
#	Line 11041 \| Line 11312 \| begin
11312		execute procedure clear;
11313		end
11314		end
11315	<	^
11315	>	^
11316
11317	<	CREATE PACKAGE BODY SELECT$TEST
11317	>	CREATE PACKAGE BODY SELECT$TEST
11318		AS
11048	–
11319		Begin
11320		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer)
11321		As
#	Line 11053 \| Line 11323 \| Begin
11323		SUSPEND;
11324		End
11325		End
11326	<	^
11326	>	^
11327
11328	<	SET TERM ; ^
11328	>	SET TERM ;^
11329		COMMIT WORK;
11330		SET AUTODDL ON;
11331		COMMIT WORK;
11332		SET AUTODDL OFF;
11333	<	SET TERM ^ ;
11333	>	SET TERM ^;
11334
11335		/* Stored procedure Bodies */
11336
11067	–
11337		ALTER PROCEDURE SHOW_LANGS
11338		(
11339		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 11086 \| Line 11355 \| BEGIN
11355		AND (language_req IS NOT NULL))
11356		INTO :languages;
11357		IF (languages = ' ') THEN /* Prints 'NULL' instead of blanks */
11358	<	languages = 'NULL';
11358	>	languages = 'NULL';
11359		i = i +1;
11360		SUSPEND;
11361		END
#	Line 11118 \| Line 11387 \| RETURNS
11387		)
11388		AS
11389		BEGIN
11390	<	FOR SELECT job_code, job_grade, job_country FROM job
11390	>	FOR SELECT job_code, job_grade, job_country FROM job
11391		INTO :code, :grade, :country
11392
11393		DO
11394		BEGIN
11395	<	FOR SELECT languages FROM show_langs
11395	>	FOR SELECT languages FROM show_langs
11396		(:code, :grade, :country) INTO :lang DO
11397		SUSPEND;
11398		/* Put nice separators between rows */
#	Line 11201 \| Line 11470 \| ALTER PROCEDURE DEPT_BUDGET
11470		)
11471		RETURNS
11472		(
11473	<	TOT DECIMAL(12, 2)
11473	>	TOT DECIMAL(12,2)
11474		)
11475		AS
11476	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
11476	>	DECLARE VARIABLE sumb DECIMAL(12,2);
11477		DECLARE VARIABLE rdno CHAR(3);
11478		DECLARE VARIABLE cnt INTEGER;
11479		BEGIN
#	Line 11238 \| Line 11507 \| ALTER PROCEDURE EMPLOYEE_PAY_STATUS
11507		RETURNS
11508		(
11509		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
11510	<	SALARY NUMERIC(10, 2)
11510	>	SALARY NUMERIC(10,2)
11511		)
11512		AS
11513	<	BEGIN
11514	<	Select SALARY, Case
11515	<	When SALARY > 10000 and SALARY <= 100000 then 'higher'
11516	<	When SALARY > 100000 then 'gross'
11517	<	else 'lower' End
11518	<	From employee
11519	<	WHERE emp_no = :EMP_NUM
11513	>	Declare aCursor CURSOR FOR (
11514	>	Select EMP_NO,SALARY From EMPLOYEE WHERE LAST_NAME = 'unknown');
11515	>	BEGIN
11516	>	Select SALARY, Case
11517	>	When SALARY > 10000 and SALARY <= 100000 then 'higher'
11518	>	When SALARY > 100000 then 'gross'
11519	>	else 'lower' End
11520	>	From employee
11521	>	WHERE emp_no = :EMP_NUM
11522		into :SALARY, :PAY_STATUS;
11523		END
11524		^
#	Line 11456 \| Line 11727 \| ALTER PROCEDURE SUB_TOT_BUDGET
11727		)
11728		RETURNS
11729		(
11730	<	TOT_BUDGET DECIMAL(12, 2),
11731	<	AVG_BUDGET DECIMAL(12, 2),
11732	<	MIN_BUDGET DECIMAL(12, 2),
11733	<	MAX_BUDGET DECIMAL(12, 2)
11730	>	TOT_BUDGET DECIMAL(12,2),
11731	>	AVG_BUDGET DECIMAL(12,2),
11732	>	MIN_BUDGET DECIMAL(12,2),
11733	>	MAX_BUDGET DECIMAL(12,2)
11734		)
11735		AS
11736		BEGIN
#	Line 11483 \| Line 11754 \| ALTER PROCEDURE "iCASE"
11754		AS
11755		Begin End
11756		^
11757	<	SET TERM ; ^
11757	>
11758	>	SET TERM ;^
11759		COMMIT WORK;
11760		SET AUTODDL ON;
11761		COMMIT WORK;
11762		SET AUTODDL OFF;
11763	<	SET TERM ^ ;
11763	>	SET TERM ^;
11764
11765		/* Stored Function Body */
11766
11767		ALTER FUNCTION F (X INTEGER)
11768		RETURNS INTEGER
11769	<	AS
11769	>	AS
11770		BEGIN
11771		RETURN X+1;
11772		END
11773		^
11774
11775	<
11504	<	SET TERM ; ^
11775	>	SET TERM ;^
11776		COMMIT WORK;
11777		SET AUTODDL ON;
11778
#	Line 11570 \| Line 11841 \| Output from diff command
11841		---
11842		> /* CREATE DATABASE 'inet://localhost//tmp/ibx-testsuite/testsuite1.fdb' PAGE_SIZE 8192
11843		6c6
11844	<	< DEFAULT CHARACTER SET NONE;
11844	>	< DEFAULT CHARACTER SET NONE;
11845		---
11846		> DEFAULT CHARACTER SET NONE; */
11847		132,140d131
11848		< /* Table: ITEST2, Owner: SYSDBA */
11849		<
11850	<	< CREATE TABLE ITEST2
11850	>	< CREATE TABLE ITEST2
11851		< (
11852		< "KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
11853		< SOMETEXT VARCHAR(64),
11854		< PRIMARY KEY ("KEY")
11855		< );
11856		<
11857	<	220d210
11587	<	<
11588	<	228d217
11589	<	<
11590	<	236d224
11591	<	<
11592	<	990c978
11593	<	< DEPT_KEY_PATH,
11594	<	---
11595	<	> DEPT_KEY_PATH,
11596	<	1124c1112
11597	<	< CREATE PACKAGE FB$OUT
11598	<	---
11599	<	> CREATE PACKAGE FB$OUT
11600	<	1136c1124
11601	<	< ^
11602	<	---
11603	<	> ^
11604	<	1138c1126
11605	<	< CREATE PACKAGE SELECT$TEST
11606	<	---
11607	<	> CREATE PACKAGE SELECT$TEST
11608	<	1144c1132
11609	<	< ^
11610	<	---
11611	<	> ^
11612	<	1146c1134
11613	<	< SET TERM ;^
11614	<	---
11615	<	> SET TERM ; ^
11616	<	1155c1143
11617	<	< CREATE PROCEDURE SHOW_LANGS
11618	<	---
11619	<	> CREATE PROCEDURE SHOW_LANGS
11620	<	1167d1154
11621	<	<
11622	<	1169,1170c1156
11623	<	<
11624	<	< CREATE PROCEDURE ADD_EMP_PROJ
11625	<	---
11626	<	> CREATE PROCEDURE ADD_EMP_PROJ
11627	<	1177d1162
11628	<	<
11629	<	1179,1180c1164
11630	<	<
11631	<	< CREATE PROCEDURE ALL_LANGS
11632	<	---
11633	<	> CREATE PROCEDURE ALL_LANGS
11634	<	1190d1173
11635	<	<
11636	<	1192,1193c1175
11637	<	<
11638	<	< CREATE PROCEDURE DELETE_EMPLOYEE
11639	<	---
11640	<	> CREATE PROCEDURE DELETE_EMPLOYEE
11641	<	1199d1180
11642	<	<
11643	<	1201,1202c1182
11644	<	<
11645	<	< CREATE PROCEDURE DEPT_BUDGET
11646	<	---
11647	<	> CREATE PROCEDURE DEPT_BUDGET
11648	<	1212d1191
11649	<	<
11650	<	1214d1192
11651	<	<
11652	<	1217c1195
11653	<	< EMP_NO SMALLINT
11654	<	---
11655	<	> EMP_NUM SMALLINT
11656	<	1221c1199,1200
11657	<	< PAY_STATUS VARCHAR(6) CHARACTER SET NONE
11658	<	---
11659	<	> PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
11660	<	> SALARY NUMERIC(10, 2)
11661	<	1225d1203
11662	<	<
11663	<	1227,1229c1205
11664	<	<
11665	<	<
11666	<	< CREATE PROCEDURE GET_EMP_PROJ
11667	<	---
11668	<	> CREATE PROCEDURE GET_EMP_PROJ
11669	<	1239d1214
11670	<	<
11671	<	1241,1242c1216
11672	<	<
11673	<	< CREATE PROCEDURE "Has Space"
11674	<	---
11675	<	> CREATE PROCEDURE "Has Space"
11676	<	1248d1221
11677	<	<
11678	<	1250,1251c1223
11679	<	<
11680	<	< CREATE PROCEDURE MAIL_LABEL
11681	<	---
11682	<	> CREATE PROCEDURE MAIL_LABEL
11683	<	1266d1237
11684	<	<
11685	<	1268,1269c1239
11686	<	<
11687	<	< CREATE PROCEDURE ORG_CHART
11688	<	---
11689	<	> CREATE PROCEDURE ORG_CHART
11690	<	1280d1249
11691	<	<
11692	<	1282,1283c1251
11693	<	<
11694	<	< CREATE PROCEDURE SHIP_ORDER
11695	<	---
11696	<	> CREATE PROCEDURE SHIP_ORDER
11697	<	1289d1256
11698	<	<
11699	<	1291,1292c1258
11700	<	<
11701	<	< CREATE PROCEDURE SUB_TOT_BUDGET
11702	<	---
11703	<	> CREATE PROCEDURE SUB_TOT_BUDGET
11704	<	1305d1270
11705	<	<
11706	<	1307,1308c1272
11707	<	<
11708	<	< CREATE PROCEDURE "UC SPACE"
11709	<	---
11710	<	> CREATE PROCEDURE "UC SPACE"
11711	<	1314d1277
11712	<	<
11713	<	1316,1317c1279
11714	<	<
11715	<	< CREATE PROCEDURE "iCASE"
11716	<	---
11717	<	> CREATE PROCEDURE "iCASE"
11718	<	1320d1281
11719	<	<
11720	<	1322,1323c1283
11721	<	<
11722	<	< SET TERM ;^
11723	<	---
11724	<	> SET TERM ; ^
11725	<	1335d1294
11726	<	<
11727	<	1339c1298
11728	<	< SET TERM ;^
11729	<	---
11730	<	> SET TERM ; ^
11731	<	1352c1311
11732	<	< ^
11733	<	---
11734	<	> ^
11735	<	1356c1315
11736	<	< ^
11737	<	---
11738	<	> ^
11739	<	1360c1319
11740	<	< ^
11741	<	---
11742	<	> ^
11743	<	1364c1323
11744	<	< ^
11745	<	---
11746	<	> ^
11747	<	1368c1327
11748	<	< ^
11749	<	---
11750	<	> ^
11751	<	1372c1331
11752	<	< ^
11753	<	---
11754	<	> ^
11755	<	1376c1335
11756	<	< ^
11757	<	---
11758	<	> ^
11759	<	1380c1339
11760	<	< ^
11761	<	---
11762	<	> ^
11763	<	1384c1343
11764	<	< ^
11765	<	---
11766	<	> ^
11767	<	1388c1347
11768	<	< ^
11769	<	---
11770	<	> ^
11771	<	1392c1351
11772	<	< ^
11773	<	---
11774	<	> ^
11775	<	1396c1355
11776	<	< ^
11777	<	---
11778	<	> ^
11779	<	1400c1359
11780	<	< ^
11781	<	---
11782	<	> ^
11783	<	1404c1363
11784	<	< ^
11785	<	---
11786	<	> ^
11787	<	1408c1367
11788	<	< ^
11789	<	---
11790	<	> ^
11791	<	1412c1371
11792	<	< ^
11793	<	---
11794	<	> ^
11795	<	1416c1375
11796	<	< ^
11797	<	---
11798	<	> ^
11799	<	1420c1379
11800	<	< ^
11801	<	---
11802	<	> ^
11803	<	1424c1383
11804	<	< ^
11805	<	---
11806	<	> ^
11807	<	1428c1387
11808	<	< ^
11809	<	---
11810	<	> ^
11811	<	1432c1391
11812	<	< ^
11813	<	---
11814	<	> ^
11815	<	1436c1395
11816	<	< ^
11817	<	---
11818	<	> ^
11819	<	1440c1399
11820	<	< ^
11821	<	---
11822	<	> ^
11823	<	1444c1403
11824	<	< ^
11825	<	---
11826	<	> ^
11827	<	1448c1407
11828	<	< ^
11829	<	---
11830	<	> ^
11831	<	1452c1411
11832	<	< ^
11833	<	---
11834	<	> ^
11835	<	1456c1415
11836	<	< ^
11837	<	---
11838	<	> ^
11839	<	1460c1419
11840	<	< ^
11841	<	---
11842	<	> ^
11843	<	1464c1423
11844	<	< ^
11845	<	---
11846	<	> ^
11847	<	1468c1427
11848	<	< ^
11849	<	---
11850	<	> ^
11851	<	1472c1431
11852	<	< ^
11853	<	---
11854	<	> ^
11855	<	1476c1435
11856	<	< ^
11857	<	---
11858	<	> ^
11859	<	1480c1439
11860	<	< ^
11861	<	---
11862	<	> ^
11863	<	1484c1443
11864	<	< ^
11865	<	---
11866	<	> ^
11867	<	1488c1447
11868	<	< ^
11869	<	---
11870	<	> ^
11871	<	1492c1451
11872	<	< ^
11873	<	---
11874	<	> ^
11875	<	1496c1455
11876	<	< ^
11877	<	---
11878	<	> ^
11879	<	1500c1459
11880	<	< ^
11881	<	---
11882	<	> ^
11883	<	1504c1463
11884	<	< ^
11885	<	---
11886	<	> ^
11887	<	1508c1467
11888	<	< ^
11889	<	---
11890	<	> ^
11891	<	1512c1471
11892	<	< ^
11893	<	---
11894	<	> ^
11895	<	1516c1475
11896	<	< ^
11897	<	---
11898	<	> ^
11899	<	1520c1479
11900	<	< ^
11901	<	---
11902	<	> ^
11903	<	1524c1483
11904	<	< ^
11905	<	---
11906	<	> ^
11907	<	1528c1487
11908	<	< ^
11909	<	---
11910	<	> ^
11911	<	1532c1491
11912	<	< ^
11913	<	---
11914	<	> ^
11915	<	1536c1495
11916	<	< ^
11917	<	---
11918	<	> ^
11919	<	1540c1499
11920	<	< ^
11921	<	---
11922	<	> ^
11923	<	1544c1503
11924	<	< ^
11925	<	---
11926	<	> ^
11927	<	1548c1507
11928	<	< ^
11929	<	---
11930	<	> ^
11931	<	1552c1511
11932	<	< ^
11933	<	---
11934	<	> ^
11935	<	1556c1515
11936	<	< ^
11937	<	---
11938	<	> ^
11939	<	1560c1519
11940	<	< ^
11941	<	---
11942	<	> ^
11943	<	1564c1523
11944	<	< ^
11945	<	---
11946	<	> ^
11947	<	1568c1527
11948	<	< ^
11949	<	---
11950	<	> ^
11951	<	1572c1531
11952	<	< ^
11953	<	---
11954	<	> ^
11955	<	1576c1535
11956	<	< ^
11957	<	---
11958	<	> ^
11959	<	1580c1539
11960	<	< ^
11961	<	---
11962	<	> ^
11963	<	1584c1543
11964	<	< ^
11965	<	---
11966	<	> ^
11967	<	1588c1547
11968	<	< ^
11969	<	---
11970	<	> ^
11971	<	1592c1551
11972	<	< ^
11973	<	---
11974	<	> ^
11975	<	1596c1555
11976	<	< ^
11977	<	---
11978	<	> ^
11979	<	1600c1559
11980	<	< ^
11981	<	---
11982	<	> ^
11983	<	1604c1563
11984	<	< ^
11985	<	---
11986	<	> ^
11987	<	1608c1567
11988	<	< ^
11989	<	---
11990	<	> ^
11991	<	1612c1571
11992	<	< ^
11993	<	---
11994	<	> ^
11995	<	1616c1575
11996	<	< ^
11997	<	---
11998	<	> ^
11999	<	1620c1579
12000	<	< ^
12001	<	---
12002	<	> ^
12003	<	1624c1583
12004	<	< ^
12005	<	---
12006	<	> ^
12007	<	1628c1587
12008	<	< ^
12009	<	---
12010	<	> ^
12011	<	1632c1591
12012	<	< ^
12013	<	---
12014	<	> ^
12015	<	1636c1595
12016	<	< ^
12017	<	---
12018	<	> ^
12019	<	1640c1599
12020	<	< ^
12021	<	---
12022	<	> ^
12023	<	1644c1603
12024	<	< ^
12025	<	---
12026	<	> ^
12027	<	1648c1607
12028	<	< ^
12029	<	---
12030	<	> ^
12031	<	1652c1611
12032	<	< ^
12033	<	---
12034	<	> ^
12035	<	1656c1615
12036	<	< ^
12037	<	---
12038	<	> ^
12039	<	1660c1619
12040	<	< ^
12041	<	---
12042	<	> ^
12043	<	1664c1623
12044	<	< ^
12045	<	---
12046	<	> ^
12047	<	1668c1627
12048	<	< ^
12049	<	---
12050	<	> ^
12051	<	1672c1631
12052	<	< ^
12053	<	---
12054	<	> ^
12055	<	1676c1635
12056	<	< ^
12057	<	---
12058	<	> ^
12059	<	1680c1639
12060	<	< ^
12061	<	---
12062	<	> ^
12063	<	1684c1643
12064	<	< ^
12065	<	---
12066	<	> ^
12067	<	1688c1647
12068	<	< ^
12069	<	---
12070	<	> ^
12071	<	1692c1651
12072	<	< ^
12073	<	---
12074	<	> ^
12075	<	1700c1659
12076	<	< ^
12077	<	---
12078	<	> ^
12079	<	1708c1667
12080	<	< ^
12081	<	---
12082	<	> ^
12083	<	1723c1682
12084	<	< ^
12085	<	---
12086	<	> ^
12087	<	1730,1731c1689,1690
12088	<	< ^
12089	<	< COMMIT WORK^
12090	<	---
12091	<	> ^
12092	<	> COMMIT WORK ^
12093	<	1739c1698
12094	<	< CREATE PACKAGE BODY FB$OUT
12095	<	---
12096	<	> CREATE PACKAGE BODY FB$OUT
12097	<	1796c1755
12098	<	< ^
12099	<	---
12100	<	> ^
12101	<	1798c1757
12102	<	< CREATE PACKAGE BODY SELECT$TEST
12103	<	---
12104	<	> CREATE PACKAGE BODY SELECT$TEST
12105	<	1808c1767
12106	<	< ^
12107	<	---
12108	<	> ^
12109	<	1810c1769
12110	<	< SET TERM ;^
12111	<	---
12112	<	> SET TERM ; ^
12113	<	1820c1779
12114	<	< ALTER PROCEDURE SHOW_LANGS
12115	<	---
12116	<	> ALTER PROCEDURE SHOW_LANGS
12117	<	1848,1849c1807
12118	<	<
12119	<	< ALTER PROCEDURE ADD_EMP_PROJ
12120	<	---
12121	<	> ALTER PROCEDURE ADD_EMP_PROJ
12122	<	1864c1822
12123	<	< ALTER PROCEDURE ALL_LANGS
12124	<	---
12125	<	> ALTER PROCEDURE ALL_LANGS
12126	<	1892,1893c1850
12127	<	<
12128	<	< ALTER PROCEDURE DELETE_EMPLOYEE
12129	<	---
12130	<	> ALTER PROCEDURE DELETE_EMPLOYEE
12131	<	1952,1953c1909
12132	<	<
12133	<	< ALTER PROCEDURE DEPT_BUDGET
12134	<	---
12135	<	> ALTER PROCEDURE DEPT_BUDGET
12136	<	1996c1952
12137	<	< SALARY NUMERIC(10,2)
12138	<	---
12139	<	> SALARY NUMERIC(10, 2)
12140	<	2010c1966
12141	<	< ALTER PROCEDURE GET_EMP_PROJ
12142	<	---
12143	<	> ALTER PROCEDURE GET_EMP_PROJ
12144	<	2029,2030c1985
12145	<	<
12146	<	< ALTER PROCEDURE "Has Space"
12147	<	---
12148	<	> ALTER PROCEDURE "Has Space"
12149	<	2038,2039c1993
12150	<	<
12151	<	< ALTER PROCEDURE MAIL_LABEL
12152	<	---
12153	<	> ALTER PROCEDURE MAIL_LABEL
12154	<	2109,2110c2063
12155	<	<
12156	<	< ALTER PROCEDURE ORG_CHART
12157	<	---
12158	<	> ALTER PROCEDURE ORG_CHART
12159	<	2152,2153c2105
12160	<	<
12161	<	< ALTER PROCEDURE SHIP_ORDER
12162	<	---
12163	<	> ALTER PROCEDURE SHIP_ORDER
12164	<	2212,2213c2164
12165	<	<
12166	<	< ALTER PROCEDURE SUB_TOT_BUDGET
12167	<	---
12168	<	> ALTER PROCEDURE SUB_TOT_BUDGET
12169	<	2234,2235c2185
12170	<	<
12171	<	< ALTER PROCEDURE "UC SPACE"
12172	<	---
12173	<	> ALTER PROCEDURE "UC SPACE"
12174	<	2243,2244c2193
12175	<	<
12176	<	< ALTER PROCEDURE "iCASE"
12177	<	---
12178	<	> ALTER PROCEDURE "iCASE"
12179	<	2248,2249c2197
12180	<	<
12181	<	< SET TERM ;^
12182	<	---
12183	<	> SET TERM ; ^
12184	<	2267c2215
12185	<	< SET TERM ;^
12186	<	---
12187	<	> SET TERM ; ^
12188	<	2277,2280d2224
11857	>	2334,2337d2324
11858		<
11859		< /* Role: TESTROLE, Owner: SYSDBA */
11860		<
#	Line 12244 \| Line 11913 \| Message File Location = /opt/firebird3.0
11913		Database Statistics for employee
11914
11915		Database "/opt/firebird3.0.5/examples/empbuild/employee.fdb"
11916	<	Gstat execution time Wed Oct 6 09:54:45 2021
11916	>	Gstat execution time Sun Oct 17 23:38:52 2021
11917
11918		Database header page information:
11919		Flags 0
11920	<	Generation 3338
11920	>	Generation 3558
11921		System Change Number 0
11922		Page size 8192
11923		ODS version 12.0
11924	<	Oldest transaction 3763
11925	<	Oldest active 3764
11926	<	Oldest snapshot 3764
11927	<	Next transaction 3764
11924	>	Oldest transaction 4013
11925	>	Oldest active 4014
11926	>	Oldest snapshot 4014
11927	>	Next transaction 4014
11928		Sequence number 0
11929	<	Next attachment ID 3517
11929	>	Next attachment ID 3761
11930		Implementation HW=AMD/Intel/x64 little-endian OS=Linux CC=gcc
11931		Shadow count 0
11932		Page buffers 0
#	Line 12404 \| Line 12073 \| Fill distribution:
12073		60 - 79% = 0
12074		80 - 99% = 0
12075
12076	<	Gstat completion time Wed Oct 6 09:54:45 2021
12076	>	Gstat completion time Sun Oct 17 23:38:52 2021
12077
12078
12079
#	Line 12414 \| Line 12083 \| zeus Tue Jun 9 15:11:28 2020
12083		bin/fbguard: guardian starting /opt/firebird3.0.5/bin/firebird
12084
12085		Online Validation
12086	<	09:54:46.38 Validation started
12086	>	23:38:53.49 Validation started
12087
12088	<	09:54:46.39 Relation 128 (COUNTRY)
12089	<	09:54:46.39 process pointer page 0 of 1
12090	<	09:54:46.39 Index 1 (RDB$PRIMARY1)
12091	<	09:54:46.39 Relation 128 (COUNTRY) is ok
12092	<
12093	<	09:54:46.39 Relation 129 (JOB)
12094	<	09:54:46.39 process pointer page 0 of 1
12095	<	09:54:46.39 Index 1 (RDB$PRIMARY2)
12096	<	09:54:46.39 Index 2 (RDB$FOREIGN3)
12097	<	09:54:46.39 Index 3 (MAXSALX)
12098	<	09:54:46.39 Index 4 (MINSALX)
12099	<	09:54:46.39 Relation 129 (JOB) is ok
12100	<
12101	<	09:54:46.39 Relation 130 (DEPARTMENT)
12102	<	09:54:46.39 process pointer page 0 of 1
12103	<	09:54:46.39 Index 1 (RDB$4)
12104	<	09:54:46.40 Index 2 (RDB$PRIMARY5)
12105	<	09:54:46.40 Index 3 (RDB$FOREIGN6)
12106	<	09:54:46.40 Index 4 (BUDGETX)
12107	<	09:54:46.40 Index 5 (RDB$FOREIGN10)
12108	<	09:54:46.40 Relation 130 (DEPARTMENT) is ok
12109	<
12110	<	09:54:46.40 Relation 131 (EMPLOYEE)
12111	<	09:54:46.40 process pointer page 0 of 1
12112	<	09:54:46.40 Index 1 (RDB$PRIMARY7)
12113	<	09:54:46.40 Index 2 (RDB$FOREIGN8)
12114	<	09:54:46.40 Index 3 (RDB$FOREIGN9)
12115	<	09:54:46.40 Index 4 (NAMEX)
12116	<	09:54:46.40 Relation 131 (EMPLOYEE) is ok
12117	<
12118	<	09:54:46.40 Relation 133 (PROJECT)
12119	<	09:54:46.40 process pointer page 0 of 1
12120	<	09:54:46.40 Index 1 (RDB$11)
12121	<	09:54:46.40 Index 2 (RDB$PRIMARY12)
12122	<	09:54:46.40 Index 3 (RDB$FOREIGN13)
12123	<	09:54:46.40 Index 4 (PRODTYPEX)
12124	<	09:54:46.40 Relation 133 (PROJECT) is ok
12125	<
12126	<	09:54:46.40 Relation 134 (EMPLOYEE_PROJECT)
12127	<	09:54:46.40 process pointer page 0 of 1
12128	<	09:54:46.40 Index 1 (RDB$PRIMARY14)
12129	<	09:54:46.40 Index 2 (RDB$FOREIGN15)
12130	<	09:54:46.40 Index 3 (RDB$FOREIGN16)
12131	<	09:54:46.40 Relation 134 (EMPLOYEE_PROJECT) is ok
12132	<
12133	<	09:54:46.40 Relation 135 (PROJ_DEPT_BUDGET)
12134	<	09:54:46.40 process pointer page 0 of 1
12135	<	09:54:46.40 Index 1 (RDB$PRIMARY17)
12136	<	09:54:46.40 Index 2 (RDB$FOREIGN18)
12137	<	09:54:46.40 Index 3 (RDB$FOREIGN19)
12138	<	09:54:46.40 Relation 135 (PROJ_DEPT_BUDGET) is ok
12139	<
12140	<	09:54:46.40 Relation 136 (SALARY_HISTORY)
12141	<	09:54:46.40 process pointer page 0 of 1
12142	<	09:54:46.40 Index 1 (RDB$PRIMARY20)
12143	<	09:54:46.40 Index 2 (RDB$FOREIGN21)
12144	<	09:54:46.40 Index 3 (CHANGEX)
12145	<	09:54:46.40 Index 4 (UPDATERX)
12146	<	09:54:46.41 Relation 136 (SALARY_HISTORY) is ok
12147	<
12148	<	09:54:46.41 Relation 137 (CUSTOMER)
12149	<	09:54:46.41 process pointer page 0 of 1
12150	<	09:54:46.41 Index 1 (RDB$PRIMARY22)
12151	<	09:54:46.41 Index 2 (RDB$FOREIGN23)
12152	<	09:54:46.41 Index 3 (CUSTNAMEX)
12153	<	09:54:46.41 Index 4 (CUSTREGION)
12154	<	09:54:46.41 Relation 137 (CUSTOMER) is ok
12155	<
12156	<	09:54:46.41 Relation 138 (SALES)
12157	<	09:54:46.41 process pointer page 0 of 1
12158	<	09:54:46.41 Index 1 (RDB$PRIMARY24)
12159	<	09:54:46.41 Index 2 (RDB$FOREIGN25)
12160	<	09:54:46.41 Index 3 (RDB$FOREIGN26)
12161	<	09:54:46.41 Index 4 (NEEDX)
12162	<	09:54:46.41 Index 5 (QTYX)
12163	<	09:54:46.41 Index 6 (SALESTATX)
12164	<	09:54:46.41 Relation 138 (SALES) is ok
12088	>	23:38:53.49 Relation 128 (COUNTRY)
12089	>	23:38:53.49 process pointer page 0 of 1
12090	>	23:38:53.49 Index 1 (RDB$PRIMARY1)
12091	>	23:38:53.49 Relation 128 (COUNTRY) is ok
12092	>
12093	>	23:38:53.49 Relation 129 (JOB)
12094	>	23:38:53.49 process pointer page 0 of 1
12095	>	23:38:53.49 Index 1 (RDB$PRIMARY2)
12096	>	23:38:53.49 Index 2 (RDB$FOREIGN3)
12097	>	23:38:53.49 Index 3 (MAXSALX)
12098	>	23:38:53.49 Index 4 (MINSALX)
12099	>	23:38:53.49 Relation 129 (JOB) is ok
12100	>
12101	>	23:38:53.49 Relation 130 (DEPARTMENT)
12102	>	23:38:53.49 process pointer page 0 of 1
12103	>	23:38:53.49 Index 1 (RDB$4)
12104	>	23:38:53.49 Index 2 (RDB$PRIMARY5)
12105	>	23:38:53.49 Index 3 (RDB$FOREIGN6)
12106	>	23:38:53.49 Index 4 (BUDGETX)
12107	>	23:38:53.49 Index 5 (RDB$FOREIGN10)
12108	>	23:38:53.49 Relation 130 (DEPARTMENT) is ok
12109	>
12110	>	23:38:53.49 Relation 131 (EMPLOYEE)
12111	>	23:38:53.50 process pointer page 0 of 1
12112	>	23:38:53.50 Index 1 (RDB$PRIMARY7)
12113	>	23:38:53.50 Index 2 (RDB$FOREIGN8)
12114	>	23:38:53.50 Index 3 (RDB$FOREIGN9)
12115	>	23:38:53.50 Index 4 (NAMEX)
12116	>	23:38:53.50 Relation 131 (EMPLOYEE) is ok
12117	>
12118	>	23:38:53.50 Relation 133 (PROJECT)
12119	>	23:38:53.50 process pointer page 0 of 1
12120	>	23:38:53.50 Index 1 (RDB$11)
12121	>	23:38:53.50 Index 2 (RDB$PRIMARY12)
12122	>	23:38:53.50 Index 3 (RDB$FOREIGN13)
12123	>	23:38:53.50 Index 4 (PRODTYPEX)
12124	>	23:38:53.50 Relation 133 (PROJECT) is ok
12125	>
12126	>	23:38:53.50 Relation 134 (EMPLOYEE_PROJECT)
12127	>	23:38:53.50 process pointer page 0 of 1
12128	>	23:38:53.50 Index 1 (RDB$PRIMARY14)
12129	>	23:38:53.50 Index 2 (RDB$FOREIGN15)
12130	>	23:38:53.50 Index 3 (RDB$FOREIGN16)
12131	>	23:38:53.50 Relation 134 (EMPLOYEE_PROJECT) is ok
12132	>
12133	>	23:38:53.50 Relation 135 (PROJ_DEPT_BUDGET)
12134	>	23:38:53.50 process pointer page 0 of 1
12135	>	23:38:53.50 Index 1 (RDB$PRIMARY17)
12136	>	23:38:53.50 Index 2 (RDB$FOREIGN18)
12137	>	23:38:53.50 Index 3 (RDB$FOREIGN19)
12138	>	23:38:53.50 Relation 135 (PROJ_DEPT_BUDGET) is ok
12139	>
12140	>	23:38:53.50 Relation 136 (SALARY_HISTORY)
12141	>	23:38:53.50 process pointer page 0 of 1
12142	>	23:38:53.50 Index 1 (RDB$PRIMARY20)
12143	>	23:38:53.50 Index 2 (RDB$FOREIGN21)
12144	>	23:38:53.50 Index 3 (CHANGEX)
12145	>	23:38:53.50 Index 4 (UPDATERX)
12146	>	23:38:53.50 Relation 136 (SALARY_HISTORY) is ok
12147	>
12148	>	23:38:53.50 Relation 137 (CUSTOMER)
12149	>	23:38:53.50 process pointer page 0 of 1
12150	>	23:38:53.50 Index 1 (RDB$PRIMARY22)
12151	>	23:38:53.50 Index 2 (RDB$FOREIGN23)
12152	>	23:38:53.50 Index 3 (CUSTNAMEX)
12153	>	23:38:53.50 Index 4 (CUSTREGION)
12154	>	23:38:53.50 Relation 137 (CUSTOMER) is ok
12155	>
12156	>	23:38:53.50 Relation 138 (SALES)
12157	>	23:38:53.50 process pointer page 0 of 1
12158	>	23:38:53.51 Index 1 (RDB$PRIMARY24)
12159	>	23:38:53.51 Index 2 (RDB$FOREIGN25)
12160	>	23:38:53.51 Index 3 (RDB$FOREIGN26)
12161	>	23:38:53.51 Index 4 (NEEDX)
12162	>	23:38:53.51 Index 5 (QTYX)
12163	>	23:38:53.51 Index 6 (SALESTATX)
12164	>	23:38:53.51 Relation 138 (SALES) is ok
12165
12166	<	09:54:46.41 Validation finished
12166	>	23:38:53.51 Validation finished
12167
12168
12169		Normal Validation
#	Line 15668 \| Line 15337 \| Create Table LotsOfData (
15337		MyText VarChar(1024),
15338		Primary Key (RowID)
15339		);
15340	<	Loading data into database table. Started at 06/10/2021 09:55:30.702
15341	<	Data load completed at 06/10/2021 09:57:14.355 Elapsed Time = 103653 ms, 100000 records loaded
15342	<	Message Hash = aada768f1d5fa8c549d255798b6df8ab
15343	<	Database Read started at 06/10/2021 09:57:14.365
15344	<	Read Dataset completed at 06/10/2021 09:57:44.461 Elapsed Time = 30096 ms, 100000 records read
15345	<	Message Hash = aada768f1d5fa8c549d255798b6df8ab
15340	>	Loading data into database table. Started at 17/10/2021 23:39:39.221
15341	>	Data load completed at 17/10/2021 23:41:18.349 Elapsed Time = 99128 ms, 100000 records loaded
15342	>	Message Hash = 0469fd0e0213f65f1bb40a36cc30b97b
15343	>	Database Read started at 17/10/2021 23:41:18.359
15344	>	Read Dataset completed at 17/10/2021 23:41:48.428 Elapsed Time = 30069 ms, 100000 records read
15345	>	Message Hash = 0469fd0e0213f65f1bb40a36cc30b97b
15346		Test Completed successfully
15347	<	06/10/2021 09:57:44.461 Test 21 passes as long as the checksums are identical
15347	>	17/10/2021 23:41:48.428 Test 21 passes as long as the checksums are identical
15348
15349
15350		------------------------------------------------------
#	Line 16570 \| Line 16239 \| IBTable after create
16239
16240		/* Table: TestTable, Owner: SYSDBA */
16241
16242	<	CREATE TABLE "TestTable"
16242	>	CREATE TABLE "TestTable"
16243		(
16244		MYKEY INTEGER NOT NULL,
16245		TEXTFIELD VARCHAR(32) CHARACTER SET UTF8,
#	Line 17311 \| Line 16980 \| SET AUTODDL ON;
16980
16981		/* Table: DBVERSIONINFO, Owner: SYSDBA */
16982
16983	<	CREATE TABLE DBVERSIONINFO
16983	>	CREATE TABLE DBVERSIONINFO
16984		(
16985		VERSIONNO INTEGER NOT NULL,
16986		PRIMARY KEY (VERSIONNO)
#	Line 17319 \| Line 16988 \| PRIMARY KEY (VERSIONNO)
16988
16989		/* Table: IBDATASETTEST, Owner: SYSDBA */
16990
16991	<	CREATE TABLE IBDATASETTEST
16991	>	CREATE TABLE IBDATASETTEST
16992		(
16993		KEYFIELD INTEGER NOT NULL,
16994		PLAINTEXT VARCHAR(128),
#	Line 17337 \| Line 17006 \| COMMIT;
17006
17007		CREATE SEQUENCE AGENERATOR;
17008		ALTER SEQUENCE AGENERATOR RESTART WITH 0;
17009	<	SET TERM ^ ;
17009	>	SET TERM ^;
17010
17011
17012		/* Triggers only will work for SQL triggers */
#	Line 17348 \| Line 17017 \| As
17017		Begin
17018		new.ServerSideText = new.KeyField \|\| ' - ' \|\| new.PlainText;
17019		End
17020	<	^
17021	<	COMMIT WORK ^
17020	>	^
17021	>
17022	>	COMMIT WORK^
17023		SET TERM ;^
17024
17025		/* Comments on System Objects */
#	Line 17507 \| Line 17177 \| SET AUTODDL ON;
17177
17178		/* Table: DBVERSIONINFO, Owner: SYSDBA */
17179
17180	<	CREATE TABLE DBVERSIONINFO
17180	>	CREATE TABLE DBVERSIONINFO
17181		(
17182		VERSIONNO INTEGER NOT NULL,
17183		PRIMARY KEY (VERSIONNO)
#	Line 17515 \| Line 17185 \| PRIMARY KEY (VERSIONNO)
17185
17186		/* Table: IBDATASETTEST, Owner: SYSDBA */
17187
17188	<	CREATE TABLE IBDATASETTEST
17188	>	CREATE TABLE IBDATASETTEST
17189		(
17190		KEYFIELD INTEGER NOT NULL,
17191		PLAINTEXT VARCHAR(128),
#	Line 17538 \| Line 17208 \| COMMIT;
17208
17209		CREATE SEQUENCE AGENERATOR;
17210		ALTER SEQUENCE AGENERATOR RESTART WITH 1;
17211	<	SET TERM ^ ;
17211	>	SET TERM ^;
17212
17213
17214		/* Triggers only will work for SQL triggers */
#	Line 17549 \| Line 17219 \| As
17219		Begin
17220		new.ServerSideText = new.KeyField \|\| ' - ' \|\| new.PlainText;
17221		End
17222	<	^
17223	<	COMMIT WORK ^
17222	>	^
17223	>
17224	>	COMMIT WORK^
17225		SET TERM ;^
17226
17227		/* Comments on System Objects */
#	Line 17693 \| Line 17364 \| SET AUTODDL ON;
17364
17365		/* Table: DBVERSIONINFO, Owner: SYSDBA */
17366
17367	<	CREATE TABLE DBVERSIONINFO
17367	>	CREATE TABLE DBVERSIONINFO
17368		(
17369		VERSIONNO INTEGER NOT NULL,
17370		PRIMARY KEY (VERSIONNO)
#	Line 17701 \| Line 17372 \| PRIMARY KEY (VERSIONNO)
17372
17373		/* Table: IBDATASETTEST, Owner: SYSDBA */
17374
17375	<	CREATE TABLE IBDATASETTEST
17375	>	CREATE TABLE IBDATASETTEST
17376		(
17377		KEYFIELD INTEGER NOT NULL,
17378		PLAINTEXT VARCHAR(128),
#	Line 17725 \| Line 17396 \| COMMIT;
17396
17397		CREATE SEQUENCE AGENERATOR;
17398		ALTER SEQUENCE AGENERATOR RESTART WITH 2;
17399	<	SET TERM ^ ;
17399	>	SET TERM ^;
17400
17401
17402		/* Triggers only will work for SQL triggers */
#	Line 17736 \| Line 17407 \| As
17407		Begin
17408		new.ServerSideText = new.KeyField \|\| ' - ' \|\| new.PlainText;
17409		End
17410	<	^
17411	<	COMMIT WORK ^
17410	>	^
17411	>
17412	>	COMMIT WORK^
17413		SET TERM ;^
17414
17415		/* Comments on System Objects */

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing ibx/trunk/testsuite/FB3reference.log (file contents): Revision 348 by tony, Wed Oct 6 09:38:14 2021 UTC vs. Revision 349 by tony, Mon Oct 18 08:39:40 2021 UTC

Diff Legend

Comparing ibx/trunk/testsuite/FB3reference.log (file contents):
Revision 348 by tony, Wed Oct 6 09:38:14 2021 UTC vs.
Revision 349 by tony, Mon Oct 18 08:39:40 2021 UTC