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

Comparing ibx/trunk/testsuite/FB4reference.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,688,352
645		Delta memory = 16,384
646		Max memory = 19,783,248
647	<	Elapsed time= 0.026 sec
648	<	Cpu = 0.020 sec
647	>	Elapsed time= 0.025 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 42 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 4007 ms
1457	>	inet://localhost/employee Disconnected after 4039 ms
1458		Idle Timer Expired for Test_Database_02
1459		Database Closed
1460		Transaction Events
#	Line 1491 \| Line 1491 \| TPB: Item Count = 3
1491		isc_tpb_read
1492
1493		Transaction Ending
1494	<	Transaction Ended after 1999 ms
1494	>	Transaction Ended after 2001 ms
1495		Idle Timer Expired for Test_Transaction_02
1496		Before Disconnect
1497	<	inet://localhost/employee Disconnected after 2048 ms
1497	>	inet://localhost/employee Disconnected after 2040 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 18 ms
1509	>	inet://localhost//tmp/ibx-testsuite/testsuite1.fdb Disconnected after 24 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 22 ms
1519	>	inet://localhost//tmp/ibx-testsuite/testsuite1.fdb Disconnected after 26 ms
1520
1521
1522		------------------------------------------------------
#	Line 2411 \| Line 2411 \| ALTER DATABASE SET DEFAULT SQL SECURITY
2411
2412		/* Table: IBXTEST, Owner: SYSDBA */
2413
2414	<	CREATE TABLE IBXTEST
2414	>	CREATE TABLE IBXTEST
2415		(
2416		TABLEKEY INTEGER NOT NULL,
2417		F1 TIMESTAMP WITH TIME ZONE,
2418		F2 TIME WITH TIME ZONE,
2419		F3 DECFLOAT(16),
2420		F4 DECFLOAT(34),
2421	<	F5 NUMERIC(24, 6),
2421	>	F5 NUMERIC(24,6),
2422		F6 INT128,
2423		PRIMARY KEY (TABLEKEY)
2424		) SQL SECURITY DEFINER;
#	Line 3300 \| Line 3300 \| DEPT_KEY_PATH = 000;600;620;622 (Charset
3300		Current memory = 19,669,072
3301		Delta memory = 16,416
3302		Max memory = 19,764,736
3303	<	Elapsed time= 0.021 sec
3304	<	Cpu = 0.010 sec
3303	>	Elapsed time= 0.025 sec
3304	>	Cpu = 0.020 sec
3305		Buffers = 2048
3306		Reads = 2
3307		Writes = 0
#	Line 3902 \| Line 3902 \| SET AUTODDL ON;
3902		/* Domain definitions */
3903
3904		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
3905	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
3905	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
3906		DEFAULT 50000;
3907		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
3908		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 3917 \| Line 3917 \| CREATE DOMAIN PONUMBER AS CHAR(8);
3917		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
3918		DEFAULT 'software' NOT NULL;
3919		CREATE DOMAIN PROJNO AS CHAR(5);
3920	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
3920	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
3921		DEFAULT 0;
3922
3923		/* Table: COUNTRY, Owner: SYSDBA */
3924
3925	<	CREATE TABLE COUNTRY
3925	>	CREATE TABLE COUNTRY
3926		(
3927		COUNTRY COUNTRYNAME NOT NULL,
3928		CURRENCY VARCHAR(10) NOT NULL,
#	Line 3931 \| Line 3931 \| PRIMARY KEY (COUNTRY)
3931
3932		/* Table: CUSTOMER, Owner: SYSDBA */
3933
3934	<	CREATE TABLE CUSTOMER
3934	>	CREATE TABLE CUSTOMER
3935		(
3936		CUST_NO CUSTNO NOT NULL,
3937		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 3950 \| Line 3950 \| PRIMARY KEY (CUST_NO)
3950
3951		/* Table: DEPARTMENT, Owner: SYSDBA */
3952
3953	<	CREATE TABLE DEPARTMENT
3953	>	CREATE TABLE DEPARTMENT
3954		(
3955		DEPT_NO DEPTNO NOT NULL,
3956		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 3965 \| Line 3965 \| PRIMARY KEY (DEPT_NO)
3965
3966		/* Table: EMPLOYEE, Owner: SYSDBA */
3967
3968	<	CREATE TABLE EMPLOYEE
3968	>	CREATE TABLE EMPLOYEE
3969		(
3970		EMP_NO EMPNO NOT NULL,
3971		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 3983 \| Line 3983 \| PRIMARY KEY (EMP_NO)
3983
3984		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
3985
3986	<	CREATE TABLE EMPLOYEE_PROJECT
3986	>	CREATE TABLE EMPLOYEE_PROJECT
3987		(
3988		EMP_NO EMPNO NOT NULL,
3989		PROJ_ID PROJNO NOT NULL,
#	Line 3992 \| Line 3992 \| PRIMARY KEY (EMP_NO, PROJ_ID)
3992
3993		/* Table: JOB, Owner: SYSDBA */
3994
3995	<	CREATE TABLE JOB
3995	>	CREATE TABLE JOB
3996		(
3997		JOB_CODE JOBCODE NOT NULL,
3998		JOB_GRADE JOBGRADE NOT NULL,
#	Line 4007 \| Line 4007 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
4007
4008		/* Table: LOTSOFDATA, Owner: SYSDBA */
4009
4010	<	CREATE TABLE LOTSOFDATA
4010	>	CREATE TABLE LOTSOFDATA
4011		(
4012		ROWID INTEGER NOT NULL,
4013		THEDATE TIMESTAMP,
#	Line 4017 \| Line 4017 \| PRIMARY KEY (ROWID)
4017
4018		/* Table: PROJECT, Owner: SYSDBA */
4019
4020	<	CREATE TABLE PROJECT
4020	>	CREATE TABLE PROJECT
4021		(
4022		PROJ_ID PROJNO NOT NULL,
4023		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 4030 \| Line 4030 \| PRIMARY KEY (PROJ_ID)
4030
4031		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
4032
4033	<	CREATE TABLE PROJ_DEPT_BUDGET
4033	>	CREATE TABLE PROJ_DEPT_BUDGET
4034		(
4035		FISCAL_YEAR INTEGER NOT NULL,
4036		PROJ_ID PROJNO NOT NULL,
#	Line 4042 \| Line 4042 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
4042
4043		/* Table: SALARY_HISTORY, Owner: SYSDBA */
4044
4045	<	CREATE TABLE SALARY_HISTORY
4045	>	CREATE TABLE SALARY_HISTORY
4046		(
4047		EMP_NO EMPNO NOT NULL,
4048		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 4055 \| Line 4055 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
4055
4056		/* Table: SALES, Owner: SYSDBA */
4057
4058	<	CREATE TABLE SALES
4058	>	CREATE TABLE SALES
4059		(
4060		PO_NUMBER PONUMBER NOT NULL,
4061		CUST_NO CUSTNO NOT NULL,
#	Line 4066 \| Line 4066 \| CREATE TABLE SALES
4066		DATE_NEEDED TIMESTAMP,
4067		PAID CHAR(1) DEFAULT 'n',
4068		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
4069	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
4069	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
4070		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
4071		ITEM_TYPE PRODTYPE,
4072		AGED COMPUTED BY (ship_date - order_date),
#	Line 4108 \| Line 4108 \| CREATE SEQUENCE EMP_NO_GEN;
4108		/* View: PHONE_LIST, Owner: SYSDBA */
4109
4110		CREATE VIEW PHONE_LIST (
4111	<	EMP_NO,
4112	<	FIRST_NAME,
4113	<	LAST_NAME,
4114	<	PHONE_EXT,
4115	<	LOCATION,
4111	>	EMP_NO,
4112	>	FIRST_NAME,
4113	>	LAST_NAME,
4114	>	PHONE_EXT,
4115	>	LOCATION,
4116		PHONE_NO
4117		) AS
4118		SELECT
#	Line 4210 \| Line 4210 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
4210		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
4211		COMMIT WORK;
4212		SET AUTODDL OFF;
4213	<	SET TERM ^ ;
4213	>	SET TERM ^;
4214
4215		/* Stored procedures Definitions*/
4216
#	Line 4226 \| Line 4226 \| RETURNS
4226		)
4227		AS
4228		BEGIN SUSPEND; EXIT; END
4229	–
4229		^
4230	+
4231		CREATE PROCEDURE ADD_EMP_PROJ
4232		(
4233		EMP_NO SMALLINT,
#	Line 4235 \| Line 4235 \| CREATE PROCEDURE ADD_EMP_PROJ
4235		)
4236		AS
4237		BEGIN EXIT; END
4238	–
4238		^
4239	+
4240		CREATE PROCEDURE ALL_LANGS
4241		RETURNS
4242		(
#	Line 4247 \| Line 4247 \| RETURNS
4247		)
4248		AS
4249		BEGIN SUSPEND; EXIT; END
4250	–
4250		^
4251	+
4252		CREATE PROCEDURE DELETE_EMPLOYEE
4253		(
4254		EMP_NUM INTEGER
4255		)
4256		AS
4257		BEGIN EXIT; END
4258	–
4258		^
4259	+
4260		CREATE PROCEDURE DEPT_BUDGET
4261		(
4262		DNO CHAR(3) CHARACTER SET NONE
4263		)
4264		RETURNS
4265		(
4266	<	TOT DECIMAL(12, 2)
4266	>	TOT DECIMAL(12,2)
4267		)
4268		AS
4269		BEGIN SUSPEND; EXIT; END
4270	–
4270		^
4271	+
4272		CREATE PROCEDURE GET_EMP_PROJ
4273		(
4274		EMP_NO SMALLINT
#	Line 4279 \| Line 4279 \| RETURNS
4279		)
4280		AS
4281		BEGIN SUSPEND; EXIT; END
4282	–
4282		^
4283	+
4284		CREATE PROCEDURE MAIL_LABEL
4285		(
4286		CUST_NO INTEGER
#	Line 4296 \| Line 4296 \| RETURNS
4296		)
4297		AS
4298		BEGIN SUSPEND; EXIT; END
4299	–
4299		^
4300	+
4301		CREATE PROCEDURE ORG_CHART
4302		RETURNS
4303		(
#	Line 4309 \| Line 4309 \| RETURNS
4309		)
4310		AS
4311		BEGIN SUSPEND; EXIT; END
4312	–
4312		^
4313	+
4314		CREATE PROCEDURE SHIP_ORDER
4315		(
4316		PO_NUM CHAR(8) CHARACTER SET NONE
4317		)
4318		AS
4319		BEGIN EXIT; END
4320	–
4320		^
4321	+
4322		CREATE PROCEDURE SUB_TOT_BUDGET
4323		(
4324		HEAD_DEPT CHAR(3) CHARACTER SET NONE
4325		)
4326		RETURNS
4327		(
4328	<	TOT_BUDGET DECIMAL(12, 2),
4329	<	AVG_BUDGET DECIMAL(12, 2),
4330	<	MIN_BUDGET DECIMAL(12, 2),
4331	<	MAX_BUDGET DECIMAL(12, 2)
4328	>	TOT_BUDGET DECIMAL(12,2),
4329	>	AVG_BUDGET DECIMAL(12,2),
4330	>	MIN_BUDGET DECIMAL(12,2),
4331	>	MAX_BUDGET DECIMAL(12,2)
4332		)
4333		AS
4334		BEGIN SUSPEND; EXIT; END
4335	–
4335		^
4336	<	SET TERM ; ^
4336	>
4337	>	SET TERM ;^
4338		COMMIT WORK;
4339		SET AUTODDL ON;
4340	<	SET TERM ^ ;
4340	>	SET TERM ^;
4341
4342
4343		/* Triggers only will work for SQL triggers */
#	Line 4349 \| Line 4349 \| BEGIN
4349		if (new.cust_no is null) then
4350		new.cust_no = gen_id(cust_no_gen, 1);
4351		END
4352	<	^
4352	>	^
4353	>
4354		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
4355		ACTIVE BEFORE INSERT POSITION 0
4356		AS
#	Line 4357 \| Line 4358 \| BEGIN
4358		if (new.emp_no is null) then
4359		new.emp_no = gen_id(emp_no_gen, 1);
4360		END
4361	<	^
4361	>	^
4362	>
4363		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
4364		ACTIVE AFTER UPDATE POSITION 0
4365		AS
#	Line 4372 \| Line 4374 \| BEGIN
4374		old.salary,
4375		(new.salary - old.salary) * 100 / old.salary);
4376		END
4377	<	^
4377	>	^
4378	>
4379		CREATE TRIGGER POST_NEW_ORDER FOR SALES
4380		ACTIVE AFTER INSERT POSITION 0
4381		AS
4382		BEGIN
4383		POST_EVENT 'new_order';
4384		END
4385	<	^
4386	<	COMMIT WORK ^
4385	>	^
4386	>
4387	>	COMMIT WORK^
4388		SET TERM ;^
4389		COMMIT WORK;
4390		SET AUTODDL OFF;
4391	<	SET TERM ^ ;
4391	>	SET TERM ^;
4392
4393		/* Stored procedure Bodies */
4394
4391	–
4395		ALTER PROCEDURE SHOW_LANGS
4396		(
4397		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 4524 \| Line 4527 \| ALTER PROCEDURE DEPT_BUDGET
4527		)
4528		RETURNS
4529		(
4530	<	TOT DECIMAL(12, 2)
4530	>	TOT DECIMAL(12,2)
4531		)
4532		AS
4533		DECLARE VARIABLE sumb DECIMAL(12, 2);
#	Line 4744 \| Line 4747 \| ALTER PROCEDURE SUB_TOT_BUDGET
4747		)
4748		RETURNS
4749		(
4750	<	TOT_BUDGET DECIMAL(12, 2),
4751	<	AVG_BUDGET DECIMAL(12, 2),
4752	<	MIN_BUDGET DECIMAL(12, 2),
4753	<	MAX_BUDGET DECIMAL(12, 2)
4750	>	TOT_BUDGET DECIMAL(12,2),
4751	>	AVG_BUDGET DECIMAL(12,2),
4752	>	MIN_BUDGET DECIMAL(12,2),
4753	>	MAX_BUDGET DECIMAL(12,2)
4754		)
4755		AS
4756		BEGIN
#	Line 4758 \| Line 4761 \| BEGIN
4761		SUSPEND;
4762		END
4763		^
4764	<	SET TERM ; ^
4764	>
4765	>	SET TERM ;^
4766		COMMIT WORK;
4767		SET AUTODDL ON;
4768
#	Line 4802 \| Line 4806 \| SET AUTODDL ON;
4806
4807		CREATE DATABASE 'inet://localhost//tmp/ibx-testsuite/testsuite1.fdb' PAGE_SIZE 8192
4808
4809	<	DEFAULT CHARACTER SET NONE;
4809	>	DEFAULT CHARACTER SET NONE;
4810		COMMENT ON DATABASE IS 'Employee Test DB';
4811
4812		/* Domain definitions */
4813
4814		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
4815	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
4815	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
4816		DEFAULT 50000;
4817		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
4818		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 4824 \| Line 4828 \| CREATE DOMAIN PONUMBER AS CHAR(8);
4828		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
4829		DEFAULT 'software' NOT NULL;
4830		CREATE DOMAIN PROJNO AS CHAR(5);
4831	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
4831	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
4832		DEFAULT 0;
4833
4834		/* Table: COUNTRIES, Owner: SYSDBA */
4835
4836	<	CREATE TABLE COUNTRIES
4836	>	CREATE TABLE COUNTRIES
4837		(
4838		COUNTRY VARCHAR(64) NOT NULL,
4839		NONEU SMALLINT,
#	Line 4842 \| Line 4846 \| COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
4846
4847		/* Table: COUNTRY, Owner: SYSDBA */
4848
4849	<	CREATE TABLE COUNTRY
4849	>	CREATE TABLE COUNTRY
4850		(
4851		COUNTRY COUNTRYNAME NOT NULL,
4852		CURRENCY VARCHAR(10) NOT NULL,
#	Line 4851 \| Line 4855 \| PRIMARY KEY (COUNTRY)
4855
4856		/* Table: CUSTOMER, Owner: SYSDBA */
4857
4858	<	CREATE TABLE CUSTOMER
4858	>	CREATE TABLE CUSTOMER
4859		(
4860		CUST_NO CUSTNO NOT NULL,
4861		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 4871 \| Line 4875 \| PRIMARY KEY (CUST_NO)
4875
4876		/* Table: DEPARTMENT, Owner: SYSDBA */
4877
4878	<	CREATE TABLE DEPARTMENT
4878	>	CREATE TABLE DEPARTMENT
4879		(
4880		DEPT_NO DEPTNO NOT NULL,
4881		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 4886 \| Line 4890 \| PRIMARY KEY (DEPT_NO)
4890
4891		/* Table: EMPLOYEE, Owner: SYSDBA */
4892
4893	<	CREATE TABLE EMPLOYEE
4893	>	CREATE TABLE EMPLOYEE
4894		(
4895		EMP_NO EMPNO NOT NULL,
4896		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 4904 \| Line 4908 \| PRIMARY KEY (EMP_NO)
4908
4909		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
4910
4911	<	CREATE TABLE EMPLOYEE_PROJECT
4911	>	CREATE TABLE EMPLOYEE_PROJECT
4912		(
4913		EMP_NO EMPNO NOT NULL,
4914		PROJ_ID PROJNO NOT NULL,
#	Line 4913 \| Line 4917 \| PRIMARY KEY (EMP_NO, PROJ_ID)
4917
4918		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
4919
4920	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
4920	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
4921		(
4922		LINE_NUM INTEGER,
4923		CONTENT FB$OUT_TYPE
#	Line 4921 \| Line 4925 \| CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
4925
4926		/* Table: ITEST, Owner: SYSDBA */
4927
4928	<	CREATE TABLE ITEST
4928	>	CREATE TABLE ITEST
4929		(
4930		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0) NOT NULL,
4931		SOMETEXT VARCHAR(64),
#	Line 4930 \| Line 4934 \| PRIMARY KEY ("KEY")
4934
4935		/* Table: ITEST2, Owner: SYSDBA */
4936
4937	<	CREATE TABLE ITEST2
4937	>	CREATE TABLE ITEST2
4938		(
4939		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
4940		SOMETEXT VARCHAR(64),
#	Line 4939 \| Line 4943 \| PRIMARY KEY ("KEY")
4943
4944		/* Table: JOB, Owner: SYSDBA */
4945
4946	<	CREATE TABLE JOB
4946	>	CREATE TABLE JOB
4947		(
4948		JOB_CODE JOBCODE NOT NULL,
4949		JOB_GRADE JOBGRADE NOT NULL,
#	Line 4954 \| Line 4958 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
4958
4959		/* Table: PROJECT, Owner: SYSDBA */
4960
4961	<	CREATE TABLE PROJECT
4961	>	CREATE TABLE PROJECT
4962		(
4963		PROJ_ID PROJNO NOT NULL,
4964		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 4967 \| Line 4971 \| PRIMARY KEY (PROJ_ID)
4971
4972		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
4973
4974	<	CREATE TABLE PROJ_DEPT_BUDGET
4974	>	CREATE TABLE PROJ_DEPT_BUDGET
4975		(
4976		FISCAL_YEAR INTEGER NOT NULL,
4977		PROJ_ID PROJNO NOT NULL,
#	Line 4979 \| Line 4983 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
4983
4984		/* Table: SALARY_HISTORY, Owner: SYSDBA */
4985
4986	<	CREATE TABLE SALARY_HISTORY
4986	>	CREATE TABLE SALARY_HISTORY
4987		(
4988		EMP_NO EMPNO NOT NULL,
4989		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 4992 \| Line 4996 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
4996
4997		/* Table: SALES, Owner: SYSDBA */
4998
4999	<	CREATE TABLE SALES
4999	>	CREATE TABLE SALES
5000		(
5001		PO_NUMBER PONUMBER NOT NULL,
5002		CUST_NO CUSTNO NOT NULL,
#	Line 5003 \| Line 5007 \| CREATE TABLE SALES
5007		DATE_NEEDED TIMESTAMP,
5008		PAID CHAR(1) DEFAULT 'n',
5009		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
5010	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
5010	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
5011		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
5012		ITEM_TYPE PRODTYPE,
5013		AGED COMPUTED BY (ship_date - order_date),
#	Line 5016 \| Line 5020 \| DECLARE EXTERNAL FUNCTION ADDDAY
5020		TIMESTAMP, INTEGER
5021		RETURNS TIMESTAMP
5022		ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
5019	–
5023		;
5024
5025
5026		DECLARE EXTERNAL FUNCTION I64TRUNCATE
5027	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
5027	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
5028		RETURNS PARAMETER 2
5029		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
5027	–
5030		;
5031
5032
#	Line 5032 \| Line 5034 \| DECLARE EXTERNAL FUNCTION TESTIT
5034		TIMESTAMP, INTEGER NULL, CSTRING(10) CHARACTER SET NONE, CSTRING(10) CHARACTER SET NONE BY DESCRIPTOR
5035		RETURNS CSTRING(32) CHARACTER SET NONE FREE_IT
5036		ENTRY_POINT 'testit' MODULE_NAME 'fbudf'
5035	–
5037		;
5038
5039
#	Line 5774 \| Line 5775 \| ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1
5775		/* View: DEPTLIST, Owner: SYSDBA */
5776
5777		CREATE VIEW DEPTLIST (
5778	<	EMP_NO,
5779	<	FIRST_NAME,
5780	<	LAST_NAME,
5781	<	PHONE_EXT,
5782	<	HIRE_DATE,
5783	<	DEPT_NO,
5784	<	JOB_CODE,
5785	<	JOB_GRADE,
5786	<	JOB_COUNTRY,
5787	<	SALARY,
5788	<	FULL_NAME,
5789	<	DEPT_PATH,
5778	>	EMP_NO,
5779	>	FIRST_NAME,
5780	>	LAST_NAME,
5781	>	PHONE_EXT,
5782	>	HIRE_DATE,
5783	>	DEPT_NO,
5784	>	JOB_CODE,
5785	>	JOB_GRADE,
5786	>	JOB_COUNTRY,
5787	>	SALARY,
5788	>	FULL_NAME,
5789	>	DEPT_PATH,
5790		DEPT_KEY_PATH,
5791		"Payment Status"
5792		) AS
#	Line 5802 \| Line 5803 \| JOIN Depts On D.HEAD_DEPT = Depts.DEPT_N
5803
5804		Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,
5805		A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH,
5806	<	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
5806	>	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
5807		From EMPLOYEE A
5808		JOIN Depts D On D.DEPT_NO = A.DEPT_NO
5809		;
#	Line 5810 \| Line 5811 \| JOIN Depts D On D.DEPT_NO = A.DEPT_NO
5811		/* View: PHONE_LIST, Owner: SYSDBA */
5812
5813		CREATE VIEW PHONE_LIST (
5814	<	EMP_NO,
5815	<	FIRST_NAME,
5816	<	LAST_NAME,
5817	<	PHONE_EXT,
5818	<	LOCATION,
5814	>	EMP_NO,
5815	>	FIRST_NAME,
5816	>	LAST_NAME,
5817	>	PHONE_EXT,
5818	>	LOCATION,
5819		PHONE_NO
5820		) AS
5821		SELECT
#	Line 5916 \| Line 5917 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
5917		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
5918		COMMIT WORK;
5919		SET AUTODDL OFF;
5920	<	SET TERM ^ ;
5920	>	SET TERM ^;
5921
5922		/* Package Definitions */
5923
5924	<	CREATE PACKAGE FB$OUT
5924	>	CREATE PACKAGE FB$OUT
5925		AS
5925	–
5926		begin
5927		procedure enable;
5928		procedure disable;
#	Line 5934 \| Line 5934 \| begin
5934		end
5935		^
5936
5937	<	CREATE PACKAGE SELECT$TEST
5937	>	CREATE PACKAGE SELECT$TEST
5938		AS
5939	–
5939		Begin
5940		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer);
5941		End
#	Line 5947 \| Line 5946 \| COMMIT WORK;
5946		SET AUTODDL ON;
5947		COMMIT WORK;
5948		SET AUTODDL OFF;
5949	<	SET TERM ^ ;
5949	>	SET TERM ^;
5950
5951		/* Stored procedures Definitions*/
5952
5953	<	CREATE PROCEDURE SHOW_LANGS
5953	>	CREATE PROCEDURE SHOW_LANGS
5954		(
5955		CODE VARCHAR(5) CHARACTER SET NONE,
5956		GRADE SMALLINT,
#	Line 5963 \| Line 5962 \| RETURNS
5962		)
5963		AS
5964		BEGIN SUSPEND; EXIT; END
5966	–
5965		^
5966
5967	<	CREATE PROCEDURE ADD_EMP_PROJ
5967	>	CREATE PROCEDURE ADD_EMP_PROJ
5968		(
5969		EMP_NO SMALLINT,
5970		PROJ_ID CHAR(5) CHARACTER SET NONE
5971		)
5972		AS
5973		BEGIN EXIT; END
5976	–
5974		^
5975
5976	<	CREATE PROCEDURE ALL_LANGS
5976	>	CREATE PROCEDURE ALL_LANGS
5977		RETURNS
5978		(
5979		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 5986 \| Line 5983 \| RETURNS
5983		)
5984		AS
5985		BEGIN SUSPEND; EXIT; END
5989	–
5986		^
5987
5988	<	CREATE PROCEDURE DELETE_EMPLOYEE
5988	>	CREATE PROCEDURE DELETE_EMPLOYEE
5989		(
5990		EMP_NUM INTEGER
5991		)
5992		AS
5993		BEGIN EXIT; END
5998	–
5994		^
5995
5996	<	CREATE PROCEDURE DEPT_BUDGET
5996	>	CREATE PROCEDURE DEPT_BUDGET
5997		(
5998		DNO CHAR(3) CHARACTER SET NONE
5999		)
6000		RETURNS
6001		(
6002	<	TOT DECIMAL(12, 2)
6002	>	TOT DECIMAL(12,2)
6003		)
6004		AS
6005		BEGIN SUSPEND; EXIT; END
6011	–
6006		^
6007
6008		CREATE PROCEDURE EMPLOYEE_PAY_STATUS
6009		(
6010	<	EMP_NO SMALLINT
6010	>	EMP_NUM SMALLINT
6011		)
6012		RETURNS
6013		(
6014	<	PAY_STATUS VARCHAR(6) CHARACTER SET NONE
6014	>	PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
6015	>	SALARY NUMERIC(10,2)
6016		)
6017		AS
6018		BEGIN EXIT; END
6024	–
6019		^
6020
6021	<
6028	<	CREATE PROCEDURE GET_EMP_PROJ
6021	>	CREATE PROCEDURE GET_EMP_PROJ
6022		(
6023		EMP_NO SMALLINT
6024		)
#	Line 6035 \| Line 6028 \| RETURNS
6028		)
6029		AS
6030		BEGIN SUSPEND; EXIT; END
6038	–
6031		^
6032
6033	<	CREATE PROCEDURE "Has Space"
6033	>	CREATE PROCEDURE "Has Space"
6034		(
6035		ARG1 INTEGER
6036		)
6037		AS
6038		BEGIN EXIT; END
6047	–
6039		^
6040
6041	<	CREATE PROCEDURE MAIL_LABEL
6041	>	CREATE PROCEDURE MAIL_LABEL
6042		(
6043		CUST_NO INTEGER
6044		)
#	Line 6062 \| Line 6053 \| RETURNS
6053		)
6054		AS
6055		BEGIN SUSPEND; EXIT; END
6065	–
6056		^
6057
6058	<	CREATE PROCEDURE ORG_CHART
6058	>	CREATE PROCEDURE ORG_CHART
6059		RETURNS
6060		(
6061		HEAD_DEPT CHAR(25) CHARACTER SET NONE,
#	Line 6076 \| Line 6066 \| RETURNS
6066		)
6067		AS
6068		BEGIN SUSPEND; EXIT; END
6079	–
6069		^
6070
6071	<	CREATE PROCEDURE SHIP_ORDER
6071	>	CREATE PROCEDURE SHIP_ORDER
6072		(
6073		PO_NUM CHAR(8) CHARACTER SET NONE
6074		)
6075		AS
6076		BEGIN EXIT; END
6088	–
6077		^
6078
6079	<	CREATE PROCEDURE SUB_TOT_BUDGET
6079	>	CREATE PROCEDURE SUB_TOT_BUDGET
6080		(
6081		HEAD_DEPT CHAR(3) CHARACTER SET NONE
6082		)
6083		RETURNS
6084		(
6085	<	TOT_BUDGET DECIMAL(12, 2),
6086	<	AVG_BUDGET DECIMAL(12, 2),
6087	<	MIN_BUDGET DECIMAL(12, 2),
6088	<	MAX_BUDGET DECIMAL(12, 2)
6085	>	TOT_BUDGET DECIMAL(12,2),
6086	>	AVG_BUDGET DECIMAL(12,2),
6087	>	MIN_BUDGET DECIMAL(12,2),
6088	>	MAX_BUDGET DECIMAL(12,2)
6089		)
6090		AS
6091		BEGIN SUSPEND; EXIT; END
6104	–
6092		^
6093
6094	<	CREATE PROCEDURE "UC SPACE"
6094	>	CREATE PROCEDURE "UC SPACE"
6095		(
6096		ARG1 INTEGER
6097		)
6098		AS
6099		BEGIN EXIT; END
6113	–
6100		^
6101
6102	<	CREATE PROCEDURE "iCASE"
6102	>	CREATE PROCEDURE "iCASE"
6103		AS
6104		BEGIN EXIT; END
6119	–
6105		^
6106
6107		SET TERM ;^
#	Line 6124 \| Line 6109 \| COMMIT WORK;
6109		SET AUTODDL ON;
6110		COMMIT WORK;
6111		SET AUTODDL OFF;
6112	<	SET TERM ^ ;
6112	>	SET TERM ^;
6113
6114		/* Stored Function declarations */
6115
6116		CREATE FUNCTION F (X INTEGER)
6117		RETURNS INTEGER
6118		AS BEGIN END
6134	–
6119		^
6120
6137	–
6121		SET TERM ;^
6122		COMMIT WORK;
6123		SET AUTODDL ON;
6124	<	SET TERM ^ ;
6124	>	SET TERM ^;
6125
6126
6127		/* Triggers only will work for SQL triggers */
#	Line 6149 \| Line 6132 \| as
6132		begin
6133		End
6134		^
6135	+
6136		CREATE TRIGGER "BEFORE CREATE TABLE"
6137		ACTIVE BEFORE CREATE TABLE POSITION 0
6138		AS BEGIN END
6139		^
6140	+
6141		CREATE TRIGGER "AFTER CREATE TABLE"
6142		ACTIVE AFTER CREATE TABLE POSITION 0
6143		AS BEGIN END
6144		^
6145	+
6146		CREATE TRIGGER "BEFORE ALTER TABLE"
6147		ACTIVE BEFORE ALTER TABLE POSITION 0
6148		AS BEGIN END
6149		^
6150	+
6151		CREATE TRIGGER "AFTER ALTER TABLE"
6152		ACTIVE AFTER ALTER TABLE POSITION 0
6153		AS BEGIN END
6154		^
6155	+
6156		CREATE TRIGGER "AFTER CREATE/Alter TABLE"
6157		ACTIVE AFTER CREATE TABLE OR ALTER TABLE POSITION 0
6158		AS BEGIN END
6159		^
6160	+
6161		CREATE TRIGGER "BEFORE DROP TABLE"
6162		ACTIVE BEFORE Drop TABLE POSITION 0
6163		AS BEGIN END
6164		^
6165	+
6166		CREATE TRIGGER "AFTER DROP TABLE"
6167		ACTIVE AFTER Drop TABLE POSITION 0
6168		AS BEGIN END
6169		^
6170	+
6171		CREATE TRIGGER "BEFORE CREATE PROCEDURE"
6172		ACTIVE BEFORE CREATE PROCEDURE POSITION 0
6173		AS BEGIN END
6174		^
6175	+
6176		CREATE TRIGGER "AFTER CREATE PROCEDURE"
6177		ACTIVE AFTER CREATE PROCEDURE POSITION 0
6178		AS BEGIN END
6179		^
6180	+
6181		CREATE TRIGGER "BEFORE ALTER PROCEDURE"
6182		ACTIVE BEFORE ALTER PROCEDURE POSITION 0
6183		AS BEGIN END
6184		^
6185	+
6186		CREATE TRIGGER "AFTER ALTER PROCEDURE"
6187		ACTIVE AFTER ALTER PROCEDURE POSITION 0
6188		AS BEGIN END
6189		^
6190	+
6191		CREATE TRIGGER "BEFORE DROP PROCEDURE"
6192		ACTIVE BEFORE Drop PROCEDURE POSITION 0
6193		AS BEGIN END
6194		^
6195	+
6196		CREATE TRIGGER "AFTER DROP PROCEDURE"
6197		ACTIVE AFTER Drop PROCEDURE POSITION 0
6198		AS BEGIN END
6199		^
6200	+
6201		CREATE TRIGGER "BEFORE CREATE FUNCTION"
6202		ACTIVE BEFORE CREATE FUNCTION POSITION 0
6203		AS BEGIN END
6204		^
6205	+
6206		CREATE TRIGGER "AFTER CREATE FUNCTION"
6207		ACTIVE AFTER CREATE FUNCTION POSITION 0
6208		AS BEGIN END
6209		^
6210	+
6211		CREATE TRIGGER "BEFORE ALTER FUNCTION"
6212		ACTIVE BEFORE ALTER FUNCTION POSITION 0
6213		AS BEGIN END
6214		^
6215	+
6216		CREATE TRIGGER "AFTER ALTER FUNCTION"
6217		ACTIVE AFTER ALTER FUNCTION POSITION 0
6218		AS BEGIN END
6219		^
6220	+
6221		CREATE TRIGGER "BEFORE DROP FUNCTION"
6222		ACTIVE BEFORE Drop FUNCTION POSITION 0
6223		AS BEGIN END
6224		^
6225	+
6226		CREATE TRIGGER "AFTER DROP FUNCTION"
6227		ACTIVE AFTER Drop FUNCTION POSITION 0
6228		AS BEGIN END
6229		^
6230	+
6231		CREATE TRIGGER "BEFORE CREATE TRIGGER"
6232		ACTIVE BEFORE CREATE TRIGGER POSITION 0
6233		AS BEGIN END
6234		^
6235	+
6236		CREATE TRIGGER "AFTER CREATE TRIGGER"
6237		ACTIVE AFTER CREATE TRIGGER POSITION 0
6238		AS BEGIN END
6239		^
6240	+
6241		CREATE TRIGGER "BEFORE ALTER TRIGGER"
6242		ACTIVE BEFORE ALTER TRIGGER POSITION 0
6243		AS BEGIN END
6244		^
6245	+
6246		CREATE TRIGGER "AFTER ALTER TRIGGER"
6247		ACTIVE AFTER ALTER TRIGGER POSITION 0
6248		AS BEGIN END
6249		^
6250	+
6251		CREATE TRIGGER "BEFORE DROP TRIGGER"
6252		ACTIVE BEFORE Drop TRIGGER POSITION 0
6253		AS BEGIN END
6254		^
6255	+
6256		CREATE TRIGGER "AFTER DROP TRIGGER"
6257		ACTIVE AFTER Drop TRIGGER POSITION 0
6258		AS BEGIN END
6259		^
6260	+
6261		CREATE TRIGGER "BEFORE CREATE EXCEPTION"
6262		ACTIVE BEFORE CREATE EXCEPTION POSITION 0
6263		AS BEGIN END
6264		^
6265	+
6266		CREATE TRIGGER "AFTER CREATE EXCEPTION"
6267		ACTIVE AFTER CREATE EXCEPTION POSITION 0
6268		AS BEGIN END
6269		^
6270	+
6271		CREATE TRIGGER "BEFORE ALTER EXCEPTION"
6272		ACTIVE BEFORE ALTER EXCEPTION POSITION 0
6273		AS BEGIN END
6274		^
6275	+
6276		CREATE TRIGGER "AFTER ALTER EXCEPTION"
6277		ACTIVE AFTER ALTER EXCEPTION POSITION 0
6278		AS BEGIN END
6279		^
6280	+
6281		CREATE TRIGGER "BEFORE DROP EXCEPTION"
6282		ACTIVE BEFORE Drop EXCEPTION POSITION 0
6283		AS BEGIN END
6284		^
6285	+
6286		CREATE TRIGGER "AFTER DROP EXCEPTION"
6287		ACTIVE AFTER Drop EXCEPTION POSITION 0
6288		AS BEGIN END
6289		^
6290	+
6291		CREATE TRIGGER "BEFORE CREATE VIEW"
6292		ACTIVE BEFORE CREATE VIEW POSITION 0
6293		AS BEGIN END
6294		^
6295	+
6296		CREATE TRIGGER "AFTER CREATE VIEW"
6297		ACTIVE AFTER CREATE VIEW POSITION 0
6298		AS BEGIN END
6299		^
6300	+
6301		CREATE TRIGGER "BEFORE ALTER VIEW"
6302		ACTIVE BEFORE ALTER VIEW POSITION 0
6303		AS BEGIN END
6304		^
6305	+
6306		CREATE TRIGGER "AFTER ALTER VIEW"
6307		ACTIVE AFTER ALTER VIEW POSITION 0
6308		AS BEGIN END
6309		^
6310	+
6311		CREATE TRIGGER "BEFORE DROP VIEW"
6312		ACTIVE BEFORE Drop VIEW POSITION 0
6313		AS BEGIN END
6314		^
6315	+
6316		CREATE TRIGGER "AFTER DROP VIEW"
6317		ACTIVE AFTER Drop VIEW POSITION 0
6318		AS BEGIN END
6319		^
6320	+
6321		CREATE TRIGGER "BEFORE CREATE DOMAIN"
6322		ACTIVE BEFORE CREATE DOMAIN POSITION 0
6323		AS BEGIN END
6324		^
6325	+
6326		CREATE TRIGGER "AFTER CREATE DOMAIN"
6327		ACTIVE AFTER CREATE DOMAIN POSITION 0
6328		AS BEGIN END
6329		^
6330	+
6331		CREATE TRIGGER "BEFORE ALTER DOMAIN"
6332		ACTIVE BEFORE ALTER DOMAIN POSITION 0
6333		AS BEGIN END
6334		^
6335	+
6336		CREATE TRIGGER "AFTER ALTER DOMAIN"
6337		ACTIVE AFTER ALTER DOMAIN POSITION 0
6338		AS BEGIN END
6339		^
6340	+
6341		CREATE TRIGGER "BEFORE DROP DOMAIN"
6342		ACTIVE BEFORE Drop DOMAIN POSITION 0
6343		AS BEGIN END
6344		^
6345	+
6346		CREATE TRIGGER "AFTER DROP DOMAIN"
6347		ACTIVE AFTER Drop DOMAIN POSITION 0
6348		AS BEGIN END
6349		^
6350	+
6351		CREATE TRIGGER "BEFORE CREATE ROLE"
6352		ACTIVE BEFORE CREATE ROLE POSITION 0
6353		AS BEGIN END
6354		^
6355	+
6356		CREATE TRIGGER "AFTER CREATE ROLE"
6357		ACTIVE AFTER CREATE ROLE POSITION 0
6358		AS BEGIN END
6359		^
6360	+
6361		CREATE TRIGGER "BEFORE ALTER ROLE"
6362		ACTIVE BEFORE ALTER ROLE POSITION 0
6363		AS BEGIN END
6364		^
6365	+
6366		CREATE TRIGGER "AFTER ALTER ROLE"
6367		ACTIVE AFTER ALTER ROLE POSITION 0
6368		AS BEGIN END
6369		^
6370	+
6371		CREATE TRIGGER "BEFORE DROP ROLE"
6372		ACTIVE BEFORE Drop ROLE POSITION 0
6373		AS BEGIN END
6374		^
6375	+
6376		CREATE TRIGGER "AFTER DROP ROLE"
6377		ACTIVE AFTER Drop ROLE POSITION 0
6378		AS BEGIN END
6379		^
6380	+
6381		CREATE TRIGGER "BEFORE CREATE INDEX"
6382		ACTIVE BEFORE CREATE INDEX POSITION 0
6383		AS BEGIN END
6384		^
6385	+
6386		CREATE TRIGGER "AFTER CREATE INDEX"
6387		ACTIVE AFTER CREATE INDEX POSITION 0
6388		AS BEGIN END
6389		^
6390	+
6391		CREATE TRIGGER "BEFORE ALTER INDEX"
6392		ACTIVE BEFORE ALTER INDEX POSITION 0
6393		AS BEGIN END
6394		^
6395	+
6396		CREATE TRIGGER "AFTER ALTER INDEX"
6397		ACTIVE AFTER ALTER INDEX POSITION 0
6398		AS BEGIN END
6399		^
6400	+
6401		CREATE TRIGGER "BEFORE DROP INDEX"
6402		ACTIVE BEFORE Drop INDEX POSITION 0
6403		AS BEGIN END
6404		^
6405	+
6406		CREATE TRIGGER "AFTER DROP INDEX"
6407		ACTIVE AFTER Drop INDEX POSITION 0
6408		AS BEGIN END
6409		^
6410	+
6411		CREATE TRIGGER "BEFORE CREATE SEQUENCE"
6412		ACTIVE BEFORE CREATE SEQUENCE POSITION 0
6413		AS BEGIN END
6414		^
6415	+
6416		CREATE TRIGGER "AFTER CREATE SEQUENCE"
6417		ACTIVE AFTER CREATE SEQUENCE POSITION 0
6418		AS BEGIN END
6419		^
6420	+
6421		CREATE TRIGGER "BEFORE ALTER SEQUENCE"
6422		ACTIVE BEFORE ALTER SEQUENCE POSITION 0
6423		AS BEGIN END
6424		^
6425	+
6426		CREATE TRIGGER "AFTER ALTER SEQUENCE"
6427		ACTIVE AFTER ALTER SEQUENCE POSITION 0
6428		AS BEGIN END
6429		^
6430	+
6431		CREATE TRIGGER "BEFORE DROP SEQUENCE"
6432		ACTIVE BEFORE Drop SEQUENCE POSITION 0
6433		AS BEGIN END
6434		^
6435	+
6436		CREATE TRIGGER "AFTER DROP SEQUENCE"
6437		ACTIVE AFTER Drop SEQUENCE POSITION 0
6438		AS BEGIN END
6439		^
6440	+
6441		CREATE TRIGGER "BEFORE CREATE USER"
6442		ACTIVE BEFORE CREATE USER POSITION 0
6443		AS BEGIN END
6444		^
6445	+
6446		CREATE TRIGGER "AFTER CREATE USER"
6447		ACTIVE AFTER CREATE USER POSITION 0
6448		AS BEGIN END
6449		^
6450	+
6451		CREATE TRIGGER "BEFORE ALTER USER"
6452		ACTIVE BEFORE ALTER USER POSITION 0
6453		AS BEGIN END
6454		^
6455	+
6456		CREATE TRIGGER "AFTER ALTER USER"
6457		ACTIVE AFTER ALTER USER POSITION 0
6458		AS BEGIN END
6459		^
6460	+
6461		CREATE TRIGGER "BEFORE DROP USER"
6462		ACTIVE BEFORE Drop USER POSITION 0
6463		AS BEGIN END
6464		^
6465	+
6466		CREATE TRIGGER "AFTER DROP USER"
6467		ACTIVE AFTER Drop USER POSITION 0
6468		AS BEGIN END
6469		^
6470	+
6471		CREATE TRIGGER "BEFORE CREATE COLLATION"
6472		ACTIVE BEFORE CREATE COLLATION POSITION 0
6473		AS BEGIN END
6474		^
6475	+
6476		CREATE TRIGGER "AFTER CREATE COLLATION"
6477		ACTIVE AFTER CREATE COLLATION POSITION 0
6478		AS BEGIN END
6479		^
6480	+
6481		CREATE TRIGGER "BEFORE DROP COLLATION"
6482		ACTIVE BEFORE Drop COLLATION POSITION 0
6483		AS BEGIN END
6484		^
6485	+
6486		CREATE TRIGGER "AFTER DROP COLLATION"
6487		ACTIVE AFTER Drop COLLATION POSITION 0
6488		AS BEGIN END
6489		^
6490	+
6491		CREATE TRIGGER "BEFORE ALTER CHARACTER SET"
6492		ACTIVE BEFORE ALTER CHARACTER SET POSITION 0
6493		AS BEGIN END
6494		^
6495	+
6496		CREATE TRIGGER "AFTER ALTER CHARACTER SET"
6497		ACTIVE AFTER ALTER CHARACTER SET POSITION 0
6498		AS BEGIN END
6499		^
6500	+
6501		CREATE TRIGGER "BEFORE CREATE PACKAGE"
6502		ACTIVE BEFORE CREATE PACKAGE POSITION 0
6503		AS BEGIN END
6504		^
6505	+
6506		CREATE TRIGGER "AFTER CREATE PACKAGE"
6507		ACTIVE AFTER CREATE PACKAGE POSITION 0
6508		AS BEGIN END
6509		^
6510	+
6511		CREATE TRIGGER "BEFORE ALTER PACKAGE"
6512		ACTIVE BEFORE ALTER PACKAGE POSITION 0
6513		AS BEGIN END
6514		^
6515	+
6516		CREATE TRIGGER "AFTER ALTER PACKAGE"
6517		ACTIVE AFTER ALTER PACKAGE POSITION 0
6518		AS BEGIN END
6519		^
6520	+
6521		CREATE TRIGGER "BEFORE DROP PACKAGE"
6522		ACTIVE BEFORE Drop PACKAGE POSITION 0
6523		AS BEGIN END
6524		^
6525	+
6526		CREATE TRIGGER "AFTER DROP PACKAGE"
6527		ACTIVE AFTER Drop PACKAGE POSITION 0
6528		AS BEGIN END
6529		^
6530	+
6531		CREATE TRIGGER "BEFORE CREATE PACKAGE BODY"
6532		ACTIVE BEFORE CREATE PACKAGE BODY POSITION 0
6533		AS BEGIN END
6534		^
6535	+
6536		CREATE TRIGGER "AFTER CREATE PACKAGE BODY"
6537		ACTIVE AFTER CREATE PACKAGE BODY POSITION 0
6538		AS BEGIN END
6539		^
6540	+
6541		CREATE TRIGGER "BEFORE DROP PACKAGE BODY"
6542		ACTIVE BEFORE Drop PACKAGE BODY POSITION 0
6543		AS BEGIN END
6544		^
6545	+
6546		CREATE TRIGGER "AFTER DROP PACKAGE BODY"
6547		ACTIVE AFTER Drop PACKAGE BODY POSITION 0
6548		AS BEGIN END
6549		^
6550	+
6551		CREATE TRIGGER "BEFORE ANY DDL STATEMENT"
6552		ACTIVE BEFORE ANY DDL STATEMENT POSITION 0
6553		AS BEGIN END
6554		^
6555	+
6556		CREATE TRIGGER "AFTER ANY DDL STATEMENT"
6557		ACTIVE AFTER ANY DDL STATEMENT POSITION 0
6558		AS BEGIN END
6559		^
6560	+
6561		CREATE TRIGGER SET_CUST_NO FOR CUSTOMER
6562		ACTIVE BEFORE INSERT POSITION 0
6563		AS
#	Line 6497 \| Line 6566 \| BEGIN
6566		new.cust_no = gen_id(cust_no_gen, 1);
6567		END
6568		^
6569	+
6570		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
6571		ACTIVE BEFORE INSERT POSITION 0
6572		AS
#	Line 6505 \| Line 6575 \| BEGIN
6575		new.emp_no = gen_id(emp_no_gen, 1);
6576		END
6577		^
6578	+
6579		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
6580		ACTIVE AFTER UPDATE POSITION 0
6581		AS
#	Line 6520 \| Line 6591 \| BEGIN
6591		(new.salary - old.salary) * 100 / old.salary);
6592		END
6593		^
6594	+
6595		CREATE TRIGGER POST_NEW_ORDER FOR SALES
6596		ACTIVE AFTER INSERT POSITION 0
6597		AS
#	Line 6527 \| Line 6599 \| BEGIN
6599		POST_EVENT 'new_order';
6600		END
6601		^
6602	+
6603		COMMIT WORK^
6604		SET TERM ;^
6605		COMMIT WORK;
6606		SET AUTODDL OFF;
6607	<	SET TERM ^ ;
6607	>	SET TERM ^;
6608
6609		/* Package Definitions */
6610
6611	<	CREATE PACKAGE BODY FB$OUT
6611	>	CREATE PACKAGE BODY FB$OUT
6612		AS
6540	–
6613		begin
6614		procedure enable
6615		as
#	Line 6594 \| Line 6666 \| begin
6666		end
6667		^
6668
6669	<	CREATE PACKAGE BODY SELECT$TEST
6669	>	CREATE PACKAGE BODY SELECT$TEST
6670		AS
6599	–
6671		Begin
6672		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer)
6673		As
#	Line 6611 \| Line 6682 \| COMMIT WORK;
6682		SET AUTODDL ON;
6683		COMMIT WORK;
6684		SET AUTODDL OFF;
6685	<	SET TERM ^ ;
6685	>	SET TERM ^;
6686
6687		/* Stored procedure Bodies */
6688
6689	<
6619	<	ALTER PROCEDURE SHOW_LANGS
6689	>	ALTER PROCEDURE SHOW_LANGS
6690		(
6691		CODE VARCHAR(5) CHARACTER SET NONE,
6692		GRADE SMALLINT,
#	Line 6637 \| Line 6707 \| BEGIN
6707		AND (language_req IS NOT NULL))
6708		INTO :languages;
6709		IF (languages = ' ') THEN /* Prints 'NULL' instead of blanks */
6710	<	languages = 'NULL';
6710	>	languages = 'NULL';
6711		i = i +1;
6712		SUSPEND;
6713		END
6714		END
6715		^
6716
6717	<
6648	<	ALTER PROCEDURE ADD_EMP_PROJ
6717	>	ALTER PROCEDURE ADD_EMP_PROJ
6718		(
6719		EMP_NO SMALLINT,
6720		PROJ_ID CHAR(5) CHARACTER SET NONE
#	Line 6660 \| Line 6729 \| BEGIN
6729		END
6730		^
6731
6732	<	ALTER PROCEDURE ALL_LANGS
6732	>	ALTER PROCEDURE ALL_LANGS
6733		RETURNS
6734		(
6735		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 6670 \| Line 6739 \| RETURNS
6739		)
6740		AS
6741		BEGIN
6742	<	FOR SELECT job_code, job_grade, job_country FROM job
6742	>	FOR SELECT job_code, job_grade, job_country FROM job
6743		INTO :code, :grade, :country
6744
6745		DO
6746		BEGIN
6747	<	FOR SELECT languages FROM show_langs
6747	>	FOR SELECT languages FROM show_langs
6748		(:code, :grade, :country) INTO :lang DO
6749		SUSPEND;
6750		/* Put nice separators between rows */
#	Line 6688 \| Line 6757 \| BEGIN
6757		END
6758		^
6759
6760	<
6692	<	ALTER PROCEDURE DELETE_EMPLOYEE
6760	>	ALTER PROCEDURE DELETE_EMPLOYEE
6761		(
6762		EMP_NUM INTEGER
6763		)
#	Line 6748 \| Line 6816 \| BEGIN
6816		END
6817		^
6818
6819	<
6752	<	ALTER PROCEDURE DEPT_BUDGET
6819	>	ALTER PROCEDURE DEPT_BUDGET
6820		(
6821		DNO CHAR(3) CHARACTER SET NONE
6822		)
6823		RETURNS
6824		(
6825	<	TOT DECIMAL(12, 2)
6825	>	TOT DECIMAL(12,2)
6826		)
6827		AS
6828	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
6828	>	DECLARE VARIABLE sumb DECIMAL(12,2);
6829		DECLARE VARIABLE rdno CHAR(3);
6830		DECLARE VARIABLE cnt INTEGER;
6831		BEGIN
#	Line 6795 \| Line 6862 \| RETURNS
6862		SALARY NUMERIC(10,2)
6863		)
6864		AS
6865	<	BEGIN
6866	<	Select SALARY, Case
6867	<	When SALARY > 10000 and SALARY <= 100000 then 'higher'
6868	<	When SALARY > 100000 then 'gross'
6869	<	else 'lower' End
6870	<	From employee
6871	<	WHERE emp_no = :EMP_NUM
6865	>	Declare aCursor CURSOR FOR (
6866	>	Select EMP_NO,SALARY From EMPLOYEE WHERE LAST_NAME = 'unknown');
6867	>	BEGIN
6868	>	Select SALARY, Case
6869	>	When SALARY > 10000 and SALARY <= 100000 then 'higher'
6870	>	When SALARY > 100000 then 'gross'
6871	>	else 'lower' End
6872	>	From employee
6873	>	WHERE emp_no = :EMP_NUM
6874		into :SALARY, :PAY_STATUS;
6875		END
6876		^
6877
6878	<	ALTER PROCEDURE GET_EMP_PROJ
6878	>	ALTER PROCEDURE GET_EMP_PROJ
6879		(
6880		EMP_NO SMALLINT
6881		)
#	Line 6825 \| Line 6894 \| BEGIN
6894		END
6895		^
6896
6897	<
6829	<	ALTER PROCEDURE "Has Space"
6897	>	ALTER PROCEDURE "Has Space"
6898		(
6899		ARG1 INTEGER
6900		)
#	Line 6834 \| Line 6902 \| AS
6902		Begin End
6903		^
6904
6905	<
6838	<	ALTER PROCEDURE MAIL_LABEL
6905	>	ALTER PROCEDURE MAIL_LABEL
6906		(
6907		CUST_NO INTEGER
6908		)
#	Line 6905 \| Line 6972 \| BEGIN
6972		END
6973		^
6974
6975	<
6909	<	ALTER PROCEDURE ORG_CHART
6975	>	ALTER PROCEDURE ORG_CHART
6976		RETURNS
6977		(
6978		HEAD_DEPT CHAR(25) CHARACTER SET NONE,
#	Line 6948 \| Line 7014 \| BEGIN
7014		END
7015		^
7016
7017	<
6952	<	ALTER PROCEDURE SHIP_ORDER
7017	>	ALTER PROCEDURE SHIP_ORDER
7018		(
7019		PO_NUM CHAR(8) CHARACTER SET NONE
7020		)
#	Line 7008 \| Line 7073 \| BEGIN
7073		END
7074		^
7075
7076	<
7012	<	ALTER PROCEDURE SUB_TOT_BUDGET
7076	>	ALTER PROCEDURE SUB_TOT_BUDGET
7077		(
7078		HEAD_DEPT CHAR(3) CHARACTER SET NONE
7079		)
7080		RETURNS
7081		(
7082	<	TOT_BUDGET DECIMAL(12, 2),
7083	<	AVG_BUDGET DECIMAL(12, 2),
7084	<	MIN_BUDGET DECIMAL(12, 2),
7085	<	MAX_BUDGET DECIMAL(12, 2)
7082	>	TOT_BUDGET DECIMAL(12,2),
7083	>	AVG_BUDGET DECIMAL(12,2),
7084	>	MIN_BUDGET DECIMAL(12,2),
7085	>	MAX_BUDGET DECIMAL(12,2)
7086		)
7087		AS
7088		BEGIN
#	Line 7030 \| Line 7094 \| BEGIN
7094		END
7095		^
7096
7097	<
7034	<	ALTER PROCEDURE "UC SPACE"
7097	>	ALTER PROCEDURE "UC SPACE"
7098		(
7099		ARG1 INTEGER
7100		)
#	Line 7039 \| Line 7102 \| AS
7102		Begin End
7103		^
7104
7105	<
7043	<	ALTER PROCEDURE "iCASE"
7105	>	ALTER PROCEDURE "iCASE"
7106		AS
7107		Begin End
7108		^
#	Line 7050 \| Line 7112 \| COMMIT WORK;
7112		SET AUTODDL ON;
7113		COMMIT WORK;
7114		SET AUTODDL OFF;
7115	<	SET TERM ^ ;
7115	>	SET TERM ^;
7116
7117		/* Stored Function Body */
7118
7119		ALTER FUNCTION F (X INTEGER)
7120		RETURNS INTEGER
7121	<	AS
7121	>	AS
7122		BEGIN
7123		RETURN X+1;
7124		END
7125		^
7126
7065	–
7127		SET TERM ;^
7128		COMMIT WORK;
7129		SET AUTODDL ON;
#	Line 7140 \| Line 7201 \| COMMENT ON DATABASE IS 'Employee Test D
7201		/* Domain definitions */
7202
7203		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
7204	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
7204	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
7205		DEFAULT 50000;
7206		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
7207		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 7156 \| Line 7217 \| CREATE DOMAIN PONUMBER AS CHAR(8);
7217		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
7218		DEFAULT 'software' NOT NULL;
7219		CREATE DOMAIN PROJNO AS CHAR(5);
7220	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
7220	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
7221		DEFAULT 0;
7222
7223		/* Table: COUNTRIES, Owner: SYSDBA */
7224
7225	<	CREATE TABLE COUNTRIES
7225	>	CREATE TABLE COUNTRIES
7226		(
7227		COUNTRY VARCHAR(64) NOT NULL,
7228		NONEU SMALLINT,
#	Line 7174 \| Line 7235 \| COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
7235
7236		/* Table: COUNTRY, Owner: SYSDBA */
7237
7238	<	CREATE TABLE COUNTRY
7238	>	CREATE TABLE COUNTRY
7239		(
7240		COUNTRY COUNTRYNAME NOT NULL,
7241		CURRENCY VARCHAR(10) NOT NULL,
#	Line 7183 \| Line 7244 \| PRIMARY KEY (COUNTRY)
7244
7245		/* Table: CUSTOMER, Owner: SYSDBA */
7246
7247	<	CREATE TABLE CUSTOMER
7247	>	CREATE TABLE CUSTOMER
7248		(
7249		CUST_NO CUSTNO NOT NULL,
7250		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 7203 \| Line 7264 \| PRIMARY KEY (CUST_NO)
7264
7265		/* Table: DEPARTMENT, Owner: SYSDBA */
7266
7267	<	CREATE TABLE DEPARTMENT
7267	>	CREATE TABLE DEPARTMENT
7268		(
7269		DEPT_NO DEPTNO NOT NULL,
7270		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 7218 \| Line 7279 \| PRIMARY KEY (DEPT_NO)
7279
7280		/* Table: EMPLOYEE, Owner: SYSDBA */
7281
7282	<	CREATE TABLE EMPLOYEE
7282	>	CREATE TABLE EMPLOYEE
7283		(
7284		EMP_NO EMPNO NOT NULL,
7285		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 7236 \| Line 7297 \| PRIMARY KEY (EMP_NO)
7297
7298		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
7299
7300	<	CREATE TABLE EMPLOYEE_PROJECT
7300	>	CREATE TABLE EMPLOYEE_PROJECT
7301		(
7302		EMP_NO EMPNO NOT NULL,
7303		PROJ_ID PROJNO NOT NULL,
#	Line 7245 \| Line 7306 \| PRIMARY KEY (EMP_NO, PROJ_ID)
7306
7307		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
7308
7309	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
7309	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
7310		(
7311		LINE_NUM INTEGER,
7312		CONTENT FB$OUT_TYPE
#	Line 7253 \| Line 7314 \| CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
7314
7315		/* Table: ITEST, Owner: SYSDBA */
7316
7317	<	CREATE TABLE ITEST
7317	>	CREATE TABLE ITEST
7318		(
7319		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
7320		SOMETEXT VARCHAR(64),
#	Line 7262 \| Line 7323 \| PRIMARY KEY ("KEY")
7323
7324		/* Table: ITEST2, Owner: SYSDBA */
7325
7326	<	CREATE TABLE ITEST2
7326	>	CREATE TABLE ITEST2
7327		(
7328		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
7329		SOMETEXT VARCHAR(64),
#	Line 7271 \| Line 7332 \| PRIMARY KEY ("KEY")
7332
7333		/* Table: JOB, Owner: SYSDBA */
7334
7335	<	CREATE TABLE JOB
7335	>	CREATE TABLE JOB
7336		(
7337		JOB_CODE JOBCODE NOT NULL,
7338		JOB_GRADE JOBGRADE NOT NULL,
#	Line 7286 \| Line 7347 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
7347
7348		/* Table: PROJECT, Owner: SYSDBA */
7349
7350	<	CREATE TABLE PROJECT
7350	>	CREATE TABLE PROJECT
7351		(
7352		PROJ_ID PROJNO NOT NULL,
7353		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 7299 \| Line 7360 \| PRIMARY KEY (PROJ_ID)
7360
7361		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
7362
7363	<	CREATE TABLE PROJ_DEPT_BUDGET
7363	>	CREATE TABLE PROJ_DEPT_BUDGET
7364		(
7365		FISCAL_YEAR INTEGER NOT NULL,
7366		PROJ_ID PROJNO NOT NULL,
#	Line 7311 \| Line 7372 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
7372
7373		/* Table: SALARY_HISTORY, Owner: SYSDBA */
7374
7375	<	CREATE TABLE SALARY_HISTORY
7375	>	CREATE TABLE SALARY_HISTORY
7376		(
7377		EMP_NO EMPNO NOT NULL,
7378		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 7324 \| Line 7385 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
7385
7386		/* Table: SALES, Owner: SYSDBA */
7387
7388	<	CREATE TABLE SALES
7388	>	CREATE TABLE SALES
7389		(
7390		PO_NUMBER PONUMBER NOT NULL,
7391		CUST_NO CUSTNO NOT NULL,
#	Line 7335 \| Line 7396 \| CREATE TABLE SALES
7396		DATE_NEEDED TIMESTAMP,
7397		PAID CHAR(1) DEFAULT 'n',
7398		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
7399	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
7399	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
7400		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
7401		ITEM_TYPE PRODTYPE,
7402		AGED COMPUTED BY (ship_date - order_date),
#	Line 7348 \| Line 7409 \| DECLARE EXTERNAL FUNCTION ADDDAY
7409		TIMESTAMP, INTEGER
7410		RETURNS TIMESTAMP
7411		ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
7351	–
7412		;
7413
7414
7415		DECLARE EXTERNAL FUNCTION I64TRUNCATE
7416	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
7416	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
7417		RETURNS PARAMETER 2
7418		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
7359	–
7419		;
7420
7421
#	Line 7364 \| Line 7423 \| DECLARE EXTERNAL FUNCTION TESTIT
7423		TIMESTAMP, INTEGER NULL, CSTRING(10) CHARACTER SET NONE, CSTRING(10) CHARACTER SET NONE BY DESCRIPTOR
7424		RETURNS CSTRING(32) CHARACTER SET NONE FREE_IT
7425		ENTRY_POINT 'testit' MODULE_NAME 'fbudf'
7367	–
7426		;
7427
7428
#	Line 8097 \| Line 8155 \| ALTER TABLE SALES ADD FOREIGN KEY (CUST_
8155		ALTER TABLE SALES ADD FOREIGN KEY (SALES_REP) REFERENCES EMPLOYEE (EMP_NO);
8156
8157		CREATE SEQUENCE CUST_NO_GEN;
8158	<	ALTER SEQUENCE CUST_NO_GEN RESTART WITH 1015;
8158	>	ALTER SEQUENCE CUST_NO_GEN RESTART WITH 1016;
8159		CREATE SEQUENCE EMP_NO_GEN;
8160	<	ALTER SEQUENCE EMP_NO_GEN RESTART WITH 157;
8160	>	ALTER SEQUENCE EMP_NO_GEN RESTART WITH 158;
8161		CREATE SEQUENCE FB$OUT_SEQ;
8162	<	ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 0;
8162	>	ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1;
8163
8164		/* View: DEPTLIST, Owner: SYSDBA */
8165
8166		CREATE VIEW DEPTLIST (
8167	<	EMP_NO,
8168	<	FIRST_NAME,
8169	<	LAST_NAME,
8170	<	PHONE_EXT,
8171	<	HIRE_DATE,
8172	<	DEPT_NO,
8173	<	JOB_CODE,
8174	<	JOB_GRADE,
8175	<	JOB_COUNTRY,
8176	<	SALARY,
8177	<	FULL_NAME,
8178	<	DEPT_PATH,
8179	<	DEPT_KEY_PATH,
8167	>	EMP_NO,
8168	>	FIRST_NAME,
8169	>	LAST_NAME,
8170	>	PHONE_EXT,
8171	>	HIRE_DATE,
8172	>	DEPT_NO,
8173	>	JOB_CODE,
8174	>	JOB_GRADE,
8175	>	JOB_COUNTRY,
8176	>	SALARY,
8177	>	FULL_NAME,
8178	>	DEPT_PATH,
8179	>	DEPT_KEY_PATH,
8180		"Payment Status"
8181		) AS
8182		with recursive Depts As (
#	Line 8134 \| Line 8192 \| JOIN Depts On D.HEAD_DEPT = Depts.DEPT_N
8192
8193		Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,
8194		A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH,
8195	<	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
8195	>	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
8196		From EMPLOYEE A
8197		JOIN Depts D On D.DEPT_NO = A.DEPT_NO
8198		;
#	Line 8142 \| Line 8200 \| JOIN Depts D On D.DEPT_NO = A.DEPT_NO
8200		/* View: PHONE_LIST, Owner: SYSDBA */
8201
8202		CREATE VIEW PHONE_LIST (
8203	<	EMP_NO,
8204	<	FIRST_NAME,
8205	<	LAST_NAME,
8206	<	PHONE_EXT,
8207	<	LOCATION,
8203	>	EMP_NO,
8204	>	FIRST_NAME,
8205	>	LAST_NAME,
8206	>	PHONE_EXT,
8207	>	LOCATION,
8208		PHONE_NO
8209		) AS
8210		SELECT
#	Line 8248 \| Line 8306 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
8306		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
8307		COMMIT WORK;
8308		SET AUTODDL OFF;
8309	<	SET TERM ^ ;
8309	>	SET TERM ^;
8310
8311		/* Package Definitions */
8312
8313	<	CREATE PACKAGE FB$OUT
8313	>	CREATE PACKAGE FB$OUT
8314		AS
8257	–
8315		begin
8316		procedure enable;
8317		procedure disable;
#	Line 8264 \| Line 8321 \| begin
8321
8322		procedure get_lines returns (lines fb$out_type);
8323		end
8324	<	^
8324	>	^
8325
8326	<	CREATE PACKAGE SELECT$TEST
8326	>	CREATE PACKAGE SELECT$TEST
8327		AS
8271	–
8328		Begin
8329		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer);
8330		End
8331	<	^
8331	>	^
8332
8333	<	SET TERM ; ^
8333	>	SET TERM ;^
8334		COMMIT WORK;
8335		SET AUTODDL ON;
8336		COMMIT WORK;
8337		SET AUTODDL OFF;
8338	<	SET TERM ^ ;
8338	>	SET TERM ^;
8339
8340		/* Stored procedures Definitions*/
8341
#	Line 8295 \| Line 8351 \| RETURNS
8351		)
8352		AS
8353		BEGIN SUSPEND; EXIT; END
8298	–
8354		^
8355	+
8356		CREATE PROCEDURE ADD_EMP_PROJ
8357		(
8358		EMP_NO SMALLINT,
#	Line 8304 \| Line 8360 \| CREATE PROCEDURE ADD_EMP_PROJ
8360		)
8361		AS
8362		BEGIN EXIT; END
8307	–
8363		^
8364	+
8365		CREATE PROCEDURE ALL_LANGS
8366		RETURNS
8367		(
#	Line 8316 \| Line 8372 \| RETURNS
8372		)
8373		AS
8374		BEGIN SUSPEND; EXIT; END
8319	–
8375		^
8376	+
8377		CREATE PROCEDURE DELETE_EMPLOYEE
8378		(
8379		EMP_NUM INTEGER
8380		)
8381		AS
8382		BEGIN EXIT; END
8327	–
8383		^
8384	+
8385		CREATE PROCEDURE DEPT_BUDGET
8386		(
8387		DNO CHAR(3) CHARACTER SET NONE
8388		)
8389		RETURNS
8390		(
8391	<	TOT DECIMAL(12, 2)
8391	>	TOT DECIMAL(12,2)
8392		)
8393		AS
8394		BEGIN SUSPEND; EXIT; END
8339	–
8395		^
8396	+
8397		CREATE PROCEDURE EMPLOYEE_PAY_STATUS
8398		(
8399		EMP_NUM SMALLINT
#	Line 8345 \| Line 8401 \| CREATE PROCEDURE EMPLOYEE_PAY_STATUS
8401		RETURNS
8402		(
8403		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
8404	<	SALARY NUMERIC(10, 2)
8404	>	SALARY NUMERIC(10,2)
8405		)
8406		AS
8407		BEGIN EXIT; END
8352	–
8408		^
8409	+
8410		CREATE PROCEDURE GET_EMP_PROJ
8411		(
8412		EMP_NO SMALLINT
#	Line 8361 \| Line 8417 \| RETURNS
8417		)
8418		AS
8419		BEGIN SUSPEND; EXIT; END
8364	–
8420		^
8421	+
8422		CREATE PROCEDURE "Has Space"
8423		(
8424		ARG1 INTEGER
8425		)
8426		AS
8427		BEGIN EXIT; END
8372	–
8428		^
8429	+
8430		CREATE PROCEDURE MAIL_LABEL
8431		(
8432		CUST_NO INTEGER
#	Line 8386 \| Line 8442 \| RETURNS
8442		)
8443		AS
8444		BEGIN SUSPEND; EXIT; END
8389	–
8445		^
8446	+
8447		CREATE PROCEDURE ORG_CHART
8448		RETURNS
8449		(
#	Line 8399 \| Line 8455 \| RETURNS
8455		)
8456		AS
8457		BEGIN SUSPEND; EXIT; END
8402	–
8458		^
8459	+
8460		CREATE PROCEDURE SHIP_ORDER
8461		(
8462		PO_NUM CHAR(8) CHARACTER SET NONE
8463		)
8464		AS
8465		BEGIN EXIT; END
8410	–
8466		^
8467	+
8468		CREATE PROCEDURE SUB_TOT_BUDGET
8469		(
8470		HEAD_DEPT CHAR(3) CHARACTER SET NONE
8471		)
8472		RETURNS
8473		(
8474	<	TOT_BUDGET DECIMAL(12, 2),
8475	<	AVG_BUDGET DECIMAL(12, 2),
8476	<	MIN_BUDGET DECIMAL(12, 2),
8477	<	MAX_BUDGET DECIMAL(12, 2)
8474	>	TOT_BUDGET DECIMAL(12,2),
8475	>	AVG_BUDGET DECIMAL(12,2),
8476	>	MIN_BUDGET DECIMAL(12,2),
8477	>	MAX_BUDGET DECIMAL(12,2)
8478		)
8479		AS
8480		BEGIN SUSPEND; EXIT; END
8425	–
8481		^
8482	+
8483		CREATE PROCEDURE "UC SPACE"
8484		(
8485		ARG1 INTEGER
8486		)
8487		AS
8488		BEGIN EXIT; END
8433	–
8489		^
8490	+
8491		CREATE PROCEDURE "iCASE"
8492		AS
8493		BEGIN EXIT; END
8438	–
8494		^
8495	<	SET TERM ; ^
8495	>
8496	>	SET TERM ;^
8497		COMMIT WORK;
8498		SET AUTODDL ON;
8499		COMMIT WORK;
8500		SET AUTODDL OFF;
8501	<	SET TERM ^ ;
8501	>	SET TERM ^;
8502
8503		/* Stored Function declarations */
8504
8505		CREATE FUNCTION F (X INTEGER)
8506		RETURNS INTEGER
8507		AS BEGIN END
8452	–
8508		^
8509
8510	<
8456	<	SET TERM ; ^
8510	>	SET TERM ;^
8511		COMMIT WORK;
8512		SET AUTODDL ON;
8513	<	SET TERM ^ ;
8513	>	SET TERM ^;
8514
8515
8516		/* Triggers only will work for SQL triggers */
#	Line 8466 \| Line 8520 \| ACTIVE ON CONNECT POSITION 0
8520		as
8521		begin
8522		End
8523	<	^
8523	>	^
8524	>
8525		CREATE TRIGGER "BEFORE CREATE TABLE"
8526		ACTIVE BEFORE CREATE TABLE POSITION 0
8527		AS BEGIN END
8528	<	^
8528	>	^
8529	>
8530		CREATE TRIGGER "AFTER CREATE TABLE"
8531		ACTIVE AFTER CREATE TABLE POSITION 0
8532		AS BEGIN END
8533	<	^
8533	>	^
8534	>
8535		CREATE TRIGGER "BEFORE ALTER TABLE"
8536		ACTIVE BEFORE ALTER TABLE POSITION 0
8537		AS BEGIN END
8538	<	^
8538	>	^
8539	>
8540		CREATE TRIGGER "AFTER ALTER TABLE"
8541		ACTIVE AFTER ALTER TABLE POSITION 0
8542		AS BEGIN END
8543	<	^
8543	>	^
8544	>
8545		CREATE TRIGGER "AFTER CREATE/Alter TABLE"
8546		ACTIVE AFTER CREATE TABLE OR ALTER TABLE POSITION 0
8547		AS BEGIN END
8548	<	^
8548	>	^
8549	>
8550		CREATE TRIGGER "BEFORE DROP TABLE"
8551		ACTIVE BEFORE Drop TABLE POSITION 0
8552		AS BEGIN END
8553	<	^
8553	>	^
8554	>
8555		CREATE TRIGGER "AFTER DROP TABLE"
8556		ACTIVE AFTER Drop TABLE POSITION 0
8557		AS BEGIN END
8558	<	^
8558	>	^
8559	>
8560		CREATE TRIGGER "BEFORE CREATE PROCEDURE"
8561		ACTIVE BEFORE CREATE PROCEDURE POSITION 0
8562		AS BEGIN END
8563	<	^
8563	>	^
8564	>
8565		CREATE TRIGGER "AFTER CREATE PROCEDURE"
8566		ACTIVE AFTER CREATE PROCEDURE POSITION 0
8567		AS BEGIN END
8568	<	^
8568	>	^
8569	>
8570		CREATE TRIGGER "BEFORE ALTER PROCEDURE"
8571		ACTIVE BEFORE ALTER PROCEDURE POSITION 0
8572		AS BEGIN END
8573	<	^
8573	>	^
8574	>
8575		CREATE TRIGGER "AFTER ALTER PROCEDURE"
8576		ACTIVE AFTER ALTER PROCEDURE POSITION 0
8577		AS BEGIN END
8578	<	^
8578	>	^
8579	>
8580		CREATE TRIGGER "BEFORE DROP PROCEDURE"
8581		ACTIVE BEFORE Drop PROCEDURE POSITION 0
8582		AS BEGIN END
8583	<	^
8583	>	^
8584	>
8585		CREATE TRIGGER "AFTER DROP PROCEDURE"
8586		ACTIVE AFTER Drop PROCEDURE POSITION 0
8587		AS BEGIN END
8588	<	^
8588	>	^
8589	>
8590		CREATE TRIGGER "BEFORE CREATE FUNCTION"
8591		ACTIVE BEFORE CREATE FUNCTION POSITION 0
8592		AS BEGIN END
8593	<	^
8593	>	^
8594	>
8595		CREATE TRIGGER "AFTER CREATE FUNCTION"
8596		ACTIVE AFTER CREATE FUNCTION POSITION 0
8597		AS BEGIN END
8598	<	^
8598	>	^
8599	>
8600		CREATE TRIGGER "BEFORE ALTER FUNCTION"
8601		ACTIVE BEFORE ALTER FUNCTION POSITION 0
8602		AS BEGIN END
8603	<	^
8603	>	^
8604	>
8605		CREATE TRIGGER "AFTER ALTER FUNCTION"
8606		ACTIVE AFTER ALTER FUNCTION POSITION 0
8607		AS BEGIN END
8608	<	^
8608	>	^
8609	>
8610		CREATE TRIGGER "BEFORE DROP FUNCTION"
8611		ACTIVE BEFORE Drop FUNCTION POSITION 0
8612		AS BEGIN END
8613	<	^
8613	>	^
8614	>
8615		CREATE TRIGGER "AFTER DROP FUNCTION"
8616		ACTIVE AFTER Drop FUNCTION POSITION 0
8617		AS BEGIN END
8618	<	^
8618	>	^
8619	>
8620		CREATE TRIGGER "BEFORE CREATE TRIGGER"
8621		ACTIVE BEFORE CREATE TRIGGER POSITION 0
8622		AS BEGIN END
8623	<	^
8623	>	^
8624	>
8625		CREATE TRIGGER "AFTER CREATE TRIGGER"
8626		ACTIVE AFTER CREATE TRIGGER POSITION 0
8627		AS BEGIN END
8628	<	^
8628	>	^
8629	>
8630		CREATE TRIGGER "BEFORE ALTER TRIGGER"
8631		ACTIVE BEFORE ALTER TRIGGER POSITION 0
8632		AS BEGIN END
8633	<	^
8633	>	^
8634	>
8635		CREATE TRIGGER "AFTER ALTER TRIGGER"
8636		ACTIVE AFTER ALTER TRIGGER POSITION 0
8637		AS BEGIN END
8638	<	^
8638	>	^
8639	>
8640		CREATE TRIGGER "BEFORE DROP TRIGGER"
8641		ACTIVE BEFORE Drop TRIGGER POSITION 0
8642		AS BEGIN END
8643	<	^
8643	>	^
8644	>
8645		CREATE TRIGGER "AFTER DROP TRIGGER"
8646		ACTIVE AFTER Drop TRIGGER POSITION 0
8647		AS BEGIN END
8648	<	^
8648	>	^
8649	>
8650		CREATE TRIGGER "BEFORE CREATE EXCEPTION"
8651		ACTIVE BEFORE CREATE EXCEPTION POSITION 0
8652		AS BEGIN END
8653	<	^
8653	>	^
8654	>
8655		CREATE TRIGGER "AFTER CREATE EXCEPTION"
8656		ACTIVE AFTER CREATE EXCEPTION POSITION 0
8657		AS BEGIN END
8658	<	^
8658	>	^
8659	>
8660		CREATE TRIGGER "BEFORE ALTER EXCEPTION"
8661		ACTIVE BEFORE ALTER EXCEPTION POSITION 0
8662		AS BEGIN END
8663	<	^
8663	>	^
8664	>
8665		CREATE TRIGGER "AFTER ALTER EXCEPTION"
8666		ACTIVE AFTER ALTER EXCEPTION POSITION 0
8667		AS BEGIN END
8668	<	^
8668	>	^
8669	>
8670		CREATE TRIGGER "BEFORE DROP EXCEPTION"
8671		ACTIVE BEFORE Drop EXCEPTION POSITION 0
8672		AS BEGIN END
8673	<	^
8673	>	^
8674	>
8675		CREATE TRIGGER "AFTER DROP EXCEPTION"
8676		ACTIVE AFTER Drop EXCEPTION POSITION 0
8677		AS BEGIN END
8678	<	^
8678	>	^
8679	>
8680		CREATE TRIGGER "BEFORE CREATE VIEW"
8681		ACTIVE BEFORE CREATE VIEW POSITION 0
8682		AS BEGIN END
8683	<	^
8683	>	^
8684	>
8685		CREATE TRIGGER "AFTER CREATE VIEW"
8686		ACTIVE AFTER CREATE VIEW POSITION 0
8687		AS BEGIN END
8688	<	^
8688	>	^
8689	>
8690		CREATE TRIGGER "BEFORE ALTER VIEW"
8691		ACTIVE BEFORE ALTER VIEW POSITION 0
8692		AS BEGIN END
8693	<	^
8693	>	^
8694	>
8695		CREATE TRIGGER "AFTER ALTER VIEW"
8696		ACTIVE AFTER ALTER VIEW POSITION 0
8697		AS BEGIN END
8698	<	^
8698	>	^
8699	>
8700		CREATE TRIGGER "BEFORE DROP VIEW"
8701		ACTIVE BEFORE Drop VIEW POSITION 0
8702		AS BEGIN END
8703	<	^
8703	>	^
8704	>
8705		CREATE TRIGGER "AFTER DROP VIEW"
8706		ACTIVE AFTER Drop VIEW POSITION 0
8707		AS BEGIN END
8708	<	^
8708	>	^
8709	>
8710		CREATE TRIGGER "BEFORE CREATE DOMAIN"
8711		ACTIVE BEFORE CREATE DOMAIN POSITION 0
8712		AS BEGIN END
8713	<	^
8713	>	^
8714	>
8715		CREATE TRIGGER "AFTER CREATE DOMAIN"
8716		ACTIVE AFTER CREATE DOMAIN POSITION 0
8717		AS BEGIN END
8718	<	^
8718	>	^
8719	>
8720		CREATE TRIGGER "BEFORE ALTER DOMAIN"
8721		ACTIVE BEFORE ALTER DOMAIN POSITION 0
8722		AS BEGIN END
8723	<	^
8723	>	^
8724	>
8725		CREATE TRIGGER "AFTER ALTER DOMAIN"
8726		ACTIVE AFTER ALTER DOMAIN POSITION 0
8727		AS BEGIN END
8728	<	^
8728	>	^
8729	>
8730		CREATE TRIGGER "BEFORE DROP DOMAIN"
8731		ACTIVE BEFORE Drop DOMAIN POSITION 0
8732		AS BEGIN END
8733	<	^
8733	>	^
8734	>
8735		CREATE TRIGGER "AFTER DROP DOMAIN"
8736		ACTIVE AFTER Drop DOMAIN POSITION 0
8737		AS BEGIN END
8738	<	^
8738	>	^
8739	>
8740		CREATE TRIGGER "BEFORE CREATE ROLE"
8741		ACTIVE BEFORE CREATE ROLE POSITION 0
8742		AS BEGIN END
8743	<	^
8743	>	^
8744	>
8745		CREATE TRIGGER "AFTER CREATE ROLE"
8746		ACTIVE AFTER CREATE ROLE POSITION 0
8747		AS BEGIN END
8748	<	^
8748	>	^
8749	>
8750		CREATE TRIGGER "BEFORE ALTER ROLE"
8751		ACTIVE BEFORE ALTER ROLE POSITION 0
8752		AS BEGIN END
8753	<	^
8753	>	^
8754	>
8755		CREATE TRIGGER "AFTER ALTER ROLE"
8756		ACTIVE AFTER ALTER ROLE POSITION 0
8757		AS BEGIN END
8758	<	^
8758	>	^
8759	>
8760		CREATE TRIGGER "BEFORE DROP ROLE"
8761		ACTIVE BEFORE Drop ROLE POSITION 0
8762		AS BEGIN END
8763	<	^
8763	>	^
8764	>
8765		CREATE TRIGGER "AFTER DROP ROLE"
8766		ACTIVE AFTER Drop ROLE POSITION 0
8767		AS BEGIN END
8768	<	^
8768	>	^
8769	>
8770		CREATE TRIGGER "BEFORE CREATE INDEX"
8771		ACTIVE BEFORE CREATE INDEX POSITION 0
8772		AS BEGIN END
8773	<	^
8773	>	^
8774	>
8775		CREATE TRIGGER "AFTER CREATE INDEX"
8776		ACTIVE AFTER CREATE INDEX POSITION 0
8777		AS BEGIN END
8778	<	^
8778	>	^
8779	>
8780		CREATE TRIGGER "BEFORE ALTER INDEX"
8781		ACTIVE BEFORE ALTER INDEX POSITION 0
8782		AS BEGIN END
8783	<	^
8783	>	^
8784	>
8785		CREATE TRIGGER "AFTER ALTER INDEX"
8786		ACTIVE AFTER ALTER INDEX POSITION 0
8787		AS BEGIN END
8788	<	^
8788	>	^
8789	>
8790		CREATE TRIGGER "BEFORE DROP INDEX"
8791		ACTIVE BEFORE Drop INDEX POSITION 0
8792		AS BEGIN END
8793	<	^
8793	>	^
8794	>
8795		CREATE TRIGGER "AFTER DROP INDEX"
8796		ACTIVE AFTER Drop INDEX POSITION 0
8797		AS BEGIN END
8798	<	^
8798	>	^
8799	>
8800		CREATE TRIGGER "BEFORE CREATE SEQUENCE"
8801		ACTIVE BEFORE CREATE SEQUENCE POSITION 0
8802		AS BEGIN END
8803	<	^
8803	>	^
8804	>
8805		CREATE TRIGGER "AFTER CREATE SEQUENCE"
8806		ACTIVE AFTER CREATE SEQUENCE POSITION 0
8807		AS BEGIN END
8808	<	^
8808	>	^
8809	>
8810		CREATE TRIGGER "BEFORE ALTER SEQUENCE"
8811		ACTIVE BEFORE ALTER SEQUENCE POSITION 0
8812		AS BEGIN END
8813	<	^
8813	>	^
8814	>
8815		CREATE TRIGGER "AFTER ALTER SEQUENCE"
8816		ACTIVE AFTER ALTER SEQUENCE POSITION 0
8817		AS BEGIN END
8818	<	^
8818	>	^
8819	>
8820		CREATE TRIGGER "BEFORE DROP SEQUENCE"
8821		ACTIVE BEFORE Drop SEQUENCE POSITION 0
8822		AS BEGIN END
8823	<	^
8823	>	^
8824	>
8825		CREATE TRIGGER "AFTER DROP SEQUENCE"
8826		ACTIVE AFTER Drop SEQUENCE POSITION 0
8827		AS BEGIN END
8828	<	^
8828	>	^
8829	>
8830		CREATE TRIGGER "BEFORE CREATE USER"
8831		ACTIVE BEFORE CREATE USER POSITION 0
8832		AS BEGIN END
8833	<	^
8833	>	^
8834	>
8835		CREATE TRIGGER "AFTER CREATE USER"
8836		ACTIVE AFTER CREATE USER POSITION 0
8837		AS BEGIN END
8838	<	^
8838	>	^
8839	>
8840		CREATE TRIGGER "BEFORE ALTER USER"
8841		ACTIVE BEFORE ALTER USER POSITION 0
8842		AS BEGIN END
8843	<	^
8843	>	^
8844	>
8845		CREATE TRIGGER "AFTER ALTER USER"
8846		ACTIVE AFTER ALTER USER POSITION 0
8847		AS BEGIN END
8848	<	^
8848	>	^
8849	>
8850		CREATE TRIGGER "BEFORE DROP USER"
8851		ACTIVE BEFORE Drop USER POSITION 0
8852		AS BEGIN END
8853	<	^
8853	>	^
8854	>
8855		CREATE TRIGGER "AFTER DROP USER"
8856		ACTIVE AFTER Drop USER POSITION 0
8857		AS BEGIN END
8858	<	^
8858	>	^
8859	>
8860		CREATE TRIGGER "BEFORE CREATE COLLATION"
8861		ACTIVE BEFORE CREATE COLLATION POSITION 0
8862		AS BEGIN END
8863	<	^
8863	>	^
8864	>
8865		CREATE TRIGGER "AFTER CREATE COLLATION"
8866		ACTIVE AFTER CREATE COLLATION POSITION 0
8867		AS BEGIN END
8868	<	^
8868	>	^
8869	>
8870		CREATE TRIGGER "BEFORE DROP COLLATION"
8871		ACTIVE BEFORE Drop COLLATION POSITION 0
8872		AS BEGIN END
8873	<	^
8873	>	^
8874	>
8875		CREATE TRIGGER "AFTER DROP COLLATION"
8876		ACTIVE AFTER Drop COLLATION POSITION 0
8877		AS BEGIN END
8878	<	^
8878	>	^
8879	>
8880		CREATE TRIGGER "BEFORE ALTER CHARACTER SET"
8881		ACTIVE BEFORE ALTER CHARACTER SET POSITION 0
8882		AS BEGIN END
8883	<	^
8883	>	^
8884	>
8885		CREATE TRIGGER "AFTER ALTER CHARACTER SET"
8886		ACTIVE AFTER ALTER CHARACTER SET POSITION 0
8887		AS BEGIN END
8888	<	^
8888	>	^
8889	>
8890		CREATE TRIGGER "BEFORE CREATE PACKAGE"
8891		ACTIVE BEFORE CREATE PACKAGE POSITION 0
8892		AS BEGIN END
8893	<	^
8893	>	^
8894	>
8895		CREATE TRIGGER "AFTER CREATE PACKAGE"
8896		ACTIVE AFTER CREATE PACKAGE POSITION 0
8897		AS BEGIN END
8898	<	^
8898	>	^
8899	>
8900		CREATE TRIGGER "BEFORE ALTER PACKAGE"
8901		ACTIVE BEFORE ALTER PACKAGE POSITION 0
8902		AS BEGIN END
8903	<	^
8903	>	^
8904	>
8905		CREATE TRIGGER "AFTER ALTER PACKAGE"
8906		ACTIVE AFTER ALTER PACKAGE POSITION 0
8907		AS BEGIN END
8908	<	^
8908	>	^
8909	>
8910		CREATE TRIGGER "BEFORE DROP PACKAGE"
8911		ACTIVE BEFORE Drop PACKAGE POSITION 0
8912		AS BEGIN END
8913	<	^
8913	>	^
8914	>
8915		CREATE TRIGGER "AFTER DROP PACKAGE"
8916		ACTIVE AFTER Drop PACKAGE POSITION 0
8917		AS BEGIN END
8918	<	^
8918	>	^
8919	>
8920		CREATE TRIGGER "BEFORE CREATE PACKAGE BODY"
8921		ACTIVE BEFORE CREATE PACKAGE BODY POSITION 0
8922		AS BEGIN END
8923	<	^
8923	>	^
8924	>
8925		CREATE TRIGGER "AFTER CREATE PACKAGE BODY"
8926		ACTIVE AFTER CREATE PACKAGE BODY POSITION 0
8927		AS BEGIN END
8928	<	^
8928	>	^
8929	>
8930		CREATE TRIGGER "BEFORE DROP PACKAGE BODY"
8931		ACTIVE BEFORE Drop PACKAGE BODY POSITION 0
8932		AS BEGIN END
8933	<	^
8933	>	^
8934	>
8935		CREATE TRIGGER "AFTER DROP PACKAGE BODY"
8936		ACTIVE AFTER Drop PACKAGE BODY POSITION 0
8937		AS BEGIN END
8938	<	^
8938	>	^
8939	>
8940		CREATE TRIGGER "BEFORE ANY DDL STATEMENT"
8941		ACTIVE BEFORE ANY DDL STATEMENT POSITION 0
8942		AS BEGIN END
8943	<	^
8943	>	^
8944	>
8945		CREATE TRIGGER "AFTER ANY DDL STATEMENT"
8946		ACTIVE AFTER ANY DDL STATEMENT POSITION 0
8947		AS BEGIN END
8948	<	^
8948	>	^
8949	>
8950		CREATE TRIGGER SET_CUST_NO FOR CUSTOMER
8951		ACTIVE BEFORE INSERT POSITION 0
8952		AS
#	Line 8814 \| Line 8954 \| BEGIN
8954		if (new.cust_no is null) then
8955		new.cust_no = gen_id(cust_no_gen, 1);
8956		END
8957	<	^
8957	>	^
8958	>
8959		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
8960		ACTIVE BEFORE INSERT POSITION 0
8961		AS
#	Line 8822 \| Line 8963 \| BEGIN
8963		if (new.emp_no is null) then
8964		new.emp_no = gen_id(emp_no_gen, 1);
8965		END
8966	<	^
8966	>	^
8967	>
8968		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
8969		ACTIVE AFTER UPDATE POSITION 0
8970		AS
#	Line 8837 \| Line 8979 \| BEGIN
8979		old.salary,
8980		(new.salary - old.salary) * 100 / old.salary);
8981		END
8982	<	^
8982	>	^
8983	>
8984		CREATE TRIGGER POST_NEW_ORDER FOR SALES
8985		ACTIVE AFTER INSERT POSITION 0
8986		AS
8987		BEGIN
8988		POST_EVENT 'new_order';
8989		END
8990	<	^
8991	<	COMMIT WORK ^
8990	>	^
8991	>
8992	>	COMMIT WORK^
8993		SET TERM ;^
8994		COMMIT WORK;
8995		SET AUTODDL OFF;
8996	<	SET TERM ^ ;
8996	>	SET TERM ^;
8997
8998		/* Package Definitions */
8999
9000	<	CREATE PACKAGE BODY FB$OUT
9000	>	CREATE PACKAGE BODY FB$OUT
9001		AS
8858	–
9002		begin
9003		procedure enable
9004		as
#	Line 8910 \| Line 9053 \| begin
9053		execute procedure clear;
9054		end
9055		end
9056	<	^
9056	>	^
9057
9058	<	CREATE PACKAGE BODY SELECT$TEST
9058	>	CREATE PACKAGE BODY SELECT$TEST
9059		AS
8917	–
9060		Begin
9061		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer)
9062		As
#	Line 8922 \| Line 9064 \| Begin
9064		SUSPEND;
9065		End
9066		End
9067	<	^
9067	>	^
9068
9069	<	SET TERM ; ^
9069	>	SET TERM ;^
9070		COMMIT WORK;
9071		SET AUTODDL ON;
9072		COMMIT WORK;
9073		SET AUTODDL OFF;
9074	<	SET TERM ^ ;
9074	>	SET TERM ^;
9075
9076		/* Stored procedure Bodies */
9077
8936	–
9078		ALTER PROCEDURE SHOW_LANGS
9079		(
9080		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 8955 \| Line 9096 \| BEGIN
9096		AND (language_req IS NOT NULL))
9097		INTO :languages;
9098		IF (languages = ' ') THEN /* Prints 'NULL' instead of blanks */
9099	<	languages = 'NULL';
9099	>	languages = 'NULL';
9100		i = i +1;
9101		SUSPEND;
9102		END
#	Line 8987 \| Line 9128 \| RETURNS
9128		)
9129		AS
9130		BEGIN
9131	<	FOR SELECT job_code, job_grade, job_country FROM job
9131	>	FOR SELECT job_code, job_grade, job_country FROM job
9132		INTO :code, :grade, :country
9133
9134		DO
9135		BEGIN
9136	<	FOR SELECT languages FROM show_langs
9136	>	FOR SELECT languages FROM show_langs
9137		(:code, :grade, :country) INTO :lang DO
9138		SUSPEND;
9139		/* Put nice separators between rows */
#	Line 9070 \| Line 9211 \| ALTER PROCEDURE DEPT_BUDGET
9211		)
9212		RETURNS
9213		(
9214	<	TOT DECIMAL(12, 2)
9214	>	TOT DECIMAL(12,2)
9215		)
9216		AS
9217	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
9217	>	DECLARE VARIABLE sumb DECIMAL(12,2);
9218		DECLARE VARIABLE rdno CHAR(3);
9219		DECLARE VARIABLE cnt INTEGER;
9220		BEGIN
#	Line 9107 \| Line 9248 \| ALTER PROCEDURE EMPLOYEE_PAY_STATUS
9248		RETURNS
9249		(
9250		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
9251	<	SALARY NUMERIC(10, 2)
9251	>	SALARY NUMERIC(10,2)
9252		)
9253		AS
9254	<	BEGIN
9255	<	Select SALARY, Case
9256	<	When SALARY > 10000 and SALARY <= 100000 then 'higher'
9257	<	When SALARY > 100000 then 'gross'
9258	<	else 'lower' End
9259	<	From employee
9260	<	WHERE emp_no = :EMP_NUM
9254	>	Declare aCursor CURSOR FOR (
9255	>	Select EMP_NO,SALARY From EMPLOYEE WHERE LAST_NAME = 'unknown');
9256	>	BEGIN
9257	>	Select SALARY, Case
9258	>	When SALARY > 10000 and SALARY <= 100000 then 'higher'
9259	>	When SALARY > 100000 then 'gross'
9260	>	else 'lower' End
9261	>	From employee
9262	>	WHERE emp_no = :EMP_NUM
9263		into :SALARY, :PAY_STATUS;
9264		END
9265		^
#	Line 9325 \| Line 9468 \| ALTER PROCEDURE SUB_TOT_BUDGET
9468		)
9469		RETURNS
9470		(
9471	<	TOT_BUDGET DECIMAL(12, 2),
9472	<	AVG_BUDGET DECIMAL(12, 2),
9473	<	MIN_BUDGET DECIMAL(12, 2),
9474	<	MAX_BUDGET DECIMAL(12, 2)
9471	>	TOT_BUDGET DECIMAL(12,2),
9472	>	AVG_BUDGET DECIMAL(12,2),
9473	>	MIN_BUDGET DECIMAL(12,2),
9474	>	MAX_BUDGET DECIMAL(12,2)
9475		)
9476		AS
9477		BEGIN
#	Line 9352 \| Line 9495 \| ALTER PROCEDURE "iCASE"
9495		AS
9496		Begin End
9497		^
9498	<	SET TERM ; ^
9498	>
9499	>	SET TERM ;^
9500		COMMIT WORK;
9501		SET AUTODDL ON;
9502		COMMIT WORK;
9503		SET AUTODDL OFF;
9504	<	SET TERM ^ ;
9504	>	SET TERM ^;
9505
9506		/* Stored Function Body */
9507
9508		ALTER FUNCTION F (X INTEGER)
9509		RETURNS INTEGER
9510	<	AS
9510	>	AS
9511		BEGIN
9512		RETURN X+1;
9513		END
9514		^
9515
9516	<
9373	<	SET TERM ; ^
9516	>	SET TERM ;^
9517		COMMIT WORK;
9518		SET AUTODDL ON;
9519
#	Line 9444 \| Line 9587 \| COMMENT ON DATABASE IS 'Employee Test D
9587		/* Domain definitions */
9588
9589		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
9590	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
9590	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
9591		DEFAULT 50000;
9592		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
9593		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 9460 \| Line 9603 \| CREATE DOMAIN PONUMBER AS CHAR(8);
9603		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
9604		DEFAULT 'software' NOT NULL;
9605		CREATE DOMAIN PROJNO AS CHAR(5);
9606	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
9606	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
9607		DEFAULT 0;
9608
9609		/* Table: COUNTRIES, Owner: SYSDBA */
9610
9611	<	CREATE TABLE COUNTRIES
9611	>	CREATE TABLE COUNTRIES
9612		(
9613		COUNTRY VARCHAR(64) NOT NULL,
9614		NONEU SMALLINT,
#	Line 9478 \| Line 9621 \| COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
9621
9622		/* Table: COUNTRY, Owner: SYSDBA */
9623
9624	<	CREATE TABLE COUNTRY
9624	>	CREATE TABLE COUNTRY
9625		(
9626		COUNTRY COUNTRYNAME NOT NULL,
9627		CURRENCY VARCHAR(10) NOT NULL,
#	Line 9487 \| Line 9630 \| PRIMARY KEY (COUNTRY)
9630
9631		/* Table: CUSTOMER, Owner: SYSDBA */
9632
9633	<	CREATE TABLE CUSTOMER
9633	>	CREATE TABLE CUSTOMER
9634		(
9635		CUST_NO CUSTNO NOT NULL,
9636		CUSTOMER VARCHAR(25) NOT NULL,
#	Line 9507 \| Line 9650 \| PRIMARY KEY (CUST_NO)
9650
9651		/* Table: DEPARTMENT, Owner: SYSDBA */
9652
9653	<	CREATE TABLE DEPARTMENT
9653	>	CREATE TABLE DEPARTMENT
9654		(
9655		DEPT_NO DEPTNO NOT NULL,
9656		DEPARTMENT VARCHAR(25) NOT NULL,
#	Line 9522 \| Line 9665 \| PRIMARY KEY (DEPT_NO)
9665
9666		/* Table: EMPLOYEE, Owner: SYSDBA */
9667
9668	<	CREATE TABLE EMPLOYEE
9668	>	CREATE TABLE EMPLOYEE
9669		(
9670		EMP_NO EMPNO NOT NULL,
9671		FIRST_NAME FIRSTNAME NOT NULL,
#	Line 9540 \| Line 9683 \| PRIMARY KEY (EMP_NO)
9683
9684		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
9685
9686	<	CREATE TABLE EMPLOYEE_PROJECT
9686	>	CREATE TABLE EMPLOYEE_PROJECT
9687		(
9688		EMP_NO EMPNO NOT NULL,
9689		PROJ_ID PROJNO NOT NULL,
#	Line 9549 \| Line 9692 \| PRIMARY KEY (EMP_NO, PROJ_ID)
9692
9693		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
9694
9695	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
9695	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
9696		(
9697		LINE_NUM INTEGER,
9698		CONTENT FB$OUT_TYPE
#	Line 9557 \| Line 9700 \| CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
9700
9701		/* Table: ITEST, Owner: SYSDBA */
9702
9703	<	CREATE TABLE ITEST
9703	>	CREATE TABLE ITEST
9704		(
9705		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
9706		SOMETEXT VARCHAR(64),
#	Line 9566 \| Line 9709 \| PRIMARY KEY ("KEY")
9709
9710		/* Table: ITEST2, Owner: SYSDBA */
9711
9712	<	CREATE TABLE ITEST2
9712	>	CREATE TABLE ITEST2
9713		(
9714		"KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
9715		SOMETEXT VARCHAR(64),
#	Line 9575 \| Line 9718 \| PRIMARY KEY ("KEY")
9718
9719		/* Table: JOB, Owner: SYSDBA */
9720
9721	<	CREATE TABLE JOB
9721	>	CREATE TABLE JOB
9722		(
9723		JOB_CODE JOBCODE NOT NULL,
9724		JOB_GRADE JOBGRADE NOT NULL,
#	Line 9590 \| Line 9733 \| PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
9733
9734		/* Table: PROJECT, Owner: SYSDBA */
9735
9736	<	CREATE TABLE PROJECT
9736	>	CREATE TABLE PROJECT
9737		(
9738		PROJ_ID PROJNO NOT NULL,
9739		PROJ_NAME VARCHAR(20) NOT NULL,
#	Line 9603 \| Line 9746 \| PRIMARY KEY (PROJ_ID)
9746
9747		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
9748
9749	<	CREATE TABLE PROJ_DEPT_BUDGET
9749	>	CREATE TABLE PROJ_DEPT_BUDGET
9750		(
9751		FISCAL_YEAR INTEGER NOT NULL,
9752		PROJ_ID PROJNO NOT NULL,
#	Line 9615 \| Line 9758 \| PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
9758
9759		/* Table: SALARY_HISTORY, Owner: SYSDBA */
9760
9761	<	CREATE TABLE SALARY_HISTORY
9761	>	CREATE TABLE SALARY_HISTORY
9762		(
9763		EMP_NO EMPNO NOT NULL,
9764		CHANGE_DATE TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 9628 \| Line 9771 \| PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
9771
9772		/* Table: SALES, Owner: SYSDBA */
9773
9774	<	CREATE TABLE SALES
9774	>	CREATE TABLE SALES
9775		(
9776		PO_NUMBER PONUMBER NOT NULL,
9777		CUST_NO CUSTNO NOT NULL,
#	Line 9639 \| Line 9782 \| CREATE TABLE SALES
9782		DATE_NEEDED TIMESTAMP,
9783		PAID CHAR(1) DEFAULT 'n',
9784		QTY_ORDERED INTEGER DEFAULT 1 NOT NULL,
9785	<	TOTAL_VALUE DECIMAL(9, 2) NOT NULL,
9785	>	TOTAL_VALUE DECIMAL(9,2) NOT NULL,
9786		DISCOUNT FLOAT DEFAULT 0 NOT NULL,
9787		ITEM_TYPE PRODTYPE,
9788		AGED COMPUTED BY (ship_date - order_date),
#	Line 9652 \| Line 9795 \| DECLARE EXTERNAL FUNCTION ADDDAY
9795		TIMESTAMP, INTEGER
9796		RETURNS TIMESTAMP
9797		ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
9655	–
9798		;
9799
9800
9801		DECLARE EXTERNAL FUNCTION I64TRUNCATE
9802	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
9802	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
9803		RETURNS PARAMETER 2
9804		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
9663	–
9805		;
9806
9807
#	Line 9668 \| Line 9809 \| DECLARE EXTERNAL FUNCTION TESTIT
9809		TIMESTAMP, INTEGER NULL, CSTRING(10) CHARACTER SET NONE, CSTRING(10) CHARACTER SET NONE BY DESCRIPTOR
9810		RETURNS CSTRING(32) CHARACTER SET NONE FREE_IT
9811		ENTRY_POINT 'testit' MODULE_NAME 'fbudf'
9671	–
9812		;
9813
9814
#	Line 10401 \| Line 10541 \| ALTER TABLE SALES ADD FOREIGN KEY (CUST_
10541		ALTER TABLE SALES ADD FOREIGN KEY (SALES_REP) REFERENCES EMPLOYEE (EMP_NO);
10542
10543		CREATE SEQUENCE CUST_NO_GEN;
10544	<	ALTER SEQUENCE CUST_NO_GEN RESTART WITH 1015;
10544	>	ALTER SEQUENCE CUST_NO_GEN RESTART WITH 1016;
10545		CREATE SEQUENCE EMP_NO_GEN;
10546	<	ALTER SEQUENCE EMP_NO_GEN RESTART WITH 157;
10546	>	ALTER SEQUENCE EMP_NO_GEN RESTART WITH 158;
10547		CREATE SEQUENCE FB$OUT_SEQ;
10548	<	ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 0;
10548	>	ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1;
10549
10550		/* View: DEPTLIST, Owner: SYSDBA */
10551
10552		CREATE VIEW DEPTLIST (
10553	<	EMP_NO,
10554	<	FIRST_NAME,
10555	<	LAST_NAME,
10556	<	PHONE_EXT,
10557	<	HIRE_DATE,
10558	<	DEPT_NO,
10559	<	JOB_CODE,
10560	<	JOB_GRADE,
10561	<	JOB_COUNTRY,
10562	<	SALARY,
10563	<	FULL_NAME,
10564	<	DEPT_PATH,
10565	<	DEPT_KEY_PATH,
10553	>	EMP_NO,
10554	>	FIRST_NAME,
10555	>	LAST_NAME,
10556	>	PHONE_EXT,
10557	>	HIRE_DATE,
10558	>	DEPT_NO,
10559	>	JOB_CODE,
10560	>	JOB_GRADE,
10561	>	JOB_COUNTRY,
10562	>	SALARY,
10563	>	FULL_NAME,
10564	>	DEPT_PATH,
10565	>	DEPT_KEY_PATH,
10566		"Payment Status"
10567		) AS
10568		with recursive Depts As (
#	Line 10438 \| Line 10578 \| JOIN Depts On D.HEAD_DEPT = Depts.DEPT_N
10578
10579		Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,
10580		A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH,
10581	<	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
10581	>	CASE When A.SALARY > 10000 then 'higher paid' else 'lower paid' End
10582		From EMPLOYEE A
10583		JOIN Depts D On D.DEPT_NO = A.DEPT_NO
10584		;
#	Line 10446 \| Line 10586 \| JOIN Depts D On D.DEPT_NO = A.DEPT_NO
10586		/* View: PHONE_LIST, Owner: SYSDBA */
10587
10588		CREATE VIEW PHONE_LIST (
10589	<	EMP_NO,
10590	<	FIRST_NAME,
10591	<	LAST_NAME,
10592	<	PHONE_EXT,
10593	<	LOCATION,
10589	>	EMP_NO,
10590	>	FIRST_NAME,
10591	>	LAST_NAME,
10592	>	PHONE_EXT,
10593	>	LOCATION,
10594		PHONE_NO
10595		) AS
10596		SELECT
#	Line 10552 \| Line 10692 \| CREATE EXCEPTION REASSIGN_SALES 'Reassig
10692		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
10693		COMMIT WORK;
10694		SET AUTODDL OFF;
10695	<	SET TERM ^ ;
10695	>	SET TERM ^;
10696
10697		/* Package Definitions */
10698
10699	<	CREATE PACKAGE FB$OUT
10699	>	CREATE PACKAGE FB$OUT
10700		AS
10561	–
10701		begin
10702		procedure enable;
10703		procedure disable;
#	Line 10568 \| Line 10707 \| begin
10707
10708		procedure get_lines returns (lines fb$out_type);
10709		end
10710	<	^
10710	>	^
10711
10712	<	CREATE PACKAGE SELECT$TEST
10712	>	CREATE PACKAGE SELECT$TEST
10713		AS
10575	–
10714		Begin
10715		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer);
10716		End
10717	<	^
10717	>	^
10718
10719	<	SET TERM ; ^
10719	>	SET TERM ;^
10720		COMMIT WORK;
10721		SET AUTODDL ON;
10722		COMMIT WORK;
10723		SET AUTODDL OFF;
10724	<	SET TERM ^ ;
10724	>	SET TERM ^;
10725
10726		/* Stored procedures Definitions*/
10727
#	Line 10599 \| Line 10737 \| RETURNS
10737		)
10738		AS
10739		BEGIN SUSPEND; EXIT; END
10602	–
10740		^
10741	+
10742		CREATE PROCEDURE ADD_EMP_PROJ
10743		(
10744		EMP_NO SMALLINT,
#	Line 10608 \| Line 10746 \| CREATE PROCEDURE ADD_EMP_PROJ
10746		)
10747		AS
10748		BEGIN EXIT; END
10611	–
10749		^
10750	+
10751		CREATE PROCEDURE ALL_LANGS
10752		RETURNS
10753		(
#	Line 10620 \| Line 10758 \| RETURNS
10758		)
10759		AS
10760		BEGIN SUSPEND; EXIT; END
10623	–
10761		^
10762	+
10763		CREATE PROCEDURE DELETE_EMPLOYEE
10764		(
10765		EMP_NUM INTEGER
10766		)
10767		AS
10768		BEGIN EXIT; END
10631	–
10769		^
10770	+
10771		CREATE PROCEDURE DEPT_BUDGET
10772		(
10773		DNO CHAR(3) CHARACTER SET NONE
10774		)
10775		RETURNS
10776		(
10777	<	TOT DECIMAL(12, 2)
10777	>	TOT DECIMAL(12,2)
10778		)
10779		AS
10780		BEGIN SUSPEND; EXIT; END
10643	–
10781		^
10782	+
10783		CREATE PROCEDURE EMPLOYEE_PAY_STATUS
10784		(
10785		EMP_NUM SMALLINT
#	Line 10649 \| Line 10787 \| CREATE PROCEDURE EMPLOYEE_PAY_STATUS
10787		RETURNS
10788		(
10789		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
10790	<	SALARY NUMERIC(10, 2)
10790	>	SALARY NUMERIC(10,2)
10791		)
10792		AS
10793		BEGIN EXIT; END
10656	–
10794		^
10795	+
10796		CREATE PROCEDURE GET_EMP_PROJ
10797		(
10798		EMP_NO SMALLINT
#	Line 10665 \| Line 10803 \| RETURNS
10803		)
10804		AS
10805		BEGIN SUSPEND; EXIT; END
10668	–
10806		^
10807	+
10808		CREATE PROCEDURE "Has Space"
10809		(
10810		ARG1 INTEGER
10811		)
10812		AS
10813		BEGIN EXIT; END
10676	–
10814		^
10815	+
10816		CREATE PROCEDURE MAIL_LABEL
10817		(
10818		CUST_NO INTEGER
#	Line 10690 \| Line 10828 \| RETURNS
10828		)
10829		AS
10830		BEGIN SUSPEND; EXIT; END
10693	–
10831		^
10832	+
10833		CREATE PROCEDURE ORG_CHART
10834		RETURNS
10835		(
#	Line 10703 \| Line 10841 \| RETURNS
10841		)
10842		AS
10843		BEGIN SUSPEND; EXIT; END
10706	–
10844		^
10845	+
10846		CREATE PROCEDURE SHIP_ORDER
10847		(
10848		PO_NUM CHAR(8) CHARACTER SET NONE
10849		)
10850		AS
10851		BEGIN EXIT; END
10714	–
10852		^
10853	+
10854		CREATE PROCEDURE SUB_TOT_BUDGET
10855		(
10856		HEAD_DEPT CHAR(3) CHARACTER SET NONE
10857		)
10858		RETURNS
10859		(
10860	<	TOT_BUDGET DECIMAL(12, 2),
10861	<	AVG_BUDGET DECIMAL(12, 2),
10862	<	MIN_BUDGET DECIMAL(12, 2),
10863	<	MAX_BUDGET DECIMAL(12, 2)
10860	>	TOT_BUDGET DECIMAL(12,2),
10861	>	AVG_BUDGET DECIMAL(12,2),
10862	>	MIN_BUDGET DECIMAL(12,2),
10863	>	MAX_BUDGET DECIMAL(12,2)
10864		)
10865		AS
10866		BEGIN SUSPEND; EXIT; END
10729	–
10867		^
10868	+
10869		CREATE PROCEDURE "UC SPACE"
10870		(
10871		ARG1 INTEGER
10872		)
10873		AS
10874		BEGIN EXIT; END
10737	–
10875		^
10876	+
10877		CREATE PROCEDURE "iCASE"
10878		AS
10879		BEGIN EXIT; END
10742	–
10880		^
10881	<	SET TERM ; ^
10881	>
10882	>	SET TERM ;^
10883		COMMIT WORK;
10884		SET AUTODDL ON;
10885		COMMIT WORK;
10886		SET AUTODDL OFF;
10887	<	SET TERM ^ ;
10887	>	SET TERM ^;
10888
10889		/* Stored Function declarations */
10890
10891		CREATE FUNCTION F (X INTEGER)
10892		RETURNS INTEGER
10893		AS BEGIN END
10756	–
10894		^
10895
10896	<
10760	<	SET TERM ; ^
10896	>	SET TERM ;^
10897		COMMIT WORK;
10898		SET AUTODDL ON;
10899	<	SET TERM ^ ;
10899	>	SET TERM ^;
10900
10901
10902		/* Triggers only will work for SQL triggers */
#	Line 10770 \| Line 10906 \| ACTIVE ON CONNECT POSITION 0
10906		as
10907		begin
10908		End
10909	<	^
10909	>	^
10910	>
10911		CREATE TRIGGER "BEFORE CREATE TABLE"
10912		ACTIVE BEFORE CREATE TABLE POSITION 0
10913		AS BEGIN END
10914	<	^
10914	>	^
10915	>
10916		CREATE TRIGGER "AFTER CREATE TABLE"
10917		ACTIVE AFTER CREATE TABLE POSITION 0
10918		AS BEGIN END
10919	<	^
10919	>	^
10920	>
10921		CREATE TRIGGER "BEFORE ALTER TABLE"
10922		ACTIVE BEFORE ALTER TABLE POSITION 0
10923		AS BEGIN END
10924	<	^
10924	>	^
10925	>
10926		CREATE TRIGGER "AFTER ALTER TABLE"
10927		ACTIVE AFTER ALTER TABLE POSITION 0
10928		AS BEGIN END
10929	<	^
10929	>	^
10930	>
10931		CREATE TRIGGER "AFTER CREATE/Alter TABLE"
10932		ACTIVE AFTER CREATE TABLE OR ALTER TABLE POSITION 0
10933		AS BEGIN END
10934	<	^
10934	>	^
10935	>
10936		CREATE TRIGGER "BEFORE DROP TABLE"
10937		ACTIVE BEFORE Drop TABLE POSITION 0
10938		AS BEGIN END
10939	<	^
10939	>	^
10940	>
10941		CREATE TRIGGER "AFTER DROP TABLE"
10942		ACTIVE AFTER Drop TABLE POSITION 0
10943		AS BEGIN END
10944	<	^
10944	>	^
10945	>
10946		CREATE TRIGGER "BEFORE CREATE PROCEDURE"
10947		ACTIVE BEFORE CREATE PROCEDURE POSITION 0
10948		AS BEGIN END
10949	<	^
10949	>	^
10950	>
10951		CREATE TRIGGER "AFTER CREATE PROCEDURE"
10952		ACTIVE AFTER CREATE PROCEDURE POSITION 0
10953		AS BEGIN END
10954	<	^
10954	>	^
10955	>
10956		CREATE TRIGGER "BEFORE ALTER PROCEDURE"
10957		ACTIVE BEFORE ALTER PROCEDURE POSITION 0
10958		AS BEGIN END
10959	<	^
10959	>	^
10960	>
10961		CREATE TRIGGER "AFTER ALTER PROCEDURE"
10962		ACTIVE AFTER ALTER PROCEDURE POSITION 0
10963		AS BEGIN END
10964	<	^
10964	>	^
10965	>
10966		CREATE TRIGGER "BEFORE DROP PROCEDURE"
10967		ACTIVE BEFORE Drop PROCEDURE POSITION 0
10968		AS BEGIN END
10969	<	^
10969	>	^
10970	>
10971		CREATE TRIGGER "AFTER DROP PROCEDURE"
10972		ACTIVE AFTER Drop PROCEDURE POSITION 0
10973		AS BEGIN END
10974	<	^
10974	>	^
10975	>
10976		CREATE TRIGGER "BEFORE CREATE FUNCTION"
10977		ACTIVE BEFORE CREATE FUNCTION POSITION 0
10978		AS BEGIN END
10979	<	^
10979	>	^
10980	>
10981		CREATE TRIGGER "AFTER CREATE FUNCTION"
10982		ACTIVE AFTER CREATE FUNCTION POSITION 0
10983		AS BEGIN END
10984	<	^
10984	>	^
10985	>
10986		CREATE TRIGGER "BEFORE ALTER FUNCTION"
10987		ACTIVE BEFORE ALTER FUNCTION POSITION 0
10988		AS BEGIN END
10989	<	^
10989	>	^
10990	>
10991		CREATE TRIGGER "AFTER ALTER FUNCTION"
10992		ACTIVE AFTER ALTER FUNCTION POSITION 0
10993		AS BEGIN END
10994	<	^
10994	>	^
10995	>
10996		CREATE TRIGGER "BEFORE DROP FUNCTION"
10997		ACTIVE BEFORE Drop FUNCTION POSITION 0
10998		AS BEGIN END
10999	<	^
10999	>	^
11000	>
11001		CREATE TRIGGER "AFTER DROP FUNCTION"
11002		ACTIVE AFTER Drop FUNCTION POSITION 0
11003		AS BEGIN END
11004	<	^
11004	>	^
11005	>
11006		CREATE TRIGGER "BEFORE CREATE TRIGGER"
11007		ACTIVE BEFORE CREATE TRIGGER POSITION 0
11008		AS BEGIN END
11009	<	^
11009	>	^
11010	>
11011		CREATE TRIGGER "AFTER CREATE TRIGGER"
11012		ACTIVE AFTER CREATE TRIGGER POSITION 0
11013		AS BEGIN END
11014	<	^
11014	>	^
11015	>
11016		CREATE TRIGGER "BEFORE ALTER TRIGGER"
11017		ACTIVE BEFORE ALTER TRIGGER POSITION 0
11018		AS BEGIN END
11019	<	^
11019	>	^
11020	>
11021		CREATE TRIGGER "AFTER ALTER TRIGGER"
11022		ACTIVE AFTER ALTER TRIGGER POSITION 0
11023		AS BEGIN END
11024	<	^
11024	>	^
11025	>
11026		CREATE TRIGGER "BEFORE DROP TRIGGER"
11027		ACTIVE BEFORE Drop TRIGGER POSITION 0
11028		AS BEGIN END
11029	<	^
11029	>	^
11030	>
11031		CREATE TRIGGER "AFTER DROP TRIGGER"
11032		ACTIVE AFTER Drop TRIGGER POSITION 0
11033		AS BEGIN END
11034	<	^
11034	>	^
11035	>
11036		CREATE TRIGGER "BEFORE CREATE EXCEPTION"
11037		ACTIVE BEFORE CREATE EXCEPTION POSITION 0
11038		AS BEGIN END
11039	<	^
11039	>	^
11040	>
11041		CREATE TRIGGER "AFTER CREATE EXCEPTION"
11042		ACTIVE AFTER CREATE EXCEPTION POSITION 0
11043		AS BEGIN END
11044	<	^
11044	>	^
11045	>
11046		CREATE TRIGGER "BEFORE ALTER EXCEPTION"
11047		ACTIVE BEFORE ALTER EXCEPTION POSITION 0
11048		AS BEGIN END
11049	<	^
11049	>	^
11050	>
11051		CREATE TRIGGER "AFTER ALTER EXCEPTION"
11052		ACTIVE AFTER ALTER EXCEPTION POSITION 0
11053		AS BEGIN END
11054	<	^
11054	>	^
11055	>
11056		CREATE TRIGGER "BEFORE DROP EXCEPTION"
11057		ACTIVE BEFORE Drop EXCEPTION POSITION 0
11058		AS BEGIN END
11059	<	^
11059	>	^
11060	>
11061		CREATE TRIGGER "AFTER DROP EXCEPTION"
11062		ACTIVE AFTER Drop EXCEPTION POSITION 0
11063		AS BEGIN END
11064	<	^
11064	>	^
11065	>
11066		CREATE TRIGGER "BEFORE CREATE VIEW"
11067		ACTIVE BEFORE CREATE VIEW POSITION 0
11068		AS BEGIN END
11069	<	^
11069	>	^
11070	>
11071		CREATE TRIGGER "AFTER CREATE VIEW"
11072		ACTIVE AFTER CREATE VIEW POSITION 0
11073		AS BEGIN END
11074	<	^
11074	>	^
11075	>
11076		CREATE TRIGGER "BEFORE ALTER VIEW"
11077		ACTIVE BEFORE ALTER VIEW POSITION 0
11078		AS BEGIN END
11079	<	^
11079	>	^
11080	>
11081		CREATE TRIGGER "AFTER ALTER VIEW"
11082		ACTIVE AFTER ALTER VIEW POSITION 0
11083		AS BEGIN END
11084	<	^
11084	>	^
11085	>
11086		CREATE TRIGGER "BEFORE DROP VIEW"
11087		ACTIVE BEFORE Drop VIEW POSITION 0
11088		AS BEGIN END
11089	<	^
11089	>	^
11090	>
11091		CREATE TRIGGER "AFTER DROP VIEW"
11092		ACTIVE AFTER Drop VIEW POSITION 0
11093		AS BEGIN END
11094	<	^
11094	>	^
11095	>
11096		CREATE TRIGGER "BEFORE CREATE DOMAIN"
11097		ACTIVE BEFORE CREATE DOMAIN POSITION 0
11098		AS BEGIN END
11099	<	^
11099	>	^
11100	>
11101		CREATE TRIGGER "AFTER CREATE DOMAIN"
11102		ACTIVE AFTER CREATE DOMAIN POSITION 0
11103		AS BEGIN END
11104	<	^
11104	>	^
11105	>
11106		CREATE TRIGGER "BEFORE ALTER DOMAIN"
11107		ACTIVE BEFORE ALTER DOMAIN POSITION 0
11108		AS BEGIN END
11109	<	^
11109	>	^
11110	>
11111		CREATE TRIGGER "AFTER ALTER DOMAIN"
11112		ACTIVE AFTER ALTER DOMAIN POSITION 0
11113		AS BEGIN END
11114	<	^
11114	>	^
11115	>
11116		CREATE TRIGGER "BEFORE DROP DOMAIN"
11117		ACTIVE BEFORE Drop DOMAIN POSITION 0
11118		AS BEGIN END
11119	<	^
11119	>	^
11120	>
11121		CREATE TRIGGER "AFTER DROP DOMAIN"
11122		ACTIVE AFTER Drop DOMAIN POSITION 0
11123		AS BEGIN END
11124	<	^
11124	>	^
11125	>
11126		CREATE TRIGGER "BEFORE CREATE ROLE"
11127		ACTIVE BEFORE CREATE ROLE POSITION 0
11128		AS BEGIN END
11129	<	^
11129	>	^
11130	>
11131		CREATE TRIGGER "AFTER CREATE ROLE"
11132		ACTIVE AFTER CREATE ROLE POSITION 0
11133		AS BEGIN END
11134	<	^
11134	>	^
11135	>
11136		CREATE TRIGGER "BEFORE ALTER ROLE"
11137		ACTIVE BEFORE ALTER ROLE POSITION 0
11138		AS BEGIN END
11139	<	^
11139	>	^
11140	>
11141		CREATE TRIGGER "AFTER ALTER ROLE"
11142		ACTIVE AFTER ALTER ROLE POSITION 0
11143		AS BEGIN END
11144	<	^
11144	>	^
11145	>
11146		CREATE TRIGGER "BEFORE DROP ROLE"
11147		ACTIVE BEFORE Drop ROLE POSITION 0
11148		AS BEGIN END
11149	<	^
11149	>	^
11150	>
11151		CREATE TRIGGER "AFTER DROP ROLE"
11152		ACTIVE AFTER Drop ROLE POSITION 0
11153		AS BEGIN END
11154	<	^
11154	>	^
11155	>
11156		CREATE TRIGGER "BEFORE CREATE INDEX"
11157		ACTIVE BEFORE CREATE INDEX POSITION 0
11158		AS BEGIN END
11159	<	^
11159	>	^
11160	>
11161		CREATE TRIGGER "AFTER CREATE INDEX"
11162		ACTIVE AFTER CREATE INDEX POSITION 0
11163		AS BEGIN END
11164	<	^
11164	>	^
11165	>
11166		CREATE TRIGGER "BEFORE ALTER INDEX"
11167		ACTIVE BEFORE ALTER INDEX POSITION 0
11168		AS BEGIN END
11169	<	^
11169	>	^
11170	>
11171		CREATE TRIGGER "AFTER ALTER INDEX"
11172		ACTIVE AFTER ALTER INDEX POSITION 0
11173		AS BEGIN END
11174	<	^
11174	>	^
11175	>
11176		CREATE TRIGGER "BEFORE DROP INDEX"
11177		ACTIVE BEFORE Drop INDEX POSITION 0
11178		AS BEGIN END
11179	<	^
11179	>	^
11180	>
11181		CREATE TRIGGER "AFTER DROP INDEX"
11182		ACTIVE AFTER Drop INDEX POSITION 0
11183		AS BEGIN END
11184	<	^
11184	>	^
11185	>
11186		CREATE TRIGGER "BEFORE CREATE SEQUENCE"
11187		ACTIVE BEFORE CREATE SEQUENCE POSITION 0
11188		AS BEGIN END
11189	<	^
11189	>	^
11190	>
11191		CREATE TRIGGER "AFTER CREATE SEQUENCE"
11192		ACTIVE AFTER CREATE SEQUENCE POSITION 0
11193		AS BEGIN END
11194	<	^
11194	>	^
11195	>
11196		CREATE TRIGGER "BEFORE ALTER SEQUENCE"
11197		ACTIVE BEFORE ALTER SEQUENCE POSITION 0
11198		AS BEGIN END
11199	<	^
11199	>	^
11200	>
11201		CREATE TRIGGER "AFTER ALTER SEQUENCE"
11202		ACTIVE AFTER ALTER SEQUENCE POSITION 0
11203		AS BEGIN END
11204	<	^
11204	>	^
11205	>
11206		CREATE TRIGGER "BEFORE DROP SEQUENCE"
11207		ACTIVE BEFORE Drop SEQUENCE POSITION 0
11208		AS BEGIN END
11209	<	^
11209	>	^
11210	>
11211		CREATE TRIGGER "AFTER DROP SEQUENCE"
11212		ACTIVE AFTER Drop SEQUENCE POSITION 0
11213		AS BEGIN END
11214	<	^
11214	>	^
11215	>
11216		CREATE TRIGGER "BEFORE CREATE USER"
11217		ACTIVE BEFORE CREATE USER POSITION 0
11218		AS BEGIN END
11219	<	^
11219	>	^
11220	>
11221		CREATE TRIGGER "AFTER CREATE USER"
11222		ACTIVE AFTER CREATE USER POSITION 0
11223		AS BEGIN END
11224	<	^
11224	>	^
11225	>
11226		CREATE TRIGGER "BEFORE ALTER USER"
11227		ACTIVE BEFORE ALTER USER POSITION 0
11228		AS BEGIN END
11229	<	^
11229	>	^
11230	>
11231		CREATE TRIGGER "AFTER ALTER USER"
11232		ACTIVE AFTER ALTER USER POSITION 0
11233		AS BEGIN END
11234	<	^
11234	>	^
11235	>
11236		CREATE TRIGGER "BEFORE DROP USER"
11237		ACTIVE BEFORE Drop USER POSITION 0
11238		AS BEGIN END
11239	<	^
11239	>	^
11240	>
11241		CREATE TRIGGER "AFTER DROP USER"
11242		ACTIVE AFTER Drop USER POSITION 0
11243		AS BEGIN END
11244	<	^
11244	>	^
11245	>
11246		CREATE TRIGGER "BEFORE CREATE COLLATION"
11247		ACTIVE BEFORE CREATE COLLATION POSITION 0
11248		AS BEGIN END
11249	<	^
11249	>	^
11250	>
11251		CREATE TRIGGER "AFTER CREATE COLLATION"
11252		ACTIVE AFTER CREATE COLLATION POSITION 0
11253		AS BEGIN END
11254	<	^
11254	>	^
11255	>
11256		CREATE TRIGGER "BEFORE DROP COLLATION"
11257		ACTIVE BEFORE Drop COLLATION POSITION 0
11258		AS BEGIN END
11259	<	^
11259	>	^
11260	>
11261		CREATE TRIGGER "AFTER DROP COLLATION"
11262		ACTIVE AFTER Drop COLLATION POSITION 0
11263		AS BEGIN END
11264	<	^
11264	>	^
11265	>
11266		CREATE TRIGGER "BEFORE ALTER CHARACTER SET"
11267		ACTIVE BEFORE ALTER CHARACTER SET POSITION 0
11268		AS BEGIN END
11269	<	^
11269	>	^
11270	>
11271		CREATE TRIGGER "AFTER ALTER CHARACTER SET"
11272		ACTIVE AFTER ALTER CHARACTER SET POSITION 0
11273		AS BEGIN END
11274	<	^
11274	>	^
11275	>
11276		CREATE TRIGGER "BEFORE CREATE PACKAGE"
11277		ACTIVE BEFORE CREATE PACKAGE POSITION 0
11278		AS BEGIN END
11279	<	^
11279	>	^
11280	>
11281		CREATE TRIGGER "AFTER CREATE PACKAGE"
11282		ACTIVE AFTER CREATE PACKAGE POSITION 0
11283		AS BEGIN END
11284	<	^
11284	>	^
11285	>
11286		CREATE TRIGGER "BEFORE ALTER PACKAGE"
11287		ACTIVE BEFORE ALTER PACKAGE POSITION 0
11288		AS BEGIN END
11289	<	^
11289	>	^
11290	>
11291		CREATE TRIGGER "AFTER ALTER PACKAGE"
11292		ACTIVE AFTER ALTER PACKAGE POSITION 0
11293		AS BEGIN END
11294	<	^
11294	>	^
11295	>
11296		CREATE TRIGGER "BEFORE DROP PACKAGE"
11297		ACTIVE BEFORE Drop PACKAGE POSITION 0
11298		AS BEGIN END
11299	<	^
11299	>	^
11300	>
11301		CREATE TRIGGER "AFTER DROP PACKAGE"
11302		ACTIVE AFTER Drop PACKAGE POSITION 0
11303		AS BEGIN END
11304	<	^
11304	>	^
11305	>
11306		CREATE TRIGGER "BEFORE CREATE PACKAGE BODY"
11307		ACTIVE BEFORE CREATE PACKAGE BODY POSITION 0
11308		AS BEGIN END
11309	<	^
11309	>	^
11310	>
11311		CREATE TRIGGER "AFTER CREATE PACKAGE BODY"
11312		ACTIVE AFTER CREATE PACKAGE BODY POSITION 0
11313		AS BEGIN END
11314	<	^
11314	>	^
11315	>
11316		CREATE TRIGGER "BEFORE DROP PACKAGE BODY"
11317		ACTIVE BEFORE Drop PACKAGE BODY POSITION 0
11318		AS BEGIN END
11319	<	^
11319	>	^
11320	>
11321		CREATE TRIGGER "AFTER DROP PACKAGE BODY"
11322		ACTIVE AFTER Drop PACKAGE BODY POSITION 0
11323		AS BEGIN END
11324	<	^
11324	>	^
11325	>
11326		CREATE TRIGGER "BEFORE ANY DDL STATEMENT"
11327		ACTIVE BEFORE ANY DDL STATEMENT POSITION 0
11328		AS BEGIN END
11329	<	^
11329	>	^
11330	>
11331		CREATE TRIGGER "AFTER ANY DDL STATEMENT"
11332		ACTIVE AFTER ANY DDL STATEMENT POSITION 0
11333		AS BEGIN END
11334	<	^
11334	>	^
11335	>
11336		CREATE TRIGGER SET_CUST_NO FOR CUSTOMER
11337		ACTIVE BEFORE INSERT POSITION 0
11338		AS
#	Line 11118 \| Line 11340 \| BEGIN
11340		if (new.cust_no is null) then
11341		new.cust_no = gen_id(cust_no_gen, 1);
11342		END
11343	<	^
11343	>	^
11344	>
11345		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
11346		ACTIVE BEFORE INSERT POSITION 0
11347		AS
#	Line 11126 \| Line 11349 \| BEGIN
11349		if (new.emp_no is null) then
11350		new.emp_no = gen_id(emp_no_gen, 1);
11351		END
11352	<	^
11352	>	^
11353	>
11354		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
11355		ACTIVE AFTER UPDATE POSITION 0
11356		AS
#	Line 11141 \| Line 11365 \| BEGIN
11365		old.salary,
11366		(new.salary - old.salary) * 100 / old.salary);
11367		END
11368	<	^
11368	>	^
11369	>
11370		CREATE TRIGGER POST_NEW_ORDER FOR SALES
11371		ACTIVE AFTER INSERT POSITION 0
11372		AS
11373		BEGIN
11374		POST_EVENT 'new_order';
11375		END
11376	<	^
11377	<	COMMIT WORK ^
11376	>	^
11377	>
11378	>	COMMIT WORK^
11379		SET TERM ;^
11380		COMMIT WORK;
11381		SET AUTODDL OFF;
11382	<	SET TERM ^ ;
11382	>	SET TERM ^;
11383
11384		/* Package Definitions */
11385
11386	<	CREATE PACKAGE BODY FB$OUT
11386	>	CREATE PACKAGE BODY FB$OUT
11387		AS
11162	–
11388		begin
11389		procedure enable
11390		as
#	Line 11214 \| Line 11439 \| begin
11439		execute procedure clear;
11440		end
11441		end
11442	<	^
11442	>	^
11443
11444	<	CREATE PACKAGE BODY SELECT$TEST
11444	>	CREATE PACKAGE BODY SELECT$TEST
11445		AS
11221	–
11446		Begin
11447		Procedure ShowItems(IPARAM Integer) RETURNS (OutParam integer)
11448		As
#	Line 11226 \| Line 11450 \| Begin
11450		SUSPEND;
11451		End
11452		End
11453	<	^
11453	>	^
11454
11455	<	SET TERM ; ^
11455	>	SET TERM ;^
11456		COMMIT WORK;
11457		SET AUTODDL ON;
11458		COMMIT WORK;
11459		SET AUTODDL OFF;
11460	<	SET TERM ^ ;
11460	>	SET TERM ^;
11461
11462		/* Stored procedure Bodies */
11463
11240	–
11464		ALTER PROCEDURE SHOW_LANGS
11465		(
11466		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 11259 \| Line 11482 \| BEGIN
11482		AND (language_req IS NOT NULL))
11483		INTO :languages;
11484		IF (languages = ' ') THEN /* Prints 'NULL' instead of blanks */
11485	<	languages = 'NULL';
11485	>	languages = 'NULL';
11486		i = i +1;
11487		SUSPEND;
11488		END
#	Line 11291 \| Line 11514 \| RETURNS
11514		)
11515		AS
11516		BEGIN
11517	<	FOR SELECT job_code, job_grade, job_country FROM job
11517	>	FOR SELECT job_code, job_grade, job_country FROM job
11518		INTO :code, :grade, :country
11519
11520		DO
11521		BEGIN
11522	<	FOR SELECT languages FROM show_langs
11522	>	FOR SELECT languages FROM show_langs
11523		(:code, :grade, :country) INTO :lang DO
11524		SUSPEND;
11525		/* Put nice separators between rows */
#	Line 11374 \| Line 11597 \| ALTER PROCEDURE DEPT_BUDGET
11597		)
11598		RETURNS
11599		(
11600	<	TOT DECIMAL(12, 2)
11600	>	TOT DECIMAL(12,2)
11601		)
11602		AS
11603	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
11603	>	DECLARE VARIABLE sumb DECIMAL(12,2);
11604		DECLARE VARIABLE rdno CHAR(3);
11605		DECLARE VARIABLE cnt INTEGER;
11606		BEGIN
#	Line 11411 \| Line 11634 \| ALTER PROCEDURE EMPLOYEE_PAY_STATUS
11634		RETURNS
11635		(
11636		PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
11637	<	SALARY NUMERIC(10, 2)
11637	>	SALARY NUMERIC(10,2)
11638		)
11639		AS
11640	<	BEGIN
11641	<	Select SALARY, Case
11642	<	When SALARY > 10000 and SALARY <= 100000 then 'higher'
11643	<	When SALARY > 100000 then 'gross'
11644	<	else 'lower' End
11645	<	From employee
11646	<	WHERE emp_no = :EMP_NUM
11640	>	Declare aCursor CURSOR FOR (
11641	>	Select EMP_NO,SALARY From EMPLOYEE WHERE LAST_NAME = 'unknown');
11642	>	BEGIN
11643	>	Select SALARY, Case
11644	>	When SALARY > 10000 and SALARY <= 100000 then 'higher'
11645	>	When SALARY > 100000 then 'gross'
11646	>	else 'lower' End
11647	>	From employee
11648	>	WHERE emp_no = :EMP_NUM
11649		into :SALARY, :PAY_STATUS;
11650		END
11651		^
#	Line 11629 \| Line 11854 \| ALTER PROCEDURE SUB_TOT_BUDGET
11854		)
11855		RETURNS
11856		(
11857	<	TOT_BUDGET DECIMAL(12, 2),
11858	<	AVG_BUDGET DECIMAL(12, 2),
11859	<	MIN_BUDGET DECIMAL(12, 2),
11860	<	MAX_BUDGET DECIMAL(12, 2)
11857	>	TOT_BUDGET DECIMAL(12,2),
11858	>	AVG_BUDGET DECIMAL(12,2),
11859	>	MIN_BUDGET DECIMAL(12,2),
11860	>	MAX_BUDGET DECIMAL(12,2)
11861		)
11862		AS
11863		BEGIN
#	Line 11656 \| Line 11881 \| ALTER PROCEDURE "iCASE"
11881		AS
11882		Begin End
11883		^
11884	<	SET TERM ; ^
11884	>
11885	>	SET TERM ;^
11886		COMMIT WORK;
11887		SET AUTODDL ON;
11888		COMMIT WORK;
11889		SET AUTODDL OFF;
11890	<	SET TERM ^ ;
11890	>	SET TERM ^;
11891
11892		/* Stored Function Body */
11893
11894		ALTER FUNCTION F (X INTEGER)
11895		RETURNS INTEGER
11896	<	AS
11896	>	AS
11897		BEGIN
11898		RETURN X+1;
11899		END
11900		^
11901
11902	<
11677	<	SET TERM ; ^
11902	>	SET TERM ;^
11903		COMMIT WORK;
11904		SET AUTODDL ON;
11905
#	Line 11747 \| Line 11972 \| Output from diff command
11972		---
11973		> /* CREATE DATABASE 'inet://localhost//tmp/ibx-testsuite/testsuite1.fdb' PAGE_SIZE 8192
11974		6c6
11975	<	< DEFAULT CHARACTER SET NONE;
11975	>	< DEFAULT CHARACTER SET NONE;
11976		---
11977		> DEFAULT CHARACTER SET NONE; */
11978		127c127
11979		< "KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0) NOT NULL,
11980		---
11981		> "KEY" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0 INCREMENT BY 1) NOT NULL,
11982	<	969c969
11758	<	< ALTER SEQUENCE CUST_NO_GEN RESTART WITH 1016;
11759	<	---
11760	<	> ALTER SEQUENCE CUST_NO_GEN RESTART WITH 1015;
11761	<	971c971
11762	<	< ALTER SEQUENCE EMP_NO_GEN RESTART WITH 158;
11763	<	---
11764	<	> ALTER SEQUENCE EMP_NO_GEN RESTART WITH 157;
11765	<	973c973
11766	<	< ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1;
11767	<	---
11768	<	> ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 0;
11769	<	990c990
11770	<	< DEPT_KEY_PATH,
11771	<	---
11772	<	> DEPT_KEY_PATH,
11773	<	1136c1136
11774	<	< ^
11775	<	---
11776	<	> ^
11777	<	1144c1144
11778	<	< ^
11779	<	---
11780	<	> ^
11781	<	1146c1146
11782	<	< SET TERM ;^
11783	<	---
11784	<	> SET TERM ; ^
11785	<	1155c1155
11786	<	< CREATE PROCEDURE SHOW_LANGS
11787	<	---
11788	<	> CREATE PROCEDURE SHOW_LANGS
11789	<	1169,1170c1169
11790	<	<
11791	<	< CREATE PROCEDURE ADD_EMP_PROJ
11792	<	---
11793	<	> CREATE PROCEDURE ADD_EMP_PROJ
11794	<	1179,1180c1178
11795	<	<
11796	<	< CREATE PROCEDURE ALL_LANGS
11797	<	---
11798	<	> CREATE PROCEDURE ALL_LANGS
11799	<	1192,1193c1190
11800	<	<
11801	<	< CREATE PROCEDURE DELETE_EMPLOYEE
11802	<	---
11803	<	> CREATE PROCEDURE DELETE_EMPLOYEE
11804	<	1201,1202c1198
11805	<	<
11806	<	< CREATE PROCEDURE DEPT_BUDGET
11807	<	---
11808	<	> CREATE PROCEDURE DEPT_BUDGET
11809	<	1214d1209
11810	<	<
11811	<	1217c1212
11812	<	< EMP_NO SMALLINT
11813	<	---
11814	<	> EMP_NUM SMALLINT
11815	<	1221c1216,1217
11816	<	< PAY_STATUS VARCHAR(6) CHARACTER SET NONE
11817	<	---
11818	<	> PAY_STATUS VARCHAR(6) CHARACTER SET NONE,
11819	<	> SALARY NUMERIC(10, 2)
11820	<	1227,1229c1223
11821	<	<
11822	<	<
11823	<	< CREATE PROCEDURE GET_EMP_PROJ
11824	<	---
11825	<	> CREATE PROCEDURE GET_EMP_PROJ
11826	<	1241,1242c1235
11827	<	<
11828	<	< CREATE PROCEDURE "Has Space"
11829	<	---
11830	<	> CREATE PROCEDURE "Has Space"
11831	<	1250,1251c1243
11832	<	<
11833	<	< CREATE PROCEDURE MAIL_LABEL
11834	<	---
11835	<	> CREATE PROCEDURE MAIL_LABEL
11836	<	1268,1269c1260
11837	<	<
11838	<	< CREATE PROCEDURE ORG_CHART
11839	<	---
11840	<	> CREATE PROCEDURE ORG_CHART
11841	<	1282,1283c1273
11842	<	<
11843	<	< CREATE PROCEDURE SHIP_ORDER
11844	<	---
11845	<	> CREATE PROCEDURE SHIP_ORDER
11846	<	1291,1292c1281
11847	<	<
11848	<	< CREATE PROCEDURE SUB_TOT_BUDGET
11849	<	---
11850	<	> CREATE PROCEDURE SUB_TOT_BUDGET
11851	<	1307,1308c1296
11852	<	<
11853	<	< CREATE PROCEDURE "UC SPACE"
11854	<	---
11855	<	> CREATE PROCEDURE "UC SPACE"
11856	<	1316,1317c1304
11857	<	<
11858	<	< CREATE PROCEDURE "iCASE"
11859	<	---
11860	<	> CREATE PROCEDURE "iCASE"
11861	<	1322,1323c1309
11862	<	<
11863	<	< SET TERM ;^
11864	<	---
11865	<	> SET TERM ; ^
11866	<	1339c1325
11867	<	< SET TERM ;^
11868	<	---
11869	<	> SET TERM ; ^
11870	<	1352c1338
11871	<	< ^
11872	<	---
11873	<	> ^
11874	<	1356c1342
11875	<	< ^
11876	<	---
11877	<	> ^
11878	<	1360c1346
11879	<	< ^
11880	<	---
11881	<	> ^
11882	<	1364c1350
11883	<	< ^
11884	<	---
11885	<	> ^
11886	<	1368c1354
11887	<	< ^
11888	<	---
11889	<	> ^
11890	<	1372c1358
11891	<	< ^
11892	<	---
11893	<	> ^
11894	<	1376c1362
11895	<	< ^
11896	<	---
11897	<	> ^
11898	<	1380c1366
11899	<	< ^
11900	<	---
11901	<	> ^
11902	<	1384c1370
11903	<	< ^
11904	<	---
11905	<	> ^
11906	<	1388c1374
11907	<	< ^
11908	<	---
11909	<	> ^
11910	<	1392c1378
11911	<	< ^
11912	<	---
11913	<	> ^
11914	<	1396c1382
11915	<	< ^
11916	<	---
11917	<	> ^
11918	<	1400c1386
11919	<	< ^
11920	<	---
11921	<	> ^
11922	<	1404c1390
11923	<	< ^
11924	<	---
11925	<	> ^
11926	<	1408c1394
11927	<	< ^
11928	<	---
11929	<	> ^
11930	<	1412c1398
11931	<	< ^
11932	<	---
11933	<	> ^
11934	<	1416c1402
11935	<	< ^
11936	<	---
11937	<	> ^
11938	<	1420c1406
11939	<	< ^
11940	<	---
11941	<	> ^
11942	<	1424c1410
11943	<	< ^
11944	<	---
11945	<	> ^
11946	<	1428c1414
11947	<	< ^
11948	<	---
11949	<	> ^
11950	<	1432c1418
11951	<	< ^
11952	<	---
11953	<	> ^
11954	<	1436c1422
11955	<	< ^
11956	<	---
11957	<	> ^
11958	<	1440c1426
11959	<	< ^
11960	<	---
11961	<	> ^
11962	<	1444c1430
11963	<	< ^
11964	<	---
11965	<	> ^
11966	<	1448c1434
11967	<	< ^
11968	<	---
11969	<	> ^
11970	<	1452c1438
11971	<	< ^
11972	<	---
11973	<	> ^
11974	<	1456c1442
11975	<	< ^
11976	<	---
11977	<	> ^
11978	<	1460c1446
11979	<	< ^
11980	<	---
11981	<	> ^
11982	<	1464c1450
11983	<	< ^
11984	<	---
11985	<	> ^
11986	<	1468c1454
11987	<	< ^
11988	<	---
11989	<	> ^
11990	<	1472c1458
11991	<	< ^
11992	<	---
11993	<	> ^
11994	<	1476c1462
11995	<	< ^
11996	<	---
11997	<	> ^
11998	<	1480c1466
11999	<	< ^
12000	<	---
12001	<	> ^
12002	<	1484c1470
12003	<	< ^
12004	<	---
12005	<	> ^
12006	<	1488c1474
12007	<	< ^
12008	<	---
12009	<	> ^
12010	<	1492c1478
12011	<	< ^
12012	<	---
12013	<	> ^
12014	<	1496c1482
12015	<	< ^
12016	<	---
12017	<	> ^
12018	<	1500c1486
12019	<	< ^
12020	<	---
12021	<	> ^
12022	<	1504c1490
12023	<	< ^
12024	<	---
12025	<	> ^
12026	<	1508c1494
12027	<	< ^
12028	<	---
12029	<	> ^
12030	<	1512c1498
12031	<	< ^
12032	<	---
12033	<	> ^
12034	<	1516c1502
12035	<	< ^
12036	<	---
12037	<	> ^
12038	<	1520c1506
12039	<	< ^
12040	<	---
12041	<	> ^
12042	<	1524c1510
12043	<	< ^
12044	<	---
12045	<	> ^
12046	<	1528c1514
12047	<	< ^
12048	<	---
12049	<	> ^
12050	<	1532c1518
12051	<	< ^
12052	<	---
12053	<	> ^
12054	<	1536c1522
12055	<	< ^
12056	<	---
12057	<	> ^
12058	<	1540c1526
12059	<	< ^
12060	<	---
12061	<	> ^
12062	<	1544c1530
12063	<	< ^
12064	<	---
12065	<	> ^
12066	<	1548c1534
12067	<	< ^
12068	<	---
12069	<	> ^
12070	<	1552c1538
12071	<	< ^
12072	<	---
12073	<	> ^
12074	<	1556c1542
12075	<	< ^
12076	<	---
12077	<	> ^
12078	<	1560c1546
12079	<	< ^
12080	<	---
12081	<	> ^
12082	<	1564c1550
12083	<	< ^
12084	<	---
12085	<	> ^
12086	<	1568c1554
12087	<	< ^
12088	<	---
12089	<	> ^
12090	<	1572c1558
12091	<	< ^
12092	<	---
12093	<	> ^
12094	<	1576c1562
12095	<	< ^
12096	<	---
12097	<	> ^
12098	<	1580c1566
12099	<	< ^
12100	<	---
12101	<	> ^
12102	<	1584c1570
12103	<	< ^
12104	<	---
12105	<	> ^
12106	<	1588c1574
12107	<	< ^
12108	<	---
12109	<	> ^
12110	<	1592c1578
12111	<	< ^
12112	<	---
12113	<	> ^
12114	<	1596c1582
12115	<	< ^
12116	<	---
12117	<	> ^
12118	<	1600c1586
12119	<	< ^
12120	<	---
12121	<	> ^
12122	<	1604c1590
12123	<	< ^
12124	<	---
12125	<	> ^
12126	<	1608c1594
12127	<	< ^
12128	<	---
12129	<	> ^
12130	<	1612c1598
12131	<	< ^
12132	<	---
12133	<	> ^
12134	<	1616c1602
12135	<	< ^
12136	<	---
12137	<	> ^
12138	<	1620c1606
12139	<	< ^
12140	<	---
12141	<	> ^
12142	<	1624c1610
12143	<	< ^
12144	<	---
12145	<	> ^
12146	<	1628c1614
12147	<	< ^
12148	<	---
12149	<	> ^
12150	<	1632c1618
12151	<	< ^
12152	<	---
12153	<	> ^
12154	<	1636c1622
12155	<	< ^
12156	<	---
12157	<	> ^
12158	<	1640c1626
12159	<	< ^
12160	<	---
12161	<	> ^
12162	<	1644c1630
12163	<	< ^
12164	<	---
12165	<	> ^
12166	<	1648c1634
12167	<	< ^
12168	<	---
12169	<	> ^
12170	<	1652c1638
12171	<	< ^
12172	<	---
12173	<	> ^
12174	<	1656c1642
12175	<	< ^
12176	<	---
12177	<	> ^
12178	<	1660c1646
12179	<	< ^
12180	<	---
12181	<	> ^
12182	<	1664c1650
12183	<	< ^
12184	<	---
12185	<	> ^
12186	<	1668c1654
12187	<	< ^
12188	<	---
12189	<	> ^
12190	<	1672c1658
12191	<	< ^
12192	<	---
12193	<	> ^
12194	<	1676c1662
12195	<	< ^
12196	<	---
12197	<	> ^
12198	<	1680c1666
12199	<	< ^
12200	<	---
12201	<	> ^
12202	<	1684c1670
12203	<	< ^
12204	<	---
12205	<	> ^
12206	<	1688c1674
12207	<	< ^
12208	<	---
12209	<	> ^
12210	<	1692c1678
12211	<	< ^
12212	<	---
12213	<	> ^
12214	<	1700c1686
12215	<	< ^
12216	<	---
12217	<	> ^
12218	<	1708c1694
12219	<	< ^
12220	<	---
12221	<	> ^
12222	<	1723c1709
12223	<	< ^
12224	<	---
12225	<	> ^
12226	<	1730,1731c1716,1717
12227	<	< ^
12228	<	< COMMIT WORK^
12229	<	---
12230	<	> ^
12231	<	> COMMIT WORK ^
12232	<	1796c1782
12233	<	< ^
12234	<	---
12235	<	> ^
12236	<	1808c1794
12237	<	< ^
12238	<	---
12239	<	> ^
12240	<	1810c1796
12241	<	< SET TERM ;^
12242	<	---
12243	<	> SET TERM ; ^
12244	<	1820c1806
12245	<	< ALTER PROCEDURE SHOW_LANGS
12246	<	---
12247	<	> ALTER PROCEDURE SHOW_LANGS
12248	<	1848,1849c1834
12249	<	<
12250	<	< ALTER PROCEDURE ADD_EMP_PROJ
12251	<	---
12252	<	> ALTER PROCEDURE ADD_EMP_PROJ
12253	<	1864c1849
12254	<	< ALTER PROCEDURE ALL_LANGS
12255	<	---
12256	<	> ALTER PROCEDURE ALL_LANGS
12257	<	1892,1893c1877
12258	<	<
12259	<	< ALTER PROCEDURE DELETE_EMPLOYEE
12260	<	---
12261	<	> ALTER PROCEDURE DELETE_EMPLOYEE
12262	<	1952,1953c1936
12263	<	<
12264	<	< ALTER PROCEDURE DEPT_BUDGET
12265	<	---
12266	<	> ALTER PROCEDURE DEPT_BUDGET
12267	<	1996c1979
12268	<	< SALARY NUMERIC(10,2)
12269	<	---
12270	<	> SALARY NUMERIC(10, 2)
12271	<	2010c1993
12272	<	< ALTER PROCEDURE GET_EMP_PROJ
12273	<	---
12274	<	> ALTER PROCEDURE GET_EMP_PROJ
12275	<	2029,2030c2012
12276	<	<
12277	<	< ALTER PROCEDURE "Has Space"
12278	<	---
12279	<	> ALTER PROCEDURE "Has Space"
12280	<	2038,2039c2020
12281	<	<
12282	<	< ALTER PROCEDURE MAIL_LABEL
12283	<	---
12284	<	> ALTER PROCEDURE MAIL_LABEL
12285	<	2109,2110c2090
12286	<	<
12287	<	< ALTER PROCEDURE ORG_CHART
12288	<	---
12289	<	> ALTER PROCEDURE ORG_CHART
12290	<	2152,2153c2132
12291	<	<
12292	<	< ALTER PROCEDURE SHIP_ORDER
12293	<	---
12294	<	> ALTER PROCEDURE SHIP_ORDER
12295	<	2212,2213c2191
12296	<	<
12297	<	< ALTER PROCEDURE SUB_TOT_BUDGET
12298	<	---
12299	<	> ALTER PROCEDURE SUB_TOT_BUDGET
12300	<	2234,2235c2212
12301	<	<
12302	<	< ALTER PROCEDURE "UC SPACE"
12303	<	---
12304	<	> ALTER PROCEDURE "UC SPACE"
12305	<	2243,2244c2220
12306	<	<
12307	<	< ALTER PROCEDURE "iCASE"
12308	<	---
12309	<	> ALTER PROCEDURE "iCASE"
12310	<	2248,2249c2224
12311	<	<
12312	<	< SET TERM ;^
12313	<	---
12314	<	> SET TERM ; ^
12315	<	2267c2242
12316	<	< SET TERM ;^
12317	<	---
12318	<	> SET TERM ; ^
12319	<	2289c2264
11982	>	2346c2346
11983		< GRANT SELECT,Update(FIRST_NAME,LAST_NAME) ON TABLE EMPLOYEE TO USER BOB ;
11984		---
11985		> GRANT SELECT,Update(LAST_NAME,FIRST_NAME) ON TABLE EMPLOYEE TO USER BOB ;
#	Line 12374 \| Line 12037 \| Message File Location = /opt/firebird4.0
12037		Database Statistics for employee
12038
12039		Database "/opt/firebird4.0.0/examples/empbuild/employee.fdb"
12040	<	Gstat execution time Wed Oct 6 09:47:23 2021
12040	>	Gstat execution time Sun Oct 17 23:27:55 2021
12041
12042		Database header page information:
12043		Flags 0
12044	<	Generation 1865
12044	>	Generation 2732
12045		System Change Number 0
12046		Page size 8192
12047		ODS version 13.0
12048	<	Oldest transaction 2039
12049	<	Oldest active 2040
12050	<	Oldest snapshot 2040
12051	<	Next transaction 2040
12048	>	Oldest transaction 3024
12049	>	Oldest active 3025
12050	>	Oldest snapshot 3025
12051	>	Next transaction 3025
12052		Sequence number 0
12053	<	Next attachment ID 1584
12053	>	Next attachment ID 2444
12054		Implementation HW=AMD/Intel/x64 little-endian OS=Linux CC=gcc
12055		Shadow count 0
12056		Page buffers 0
#	Line 12548 \| Line 12211 \| Fill distribution:
12211		60 - 79% = 0
12212		80 - 99% = 0
12213
12214	<	Gstat completion time Wed Oct 6 09:47:24 2021
12214	>	Gstat completion time Sun Oct 17 23:27:56 2021
12215
12216
12217
#	Line 12558 \| Line 12221 \| zeus Wed Jun 9 10:07:18 2021
12221		firebird4/bin/fbguard: guardian starting /opt/firebird4/bin/firebird
12222
12223		Online Validation
12224	<	09:47:24.34 Validation started
12224	>	23:27:56.66 Validation started
12225
12226	<	09:47:24.34 Relation 128 (COUNTRY)
12227	<	09:47:24.34 process pointer page 0 of 1
12228	<	09:47:24.34 Index 1 (RDB$PRIMARY1)
12229	<	09:47:24.34 Relation 128 (COUNTRY) is ok
12230	<
12231	<	09:47:24.34 Relation 129 (JOB)
12232	<	09:47:24.34 process pointer page 0 of 1
12233	<	09:47:24.34 Index 1 (RDB$PRIMARY2)
12234	<	09:47:24.34 Index 2 (RDB$FOREIGN3)
12235	<	09:47:24.34 Index 3 (MAXSALX)
12236	<	09:47:24.34 Index 4 (MINSALX)
12237	<	09:47:24.34 Relation 129 (JOB) is ok
12238	<
12239	<	09:47:24.34 Relation 130 (DEPARTMENT)
12240	<	09:47:24.34 process pointer page 0 of 1
12241	<	09:47:24.35 Index 1 (RDB$4)
12242	<	09:47:24.35 Index 2 (RDB$PRIMARY5)
12243	<	09:47:24.35 Index 3 (RDB$FOREIGN6)
12244	<	09:47:24.35 Index 4 (BUDGETX)
12245	<	09:47:24.35 Index 5 (RDB$FOREIGN10)
12246	<	09:47:24.35 Relation 130 (DEPARTMENT) is ok
12247	<
12248	<	09:47:24.35 Relation 131 (EMPLOYEE)
12249	<	09:47:24.35 process pointer page 0 of 1
12250	<	09:47:24.35 Index 1 (RDB$PRIMARY7)
12251	<	09:47:24.35 Index 2 (RDB$FOREIGN8)
12252	<	09:47:24.35 Index 3 (RDB$FOREIGN9)
12253	<	09:47:24.35 Index 4 (NAMEX)
12254	<	09:47:24.35 Relation 131 (EMPLOYEE) is ok
12255	<
12256	<	09:47:24.35 Relation 133 (PROJECT)
12257	<	09:47:24.35 process pointer page 0 of 1
12258	<	09:47:24.35 Index 1 (RDB$11)
12259	<	09:47:24.35 Index 2 (RDB$PRIMARY12)
12260	<	09:47:24.35 Index 3 (RDB$FOREIGN13)
12261	<	09:47:24.35 Index 4 (PRODTYPEX)
12262	<	09:47:24.35 Relation 133 (PROJECT) is ok
12263	<
12264	<	09:47:24.35 Relation 134 (EMPLOYEE_PROJECT)
12265	<	09:47:24.35 process pointer page 0 of 1
12266	<	09:47:24.35 Index 1 (RDB$PRIMARY14)
12267	<	09:47:24.35 Index 2 (RDB$FOREIGN15)
12268	<	09:47:24.35 Index 3 (RDB$FOREIGN16)
12269	<	09:47:24.35 Relation 134 (EMPLOYEE_PROJECT) is ok
12270	<
12271	<	09:47:24.35 Relation 135 (PROJ_DEPT_BUDGET)
12272	<	09:47:24.35 process pointer page 0 of 1
12273	<	09:47:24.35 Index 1 (RDB$PRIMARY17)
12274	<	09:47:24.35 Index 2 (RDB$FOREIGN18)
12275	<	09:47:24.35 Index 3 (RDB$FOREIGN19)
12276	<	09:47:24.35 Relation 135 (PROJ_DEPT_BUDGET) is ok
12277	<
12278	<	09:47:24.35 Relation 136 (SALARY_HISTORY)
12279	<	09:47:24.35 process pointer page 0 of 1
12280	<	09:47:24.35 Index 1 (RDB$PRIMARY20)
12281	<	09:47:24.35 Index 2 (RDB$FOREIGN21)
12282	<	09:47:24.36 Index 3 (CHANGEX)
12283	<	09:47:24.36 Index 4 (UPDATERX)
12284	<	09:47:24.36 Relation 136 (SALARY_HISTORY) is ok
12285	<
12286	<	09:47:24.36 Relation 137 (CUSTOMER)
12287	<	09:47:24.36 process pointer page 0 of 1
12288	<	09:47:24.36 Index 1 (RDB$PRIMARY22)
12289	<	09:47:24.36 Index 2 (RDB$FOREIGN23)
12290	<	09:47:24.36 Index 3 (CUSTNAMEX)
12291	<	09:47:24.36 Index 4 (CUSTREGION)
12292	<	09:47:24.36 Relation 137 (CUSTOMER) is ok
12293	<
12294	<	09:47:24.36 Relation 138 (SALES)
12295	<	09:47:24.36 process pointer page 0 of 1
12296	<	09:47:24.36 Index 1 (RDB$PRIMARY24)
12297	<	09:47:24.36 Index 2 (RDB$FOREIGN25)
12298	<	09:47:24.36 Index 3 (RDB$FOREIGN26)
12299	<	09:47:24.36 Index 4 (NEEDX)
12300	<	09:47:24.36 Index 5 (QTYX)
12301	<	09:47:24.36 Index 6 (SALESTATX)
12302	<	09:47:24.36 Relation 138 (SALES) is ok
12303	<
12304	<	09:47:24.36 Relation 140 (LOTSOFDATA)
12305	<	09:47:24.36 process pointer page 0 of 1
12306	<	09:47:24.36 Index 1 (RDB$PRIMARY28)
12307	<	09:47:24.36 Relation 140 (LOTSOFDATA) is ok
12226	>	23:27:56.66 Relation 128 (COUNTRY)
12227	>	23:27:56.66 process pointer page 0 of 1
12228	>	23:27:56.66 Index 1 (RDB$PRIMARY1)
12229	>	23:27:56.66 Relation 128 (COUNTRY) is ok
12230	>
12231	>	23:27:56.66 Relation 129 (JOB)
12232	>	23:27:56.66 process pointer page 0 of 1
12233	>	23:27:56.66 Index 1 (RDB$PRIMARY2)
12234	>	23:27:56.66 Index 2 (RDB$FOREIGN3)
12235	>	23:27:56.66 Index 3 (MAXSALX)
12236	>	23:27:56.69 Index 4 (MINSALX)
12237	>	23:27:56.69 Relation 129 (JOB) is ok
12238	>
12239	>	23:27:56.69 Relation 130 (DEPARTMENT)
12240	>	23:27:56.69 process pointer page 0 of 1
12241	>	23:27:56.69 Index 1 (RDB$4)
12242	>	23:27:56.69 Index 2 (RDB$PRIMARY5)
12243	>	23:27:56.69 Index 3 (RDB$FOREIGN6)
12244	>	23:27:56.69 Index 4 (BUDGETX)
12245	>	23:27:56.69 Index 5 (RDB$FOREIGN10)
12246	>	23:27:56.69 Relation 130 (DEPARTMENT) is ok
12247	>
12248	>	23:27:56.69 Relation 131 (EMPLOYEE)
12249	>	23:27:56.70 process pointer page 0 of 1
12250	>	23:27:56.70 Index 1 (RDB$PRIMARY7)
12251	>	23:27:56.70 Index 2 (RDB$FOREIGN8)
12252	>	23:27:56.70 Index 3 (RDB$FOREIGN9)
12253	>	23:27:56.70 Index 4 (NAMEX)
12254	>	23:27:56.70 Relation 131 (EMPLOYEE) is ok
12255	>
12256	>	23:27:56.70 Relation 133 (PROJECT)
12257	>	23:27:56.70 process pointer page 0 of 1
12258	>	23:27:56.70 Index 1 (RDB$11)
12259	>	23:27:56.70 Index 2 (RDB$PRIMARY12)
12260	>	23:27:56.72 Index 3 (RDB$FOREIGN13)
12261	>	23:27:56.72 Index 4 (PRODTYPEX)
12262	>	23:27:56.72 Relation 133 (PROJECT) is ok
12263	>
12264	>	23:27:56.72 Relation 134 (EMPLOYEE_PROJECT)
12265	>	23:27:56.72 process pointer page 0 of 1
12266	>	23:27:56.72 Index 1 (RDB$PRIMARY14)
12267	>	23:27:56.72 Index 2 (RDB$FOREIGN15)
12268	>	23:27:56.72 Index 3 (RDB$FOREIGN16)
12269	>	23:27:56.72 Relation 134 (EMPLOYEE_PROJECT) is ok
12270	>
12271	>	23:27:56.72 Relation 135 (PROJ_DEPT_BUDGET)
12272	>	23:27:56.72 process pointer page 0 of 1
12273	>	23:27:56.72 Index 1 (RDB$PRIMARY17)
12274	>	23:27:56.73 Index 2 (RDB$FOREIGN18)
12275	>	23:27:56.73 Index 3 (RDB$FOREIGN19)
12276	>	23:27:56.73 Relation 135 (PROJ_DEPT_BUDGET) is ok
12277	>
12278	>	23:27:56.73 Relation 136 (SALARY_HISTORY)
12279	>	23:27:56.73 process pointer page 0 of 1
12280	>	23:27:56.73 Index 1 (RDB$PRIMARY20)
12281	>	23:27:56.73 Index 2 (RDB$FOREIGN21)
12282	>	23:27:56.73 Index 3 (CHANGEX)
12283	>	23:27:56.73 Index 4 (UPDATERX)
12284	>	23:27:56.73 Relation 136 (SALARY_HISTORY) is ok
12285	>
12286	>	23:27:56.73 Relation 137 (CUSTOMER)
12287	>	23:27:56.73 process pointer page 0 of 1
12288	>	23:27:56.73 Index 1 (RDB$PRIMARY22)
12289	>	23:27:56.73 Index 2 (RDB$FOREIGN23)
12290	>	23:27:56.73 Index 3 (CUSTNAMEX)
12291	>	23:27:56.73 Index 4 (CUSTREGION)
12292	>	23:27:56.73 Relation 137 (CUSTOMER) is ok
12293	>
12294	>	23:27:56.73 Relation 138 (SALES)
12295	>	23:27:56.73 process pointer page 0 of 1
12296	>	23:27:56.73 Index 1 (RDB$PRIMARY24)
12297	>	23:27:56.73 Index 2 (RDB$FOREIGN25)
12298	>	23:27:56.73 Index 3 (RDB$FOREIGN26)
12299	>	23:27:56.73 Index 4 (NEEDX)
12300	>	23:27:56.73 Index 5 (QTYX)
12301	>	23:27:56.73 Index 6 (SALESTATX)
12302	>	23:27:56.73 Relation 138 (SALES) is ok
12303	>
12304	>	23:27:56.73 Relation 140 (LOTSOFDATA)
12305	>	23:27:56.73 process pointer page 0 of 1
12306	>	23:27:56.73 Index 1 (RDB$PRIMARY28)
12307	>	23:27:56.73 Relation 140 (LOTSOFDATA) is ok
12308
12309	<	09:47:24.36 Validation finished
12309	>	23:27:56.73 Validation finished
12310
12311
12312		Normal Validation
#	Line 14199 \| Line 13862 \| Rows printed = 2
13862		Current memory = 19,667,296
13863		Delta memory = 16,032
13864		Max memory = 19,762,880
13865	<	Elapsed time= 0.118 sec
13865	>	Elapsed time= 0.102 sec
13866		Cpu = 0.000 sec
13867		Buffers = 2048
13868		Reads = 2
#	Line 15817 \| Line 15480 \| Create Table LotsOfData (
15480		MyText VarChar(1024),
15481		Primary Key (RowID)
15482		);
15483	<	Loading data into database table. Started at 06/10/2021 09:48:08.486
15484	<	Data load completed at 06/10/2021 09:49:45.026 Elapsed Time = 96540 ms, 100000 records loaded
15485	<	Message Hash = a3d577760b5736851d73bf1a5ace8c98
15486	<	Database Read started at 06/10/2021 09:49:45.038
15487	<	Read Dataset completed at 06/10/2021 09:50:20.439 Elapsed Time = 35401 ms, 100000 records read
15488	<	Message Hash = a3d577760b5736851d73bf1a5ace8c98
15483	>	Loading data into database table. Started at 17/10/2021 23:28:45.143
15484	>	Data load completed at 17/10/2021 23:30:25.163 Elapsed Time = 100020 ms, 100000 records loaded
15485	>	Message Hash = 391fb63febbb58b57256c58708eeac65
15486	>	Database Read started at 17/10/2021 23:30:25.174
15487	>	Read Dataset completed at 17/10/2021 23:30:55.599 Elapsed Time = 30425 ms, 100000 records read
15488	>	Message Hash = 391fb63febbb58b57256c58708eeac65
15489		Test Completed successfully
15490	<	06/10/2021 09:50:20.440 Test 21 passes as long as the checksums are identical
15490	>	17/10/2021 23:30:55.599 Test 21 passes as long as the checksums are identical
15491
15492
15493		------------------------------------------------------
#	Line 16719 \| Line 16382 \| IBTable after create
16382
16383		/* Table: TestTable, Owner: SYSDBA */
16384
16385	<	CREATE TABLE "TestTable"
16385	>	CREATE TABLE "TestTable"
16386		(
16387		MYKEY INTEGER NOT NULL,
16388		TEXTFIELD VARCHAR(32) CHARACTER SET UTF8,
#	Line 17460 \| Line 17123 \| SET AUTODDL ON;
17123
17124		/* Table: DBVERSIONINFO, Owner: SYSDBA */
17125
17126	<	CREATE TABLE DBVERSIONINFO
17126	>	CREATE TABLE DBVERSIONINFO
17127		(
17128		VERSIONNO INTEGER NOT NULL,
17129		PRIMARY KEY (VERSIONNO)
#	Line 17468 \| Line 17131 \| PRIMARY KEY (VERSIONNO)
17131
17132		/* Table: IBDATASETTEST, Owner: SYSDBA */
17133
17134	<	CREATE TABLE IBDATASETTEST
17134	>	CREATE TABLE IBDATASETTEST
17135		(
17136		KEYFIELD INTEGER NOT NULL,
17137		PLAINTEXT VARCHAR(128),
#	Line 17485 \| Line 17148 \| COMMIT;
17148		/* Data Ends */
17149
17150		CREATE SEQUENCE AGENERATOR;
17151	<	ALTER SEQUENCE AGENERATOR RESTART WITH 0;
17152	<	SET TERM ^ ;
17151	>	ALTER SEQUENCE AGENERATOR RESTART WITH 1;
17152	>	SET TERM ^;
17153
17154
17155		/* Triggers only will work for SQL triggers */
#	Line 17497 \| Line 17160 \| As
17160		Begin
17161		new.ServerSideText = new.KeyField \|\| ' - ' \|\| new.PlainText;
17162		End
17163	<	^
17164	<	COMMIT WORK ^
17163	>	^
17164	>
17165	>	COMMIT WORK^
17166		SET TERM ;^
17167
17168		/* Comments on System Objects */
#	Line 17657 \| Line 17321 \| SET AUTODDL ON;
17321
17322		/* Table: DBVERSIONINFO, Owner: SYSDBA */
17323
17324	<	CREATE TABLE DBVERSIONINFO
17324	>	CREATE TABLE DBVERSIONINFO
17325		(
17326		VERSIONNO INTEGER NOT NULL,
17327		PRIMARY KEY (VERSIONNO)
#	Line 17665 \| Line 17329 \| PRIMARY KEY (VERSIONNO)
17329
17330		/* Table: IBDATASETTEST, Owner: SYSDBA */
17331
17332	<	CREATE TABLE IBDATASETTEST
17332	>	CREATE TABLE IBDATASETTEST
17333		(
17334		KEYFIELD INTEGER NOT NULL,
17335		PLAINTEXT VARCHAR(128),
#	Line 17687 \| Line 17351 \| COMMIT;
17351		/* Data Ends */
17352
17353		CREATE SEQUENCE AGENERATOR;
17354	<	ALTER SEQUENCE AGENERATOR RESTART WITH 1;
17355	<	SET TERM ^ ;
17354	>	ALTER SEQUENCE AGENERATOR RESTART WITH 2;
17355	>	SET TERM ^;
17356
17357
17358		/* Triggers only will work for SQL triggers */
#	Line 17699 \| Line 17363 \| As
17363		Begin
17364		new.ServerSideText = new.KeyField \|\| ' - ' \|\| new.PlainText;
17365		End
17366	<	^
17367	<	COMMIT WORK ^
17366	>	^
17367	>
17368	>	COMMIT WORK^
17369		SET TERM ;^
17370
17371		/* Comments on System Objects */
#	Line 17844 \| Line 17509 \| SET AUTODDL ON;
17509
17510		/* Table: DBVERSIONINFO, Owner: SYSDBA */
17511
17512	<	CREATE TABLE DBVERSIONINFO
17512	>	CREATE TABLE DBVERSIONINFO
17513		(
17514		VERSIONNO INTEGER NOT NULL,
17515		PRIMARY KEY (VERSIONNO)
#	Line 17852 \| Line 17517 \| PRIMARY KEY (VERSIONNO)
17517
17518		/* Table: IBDATASETTEST, Owner: SYSDBA */
17519
17520	<	CREATE TABLE IBDATASETTEST
17520	>	CREATE TABLE IBDATASETTEST
17521		(
17522		KEYFIELD INTEGER NOT NULL,
17523		PLAINTEXT VARCHAR(128),
#	Line 17875 \| Line 17540 \| COMMIT;
17540		/* Data Ends */
17541
17542		CREATE SEQUENCE AGENERATOR;
17543	<	ALTER SEQUENCE AGENERATOR RESTART WITH 2;
17544	<	SET TERM ^ ;
17543	>	ALTER SEQUENCE AGENERATOR RESTART WITH 3;
17544	>	SET TERM ^;
17545
17546
17547		/* Triggers only will work for SQL triggers */
#	Line 17887 \| Line 17552 \| As
17552		Begin
17553		new.ServerSideText = new.KeyField \|\| ' - ' \|\| new.PlainText;
17554		End
17555	<	^
17556	<	COMMIT WORK ^
17555	>	^
17556	>
17557	>	COMMIT WORK^
17558		SET TERM ;^
17559
17560		/* Comments on System Objects */

Diff Legend

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

Comparing ibx/trunk/testsuite/FB4reference.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/FB4reference.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