ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/testsuite/FB2reference.log

Comparing ibx/trunk/testsuite/FB2reference.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 642 | Line 642 | Rows printed = 42
642		Current memory = 960,760
643		Delta memory = 9,624
644		Max memory = 1,012,104
645	<	Elapsed time= 0.032 sec
646	<	Cpu = 0.002 sec
645	>	Elapsed time= 0.029 sec
646	>	Cpu = 0.001 sec
647		Buffers = 75
648		Reads = 3
649		Writes = 0
#	Line 1443 | Line 1443 | DPB: Item Count = 3
1443		isc_dpb_lc_ctype = UTF8
1444
1445		Before Disconnect
1446	<	localhost:employee Disconnected after 23 ms
1446	>	localhost:employee Disconnected after 21 ms
1447		Before Connect
1448		Connected to localhost:employee
1449		DPB: Item Count = 3
#	Line 1452 | Line 1452 | DPB: Item Count = 3
1452		isc_dpb_lc_ctype = UTF8
1453
1454		Before Disconnect
1455	<	localhost:employee Disconnected after 3989 ms
1455	>	localhost:employee Disconnected after 3965 ms
1456		Idle Timer Expired for Test_Database_02
1457		Database Closed
1458		Transaction Events
#	Line 1489 | Line 1489 | TPB: Item Count = 3
1489		isc_tpb_read
1490
1491		Transaction Ending
1492	<	Transaction Ended after 2012 ms
1492	>	Transaction Ended after 2026 ms
1493		Idle Timer Expired for Test_Transaction_02
1494		Before Disconnect
1495	<	localhost:employee Disconnected after 2074 ms
1495	>	localhost:employee Disconnected after 2065 ms
1496		SQL Dialect Downgrade test
1497		Before Connect
1498		Connected to localhost:/tmp/ibx-testsuite/testsuite1.fdb
#	Line 1504 | Line 1504 | DPB: Item Count = 4
1504
1505		localhost:/tmp/ibx-testsuite/testsuite1.fdb created
1506		Before Disconnect
1507	<	localhost:/tmp/ibx-testsuite/testsuite1.fdb Disconnected after 30 ms
1507	>	localhost:/tmp/ibx-testsuite/testsuite1.fdb Disconnected after 24 ms
1508		Before Connect
1509		Warning: SQL Dialect Downgrade of localhost:/tmp/ibx-testsuite/testsuite1.fdb
1510		Connected to localhost:/tmp/ibx-testsuite/testsuite1.fdb
#	Line 1514 | Line 1514 | DPB: Item Count = 3
1514		isc_dpb_lc_ctype = UTF8
1515
1516		Before Disconnect
1517	<	localhost:/tmp/ibx-testsuite/testsuite1.fdb Disconnected after 37 ms
1517	>	localhost:/tmp/ibx-testsuite/testsuite1.fdb Disconnected after 16 ms
1518
1519
1520		------------------------------------------------------
#	Line 3151 | Line 3151 | DEPT_KEY_PATH = 000;600;620;622
3151		Current memory = 952,624
3152		Delta memory = 9,608
3153		Max memory = 1,013,496
3154	<	Elapsed time= 0.038 sec
3155	<	Cpu = 0.001 sec
3154	>	Elapsed time= 0.030 sec
3155	>	Cpu = 0.002 sec
3156		Buffers = 75
3157		Reads = 3
3158		Writes = 0
#	Line 3753 | Line 3753 | SET AUTODDL ON;
3753		/* Domain definitions */
3754
3755		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
3756	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
3756	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
3757		DEFAULT 50000;
3758		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
3759		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 3768 | Line 3768 | CREATE DOMAIN PONUMBER AS CHAR(8);
3768		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
3769		DEFAULT 'software' NOT NULL;
3770		CREATE DOMAIN PROJNO AS CHAR(5);
3771	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
3771	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
3772		DEFAULT 0;
3773
3774		/* Table: COUNTRY, Owner: SYSDBA */
3775
3776	<	CREATE TABLE COUNTRY
3776	>	CREATE TABLE COUNTRY
3777		(
3778		COUNTRY COUNTRYNAME NOT NULL,
3779		CURRENCY        VARCHAR(10) NOT NULL,
#	Line 3782 | Line 3782 | PRIMARY KEY (COUNTRY)
3782
3783		/* Table: CUSTOMER, Owner: SYSDBA */
3784
3785	<	CREATE TABLE CUSTOMER
3785	>	CREATE TABLE CUSTOMER
3786		(
3787		CUST_NO CUSTNO NOT NULL,
3788		CUSTOMER        VARCHAR(25) NOT NULL,
#	Line 3801 | Line 3801 | PRIMARY KEY (CUST_NO)
3801
3802		/* Table: DEPARTMENT, Owner: SYSDBA */
3803
3804	<	CREATE TABLE DEPARTMENT
3804	>	CREATE TABLE DEPARTMENT
3805		(
3806		DEPT_NO DEPTNO NOT NULL,
3807		DEPARTMENT      VARCHAR(25) NOT NULL,
#	Line 3816 | Line 3816 | PRIMARY KEY (DEPT_NO)
3816
3817		/* Table: EMPLOYEE, Owner: SYSDBA */
3818
3819	<	CREATE TABLE EMPLOYEE
3819	>	CREATE TABLE EMPLOYEE
3820		(
3821		EMP_NO  EMPNO NOT NULL,
3822		FIRST_NAME      FIRSTNAME NOT NULL,
#	Line 3834 | Line 3834 | PRIMARY KEY (EMP_NO)
3834
3835		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
3836
3837	<	CREATE TABLE EMPLOYEE_PROJECT
3837	>	CREATE TABLE EMPLOYEE_PROJECT
3838		(
3839		EMP_NO  EMPNO NOT NULL,
3840		PROJ_ID PROJNO NOT NULL,
#	Line 3843 | Line 3843 | PRIMARY KEY (EMP_NO, PROJ_ID)
3843
3844		/* Table: JOB, Owner: SYSDBA */
3845
3846	<	CREATE TABLE JOB
3846	>	CREATE TABLE JOB
3847		(
3848		JOB_CODE        JOBCODE NOT NULL,
3849		JOB_GRADE       JOBGRADE NOT NULL,
#	Line 3858 | Line 3858 | PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
3858
3859		/* Table: PROJECT, Owner: SYSDBA */
3860
3861	<	CREATE TABLE PROJECT
3861	>	CREATE TABLE PROJECT
3862		(
3863		PROJ_ID PROJNO NOT NULL,
3864		PROJ_NAME       VARCHAR(20) NOT NULL,
#	Line 3871 | Line 3871 | PRIMARY KEY (PROJ_ID)
3871
3872		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
3873
3874	<	CREATE TABLE PROJ_DEPT_BUDGET
3874	>	CREATE TABLE PROJ_DEPT_BUDGET
3875		(
3876		FISCAL_YEAR     INTEGER NOT NULL,
3877		PROJ_ID PROJNO NOT NULL,
#	Line 3883 | Line 3883 | PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
3883
3884		/* Table: SALARY_HISTORY, Owner: SYSDBA */
3885
3886	<	CREATE TABLE SALARY_HISTORY
3886	>	CREATE TABLE SALARY_HISTORY
3887		(
3888		EMP_NO  EMPNO NOT NULL,
3889		CHANGE_DATE     TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 3896 | Line 3896 | PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
3896
3897		/* Table: SALES, Owner: SYSDBA */
3898
3899	<	CREATE TABLE SALES
3899	>	CREATE TABLE SALES
3900		(
3901		PO_NUMBER       PONUMBER NOT NULL,
3902		CUST_NO CUSTNO NOT NULL,
#	Line 3907 | Line 3907 | CREATE TABLE SALES
3907		DATE_NEEDED     TIMESTAMP,
3908		PAID    CHAR(1) DEFAULT 'n',
3909		QTY_ORDERED     INTEGER DEFAULT 1 NOT NULL,
3910	<	TOTAL_VALUE     DECIMAL(9, 2) NOT NULL,
3910	>	TOTAL_VALUE     DECIMAL(9,2) NOT NULL,
3911		DISCOUNT        FLOAT DEFAULT 0 NOT NULL,
3912		ITEM_TYPE       PRODTYPE,
3913		AGED COMPUTED BY (ship_date - order_date),
#	Line 3949 | Line 3949 | CREATE SEQUENCE EMP_NO_GEN;
3949		/* View: PHONE_LIST, Owner: SYSDBA */
3950
3951		CREATE VIEW PHONE_LIST (
3952	<	EMP_NO,
3953	<	FIRST_NAME,
3954	<	LAST_NAME,
3955	<	PHONE_EXT,
3956	<	LOCATION,
3952	>	EMP_NO,
3953	>	FIRST_NAME,
3954	>	LAST_NAME,
3955	>	PHONE_EXT,
3956	>	LOCATION,
3957		PHONE_NO
3958		) AS
3959		SELECT
#	Line 4051 | Line 4051 | CREATE EXCEPTION REASSIGN_SALES 'Reassig
4051		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
4052		COMMIT WORK;
4053		SET AUTODDL OFF;
4054	<	SET TERM ^ ;
4054	>	SET TERM ^;
4055
4056		/* Stored procedures Definitions*/
4057
#	Line 4068 | Line 4068 | RETURNS
4068		AS
4069		BEGIN SUSPEND; EXIT; END
4070		^
4071	+
4072		CREATE PROCEDURE ADD_EMP_PROJ
4073		(
4074		EMP_NO SMALLINT,
#	Line 4076 | Line 4077 | CREATE PROCEDURE ADD_EMP_PROJ
4077		AS
4078		BEGIN SUSPEND; EXIT; END
4079		^
4080	+
4081		CREATE PROCEDURE ALL_LANGS
4082		RETURNS
4083		(
#	Line 4087 | Line 4089 | RETURNS
4089		AS
4090		BEGIN SUSPEND; EXIT; END
4091		^
4092	+
4093		CREATE PROCEDURE DELETE_EMPLOYEE
4094		(
4095		EMP_NUM INTEGER
#	Line 4094 | Line 4097 | CREATE PROCEDURE DELETE_EMPLOYEE
4097		AS
4098		BEGIN SUSPEND; EXIT; END
4099		^
4100	+
4101		CREATE PROCEDURE DEPT_BUDGET
4102		(
4103		DNO CHAR(3) CHARACTER SET NONE
4104		)
4105		RETURNS
4106		(
4107	<	TOT DECIMAL(12, 2)
4107	>	TOT DECIMAL(12,2)
4108		)
4109		AS
4110		BEGIN SUSPEND; EXIT; END
4111		^
4112	+
4113		CREATE PROCEDURE GET_EMP_PROJ
4114		(
4115		EMP_NO SMALLINT
#	Line 4116 | Line 4121 | RETURNS
4121		AS
4122		BEGIN SUSPEND; EXIT; END
4123		^
4124	+
4125		CREATE PROCEDURE MAIL_LABEL
4126		(
4127		CUST_NO INTEGER
#	Line 4132 | Line 4138 | RETURNS
4138		AS
4139		BEGIN SUSPEND; EXIT; END
4140		^
4141	+
4142		CREATE PROCEDURE ORG_CHART
4143		RETURNS
4144		(
#	Line 4144 | Line 4151 | RETURNS
4151		AS
4152		BEGIN SUSPEND; EXIT; END
4153		^
4154	+
4155		CREATE PROCEDURE SHIP_ORDER
4156		(
4157		PO_NUM CHAR(8) CHARACTER SET NONE
#	Line 4151 | Line 4159 | CREATE PROCEDURE SHIP_ORDER
4159		AS
4160		BEGIN SUSPEND; EXIT; END
4161		^
4162	+
4163		CREATE PROCEDURE SUB_TOT_BUDGET
4164		(
4165		HEAD_DEPT CHAR(3) CHARACTER SET NONE
4166		)
4167		RETURNS
4168		(
4169	<	TOT_BUDGET DECIMAL(12, 2),
4170	<	AVG_BUDGET DECIMAL(12, 2),
4171	<	MIN_BUDGET DECIMAL(12, 2),
4172	<	MAX_BUDGET DECIMAL(12, 2)
4169	>	TOT_BUDGET DECIMAL(12,2),
4170	>	AVG_BUDGET DECIMAL(12,2),
4171	>	MIN_BUDGET DECIMAL(12,2),
4172	>	MAX_BUDGET DECIMAL(12,2)
4173		)
4174		AS
4175		BEGIN SUSPEND; EXIT; END
4176		^
4177	<	SET TERM ; ^
4177	>
4178	>	SET TERM ;^
4179		COMMIT WORK;
4180		SET AUTODDL ON;
4181	<	SET TERM ^ ;
4181	>	SET TERM ^;
4182
4183
4184		/* Triggers only will work for SQL triggers */
#	Line 4180 | Line 4190 | BEGIN
4190		if (new.cust_no is null) then
4191		new.cust_no = gen_id(cust_no_gen, 1);
4192		END
4193	<	^
4193	>	^
4194	>
4195		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
4196		ACTIVE BEFORE INSERT POSITION 0
4197		AS
#	Line 4188 | Line 4199 | BEGIN
4199		if (new.emp_no is null) then
4200		new.emp_no = gen_id(emp_no_gen, 1);
4201		END
4202	<	^
4202	>	^
4203	>
4204		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
4205		ACTIVE AFTER UPDATE POSITION 0
4206		AS
#	Line 4203 | Line 4215 | BEGIN
4215		old.salary,
4216		(new.salary - old.salary) * 100 / old.salary);
4217		END
4218	<	^
4218	>	^
4219	>
4220		CREATE TRIGGER POST_NEW_ORDER FOR SALES
4221		ACTIVE AFTER INSERT POSITION 0
4222		AS
4223		BEGIN
4224		POST_EVENT 'new_order';
4225		END
4226	<	^
4227	<	COMMIT WORK ^
4226	>	^
4227	>
4228	>	COMMIT WORK^
4229		SET TERM ;^
4230		COMMIT WORK;
4231		SET AUTODDL OFF;
4232	<	SET TERM ^ ;
4232	>	SET TERM ^;
4233
4234		/* Stored procedure Bodies */
4235
4222	–
4236		ALTER PROCEDURE SHOW_LANGS
4237		(
4238		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 4359 | Line 4372 | ALTER PROCEDURE DEPT_BUDGET
4372		)
4373		RETURNS
4374		(
4375	<	TOT DECIMAL(12, 2)
4375	>	TOT DECIMAL(12,2)
4376		)
4377		AS
4378		DECLARE VARIABLE sumb DECIMAL(12, 2);
#	Line 4589 | Line 4602 | ALTER PROCEDURE SUB_TOT_BUDGET
4602		)
4603		RETURNS
4604		(
4605	<	TOT_BUDGET DECIMAL(12, 2),
4606	<	AVG_BUDGET DECIMAL(12, 2),
4607	<	MIN_BUDGET DECIMAL(12, 2),
4608	<	MAX_BUDGET DECIMAL(12, 2)
4605	>	TOT_BUDGET DECIMAL(12,2),
4606	>	AVG_BUDGET DECIMAL(12,2),
4607	>	MIN_BUDGET DECIMAL(12,2),
4608	>	MAX_BUDGET DECIMAL(12,2)
4609		)
4610		AS
4611		BEGIN
#	Line 4603 | Line 4616 | BEGIN
4616		SUSPEND;
4617		END
4618		^
4619	<	SET TERM ; ^
4619	>
4620	>	SET TERM ;^
4621		COMMIT WORK;
4622		SET AUTODDL ON;
4623
#	Line 4649 | Line 4663 | SET AUTODDL ON;
4663
4664		CREATE DATABASE 'inet://localhost//tmp/ibx-testsuite/testsuite1.fdb' PAGE_SIZE 8192
4665
4666	<	DEFAULT CHARACTER SET NONE;
4666	>	DEFAULT CHARACTER SET NONE;
4667		COMMENT ON DATABASE  IS 'Employee Test DB';
4668
4669		/* Domain definitions */
4670
4671		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
4672	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
4672	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
4673		DEFAULT 50000;
4674		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
4675		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 4671 | Line 4685 | CREATE DOMAIN PONUMBER AS CHAR(8);
4685		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
4686		DEFAULT 'software' NOT NULL;
4687		CREATE DOMAIN PROJNO AS CHAR(5);
4688	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
4688	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
4689		DEFAULT 0;
4690
4691		/* Table: COUNTRIES, Owner: SYSDBA */
4692
4693	<	CREATE TABLE COUNTRIES
4693	>	CREATE TABLE COUNTRIES
4694		(
4695		COUNTRY VARCHAR(64) NOT NULL,
4696		NONEU   SMALLINT,
#	Line 4689 | Line 4703 | COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
4703
4704		/* Table: COUNTRY, Owner: SYSDBA */
4705
4706	<	CREATE TABLE COUNTRY
4706	>	CREATE TABLE COUNTRY
4707		(
4708		COUNTRY COUNTRYNAME NOT NULL,
4709		CURRENCY        VARCHAR(10) NOT NULL,
#	Line 4698 | Line 4712 | PRIMARY KEY (COUNTRY)
4712
4713		/* Table: CUSTOMER, Owner: SYSDBA */
4714
4715	<	CREATE TABLE CUSTOMER
4715	>	CREATE TABLE CUSTOMER
4716		(
4717		CUST_NO CUSTNO NOT NULL,
4718		CUSTOMER        VARCHAR(25) NOT NULL,
#	Line 4718 | Line 4732 | PRIMARY KEY (CUST_NO)
4732
4733		/* Table: DEPARTMENT, Owner: SYSDBA */
4734
4735	<	CREATE TABLE DEPARTMENT
4735	>	CREATE TABLE DEPARTMENT
4736		(
4737		DEPT_NO DEPTNO NOT NULL,
4738		DEPARTMENT      VARCHAR(25) NOT NULL,
#	Line 4733 | Line 4747 | PRIMARY KEY (DEPT_NO)
4747
4748		/* Table: EMPLOYEE, Owner: SYSDBA */
4749
4750	<	CREATE TABLE EMPLOYEE
4750	>	CREATE TABLE EMPLOYEE
4751		(
4752		EMP_NO  EMPNO NOT NULL,
4753		FIRST_NAME      FIRSTNAME NOT NULL,
#	Line 4751 | Line 4765 | PRIMARY KEY (EMP_NO)
4765
4766		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
4767
4768	<	CREATE TABLE EMPLOYEE_PROJECT
4768	>	CREATE TABLE EMPLOYEE_PROJECT
4769		(
4770		EMP_NO  EMPNO NOT NULL,
4771		PROJ_ID PROJNO NOT NULL,
#	Line 4760 | Line 4774 | PRIMARY KEY (EMP_NO, PROJ_ID)
4774
4775		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
4776
4777	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
4777	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
4778		(
4779		LINE_NUM        INTEGER,
4780		CONTENT FB$OUT_TYPE
#	Line 4768 | Line 4782 | CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
4782
4783		/* Table: JOB, Owner: SYSDBA */
4784
4785	<	CREATE TABLE JOB
4785	>	CREATE TABLE JOB
4786		(
4787		JOB_CODE        JOBCODE NOT NULL,
4788		JOB_GRADE       JOBGRADE NOT NULL,
#	Line 4783 | Line 4797 | PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
4797
4798		/* Table: PROJECT, Owner: SYSDBA */
4799
4800	<	CREATE TABLE PROJECT
4800	>	CREATE TABLE PROJECT
4801		(
4802		PROJ_ID PROJNO NOT NULL,
4803		PROJ_NAME       VARCHAR(20) NOT NULL,
#	Line 4796 | Line 4810 | PRIMARY KEY (PROJ_ID)
4810
4811		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
4812
4813	<	CREATE TABLE PROJ_DEPT_BUDGET
4813	>	CREATE TABLE PROJ_DEPT_BUDGET
4814		(
4815		FISCAL_YEAR     INTEGER NOT NULL,
4816		PROJ_ID PROJNO NOT NULL,
#	Line 4808 | Line 4822 | PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
4822
4823		/* Table: SALARY_HISTORY, Owner: SYSDBA */
4824
4825	<	CREATE TABLE SALARY_HISTORY
4825	>	CREATE TABLE SALARY_HISTORY
4826		(
4827		EMP_NO  EMPNO NOT NULL,
4828		CHANGE_DATE     TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 4821 | Line 4835 | PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
4835
4836		/* Table: SALES, Owner: SYSDBA */
4837
4838	<	CREATE TABLE SALES
4838	>	CREATE TABLE SALES
4839		(
4840		PO_NUMBER       PONUMBER NOT NULL,
4841		CUST_NO CUSTNO NOT NULL,
#	Line 4832 | Line 4846 | CREATE TABLE SALES
4846		DATE_NEEDED     TIMESTAMP,
4847		PAID    CHAR(1) DEFAULT 'n',
4848		QTY_ORDERED     INTEGER DEFAULT 1 NOT NULL,
4849	<	TOTAL_VALUE     DECIMAL(9, 2) NOT NULL,
4849	>	TOTAL_VALUE     DECIMAL(9,2) NOT NULL,
4850		DISCOUNT        FLOAT DEFAULT 0 NOT NULL,
4851		ITEM_TYPE       PRODTYPE,
4852		AGED COMPUTED BY (ship_date - order_date),
#	Line 4845 | Line 4859 | DECLARE EXTERNAL FUNCTION ADDDAY
4859		TIMESTAMP, INTEGER
4860		RETURNS TIMESTAMP
4861		ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
4848	–
4862		;
4863
4864
4865		DECLARE EXTERNAL FUNCTION I64TRUNCATE
4866	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
4866	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
4867		RETURNS PARAMETER 2
4868		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
4856	–
4869		;
4870
4871
#	Line 4861 | Line 4873 | DECLARE EXTERNAL FUNCTION TESTIT
4873		TIMESTAMP, INTEGER NULL, CSTRING(10) CHARACTER SET NONE, CSTRING(10) CHARACTER SET NONE BY DESCRIPTOR
4874		RETURNS CSTRING(32) CHARACTER SET NONE FREE_IT
4875		ENTRY_POINT 'testit' MODULE_NAME 'fbudf'
4864	–
4876		;
4877
4878
#	Line 5592 | Line 5603 | ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1
5603		/* View: DEPTLIST, Owner: SYSDBA */
5604
5605		CREATE VIEW DEPTLIST (
5606	<	EMP_NO,
5607	<	FIRST_NAME,
5608	<	LAST_NAME,
5609	<	PHONE_EXT,
5610	<	HIRE_DATE,
5611	<	DEPT_NO,
5612	<	JOB_CODE,
5613	<	JOB_GRADE,
5614	<	JOB_COUNTRY,
5615	<	SALARY,
5616	<	FULL_NAME,
5617	<	DEPT_PATH,
5606	>	EMP_NO,
5607	>	FIRST_NAME,
5608	>	LAST_NAME,
5609	>	PHONE_EXT,
5610	>	HIRE_DATE,
5611	>	DEPT_NO,
5612	>	JOB_CODE,
5613	>	JOB_GRADE,
5614	>	JOB_COUNTRY,
5615	>	SALARY,
5616	>	FULL_NAME,
5617	>	DEPT_PATH,
5618		DEPT_KEY_PATH
5619		) AS
5620		with recursive Depts As (
#	Line 5626 | Line 5637 | JOIN Depts D On D.DEPT_NO = A.DEPT_NO
5637		/* View: PHONE_LIST, Owner: SYSDBA */
5638
5639		CREATE VIEW PHONE_LIST (
5640	<	EMP_NO,
5641	<	FIRST_NAME,
5642	<	LAST_NAME,
5643	<	PHONE_EXT,
5644	<	LOCATION,
5640	>	EMP_NO,
5641	>	FIRST_NAME,
5642	>	LAST_NAME,
5643	>	PHONE_EXT,
5644	>	LOCATION,
5645		PHONE_NO
5646		) AS
5647		SELECT
#	Line 5732 | Line 5743 | CREATE EXCEPTION REASSIGN_SALES 'Reassig
5743		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
5744		COMMIT WORK;
5745		SET AUTODDL OFF;
5746	<	SET TERM ^ ;
5736	<
5737	<	SET TERM ; ^
5738	<	COMMIT WORK;
5739	<	SET AUTODDL ON;
5740	<	COMMIT WORK;
5741	<	SET AUTODDL OFF;
5742	<	SET TERM ^ ;
5746	>	SET TERM ^;
5747
5748		/* Stored procedures Definitions*/
5749
5750	<	CREATE PROCEDURE SHOW_LANGS
5750	>	CREATE PROCEDURE SHOW_LANGS
5751		(
5752		CODE VARCHAR(5) CHARACTER SET NONE,
5753		GRADE SMALLINT,
#	Line 5755 | Line 5759 | RETURNS
5759		)
5760		AS
5761		BEGIN SUSPEND; EXIT; END
5758	–
5762		^
5763
5764	<	CREATE PROCEDURE ADD_EMP_PROJ
5764	>	CREATE PROCEDURE ADD_EMP_PROJ
5765		(
5766		EMP_NO SMALLINT,
5767		PROJ_ID CHAR(5) CHARACTER SET NONE
5768		)
5769		AS
5770		BEGIN EXIT; END
5768	–
5771		^
5772
5773	<	CREATE PROCEDURE ALL_LANGS
5773	>	CREATE PROCEDURE ALL_LANGS
5774		RETURNS
5775		(
5776		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 5778 | Line 5780 | RETURNS
5780		)
5781		AS
5782		BEGIN SUSPEND; EXIT; END
5781	–
5783		^
5784
5785	<	CREATE PROCEDURE DELETE_EMPLOYEE
5785	>	CREATE PROCEDURE DELETE_EMPLOYEE
5786		(
5787		EMP_NUM INTEGER
5788		)
5789		AS
5790		BEGIN EXIT; END
5790	–
5791		^
5792
5793	<	CREATE PROCEDURE DEPT_BUDGET
5793	>	CREATE PROCEDURE DEPT_BUDGET
5794		(
5795		DNO CHAR(3) CHARACTER SET NONE
5796		)
5797		RETURNS
5798		(
5799	<	TOT DECIMAL(12, 2)
5799	>	TOT DECIMAL(12,2)
5800		)
5801		AS
5802		BEGIN SUSPEND; EXIT; END
5803	–
5803		^
5804
5805	<	CREATE PROCEDURE GET_EMP_PROJ
5805	>	CREATE PROCEDURE GET_EMP_PROJ
5806		(
5807		EMP_NO SMALLINT
5808		)
#	Line 5813 | Line 5812 | RETURNS
5812		)
5813		AS
5814		BEGIN SUSPEND; EXIT; END
5816	–
5815		^
5816
5817	<	CREATE PROCEDURE "Has Space"
5817	>	CREATE PROCEDURE "Has Space"
5818		(
5819		ARG1 INTEGER
5820		)
5821		AS
5822		BEGIN EXIT; END
5825	–
5823		^
5824
5825	<	CREATE PROCEDURE MAIL_LABEL
5825	>	CREATE PROCEDURE MAIL_LABEL
5826		(
5827		CUST_NO INTEGER
5828		)
#	Line 5840 | Line 5837 | RETURNS
5837		)
5838		AS
5839		BEGIN SUSPEND; EXIT; END
5843	–
5840		^
5841
5842	<	CREATE PROCEDURE ORG_CHART
5842	>	CREATE PROCEDURE ORG_CHART
5843		RETURNS
5844		(
5845		HEAD_DEPT CHAR(25) CHARACTER SET NONE,
#	Line 5854 | Line 5850 | RETURNS
5850		)
5851		AS
5852		BEGIN SUSPEND; EXIT; END
5857	–
5853		^
5854
5855	<	CREATE PROCEDURE SHIP_ORDER
5855	>	CREATE PROCEDURE SHIP_ORDER
5856		(
5857		PO_NUM CHAR(8) CHARACTER SET NONE
5858		)
5859		AS
5860		BEGIN EXIT; END
5866	–
5861		^
5862
5863	<	CREATE PROCEDURE SUB_TOT_BUDGET
5863	>	CREATE PROCEDURE SUB_TOT_BUDGET
5864		(
5865		HEAD_DEPT CHAR(3) CHARACTER SET NONE
5866		)
5867		RETURNS
5868		(
5869	<	TOT_BUDGET DECIMAL(12, 2),
5870	<	AVG_BUDGET DECIMAL(12, 2),
5871	<	MIN_BUDGET DECIMAL(12, 2),
5872	<	MAX_BUDGET DECIMAL(12, 2)
5869	>	TOT_BUDGET DECIMAL(12,2),
5870	>	AVG_BUDGET DECIMAL(12,2),
5871	>	MIN_BUDGET DECIMAL(12,2),
5872	>	MAX_BUDGET DECIMAL(12,2)
5873		)
5874		AS
5875		BEGIN SUSPEND; EXIT; END
5882	–
5876		^
5877
5878	<	CREATE PROCEDURE "UC SPACE"
5878	>	CREATE PROCEDURE "UC SPACE"
5879		(
5880		ARG1 INTEGER
5881		)
5882		AS
5883		BEGIN EXIT; END
5891	–
5884		^
5885
5886	<	CREATE PROCEDURE "iCASE"
5886	>	CREATE PROCEDURE "iCASE"
5887		AS
5888		BEGIN EXIT; END
5897	–
5889		^
5890
5891	<	SET TERM ; ^
5901	<	COMMIT WORK;
5902	<	SET AUTODDL ON;
5903	<	COMMIT WORK;
5904	<	SET AUTODDL OFF;
5905	<	SET TERM ^ ;
5906	<
5907	<	SET TERM ; ^
5891	>	SET TERM ;^
5892		COMMIT WORK;
5893		SET AUTODDL ON;
5894	<	SET TERM ^ ;
5894	>	SET TERM ^;
5895
5896
5897		/* Triggers only will work for SQL triggers */
#	Line 5919 | Line 5903 | BEGIN
5903		if (new.cust_no is null) then
5904		new.cust_no = gen_id(cust_no_gen, 1);
5905		END
5906	<	^
5906	>	^
5907	>
5908		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
5909		ACTIVE BEFORE INSERT POSITION 0
5910		AS
#	Line 5927 | Line 5912 | BEGIN
5912		if (new.emp_no is null) then
5913		new.emp_no = gen_id(emp_no_gen, 1);
5914		END
5915	<	^
5915	>	^
5916	>
5917		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
5918		ACTIVE AFTER UPDATE POSITION 0
5919		AS
#	Line 5942 | Line 5928 | BEGIN
5928		old.salary,
5929		(new.salary - old.salary) * 100 / old.salary);
5930		END
5931	<	^
5931	>	^
5932	>
5933		CREATE TRIGGER POST_NEW_ORDER FOR SALES
5934		ACTIVE AFTER INSERT POSITION 0
5935		AS
5936		BEGIN
5937		POST_EVENT 'new_order';
5938		END
5939	<	^
5940	<	COMMIT WORK ^
5939	>	^
5940	>
5941	>	COMMIT WORK^
5942		SET TERM ;^
5943		COMMIT WORK;
5944		SET AUTODDL OFF;
5945	<	SET TERM ^ ;
5945	>	SET TERM ^;
5946
5947		/* Stored procedure Bodies */
5948
5949	<
5962	<	ALTER PROCEDURE SHOW_LANGS
5949	>	ALTER PROCEDURE SHOW_LANGS
5950		(
5951		CODE VARCHAR(5) CHARACTER SET NONE,
5952		GRADE SMALLINT,
#	Line 5980 | Line 5967 | BEGIN
5967		AND (language_req IS NOT NULL))
5968		INTO :languages;
5969		IF (languages = ' ') THEN  /* Prints 'NULL' instead of blanks */
5970	<	languages = 'NULL';
5970	>	languages = 'NULL';
5971		i = i +1;
5972		SUSPEND;
5973		END
5974		END
5975	<	^
5989	<
5975	>	^
5976
5977	<	ALTER PROCEDURE ADD_EMP_PROJ
5977	>	ALTER PROCEDURE ADD_EMP_PROJ
5978		(
5979		EMP_NO SMALLINT,
5980		PROJ_ID CHAR(5) CHARACTER SET NONE
#	Line 6001 | Line 5987 | BEGIN
5987		EXCEPTION unknown_emp_id;
5988		END
5989		END
5990	<	^
6005	<
5990	>	^
5991
5992	<	ALTER PROCEDURE ALL_LANGS
5992	>	ALTER PROCEDURE ALL_LANGS
5993		RETURNS
5994		(
5995		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 6014 | Line 5999 | RETURNS
5999		)
6000		AS
6001		BEGIN
6002	<	FOR SELECT job_code, job_grade, job_country FROM job
6002	>	FOR SELECT job_code, job_grade, job_country FROM job
6003		INTO :code, :grade, :country
6004
6005		DO
6006		BEGIN
6007	<	FOR SELECT languages FROM show_langs
6007	>	FOR SELECT languages FROM show_langs
6008		(:code, :grade, :country) INTO :lang DO
6009		SUSPEND;
6010		/* Put nice separators between rows */
#	Line 6030 | Line 6015 | BEGIN
6015		SUSPEND;
6016		END
6017		END
6018	<	^
6034	<
6018	>	^
6019
6020	<	ALTER PROCEDURE DELETE_EMPLOYEE
6020	>	ALTER PROCEDURE DELETE_EMPLOYEE
6021		(
6022		EMP_NUM INTEGER
6023		)
#	Line 6044 | Line 6028 | BEGIN
6028
6029		/*
6030		*      If there are any sales records referencing this employee,
6031	<	*      can't delete the employee until the sales are re-assigned
6031	>	*      cannot delete the employee until the sales are re-assigned
6032		*      to another employee or changed to NULL.
6033		*/
6034		SELECT count(po_number)
#	Line 6090 | Line 6074 | BEGIN
6074		WHERE emp_no = :emp_num;
6075
6076		END
6077	<	^
6094	<
6077	>	^
6078
6079	<	ALTER PROCEDURE DEPT_BUDGET
6079	>	ALTER PROCEDURE DEPT_BUDGET
6080		(
6081		DNO CHAR(3) CHARACTER SET NONE
6082		)
6083		RETURNS
6084		(
6085	<	TOT DECIMAL(12, 2)
6085	>	TOT DECIMAL(12,2)
6086		)
6087		AS
6088	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
6088	>	DECLARE VARIABLE sumb DECIMAL(12,2);
6089		DECLARE VARIABLE rdno CHAR(3);
6090		DECLARE VARIABLE cnt INTEGER;
6091		BEGIN
#	Line 6127 | Line 6110 | BEGIN
6110
6111		SUSPEND;
6112		END
6113	<	^
6131	<
6113	>	^
6114
6115	<	ALTER PROCEDURE GET_EMP_PROJ
6115	>	ALTER PROCEDURE GET_EMP_PROJ
6116		(
6117		EMP_NO SMALLINT
6118		)
#	Line 6147 | Line 6129 | BEGIN
6129		DO
6130		SUSPEND;
6131		END
6132	<	^
6151	<
6132	>	^
6133
6134	<	ALTER PROCEDURE "Has Space"
6134	>	ALTER PROCEDURE "Has Space"
6135		(
6136		ARG1 INTEGER
6137		)
6138		AS
6139		Begin End
6140	<	^
6160	<
6140	>	^
6141
6142	<	ALTER PROCEDURE MAIL_LABEL
6142	>	ALTER PROCEDURE MAIL_LABEL
6143		(
6144		CUST_NO INTEGER
6145		)
#	Line 6227 | Line 6207 | BEGIN
6207
6208		SUSPEND;
6209		END
6210	<	^
6231	<
6210	>	^
6211
6212	<	ALTER PROCEDURE ORG_CHART
6212	>	ALTER PROCEDURE ORG_CHART
6213		RETURNS
6214		(
6215		HEAD_DEPT CHAR(25) CHARACTER SET NONE,
#	Line 6270 | Line 6249 | BEGIN
6249		SUSPEND;
6250		END
6251		END
6252	<	^
6274	<
6252	>	^
6253
6254	<	ALTER PROCEDURE SHIP_ORDER
6254	>	ALTER PROCEDURE SHIP_ORDER
6255		(
6256		PO_NUM CHAR(8) CHARACTER SET NONE
6257		)
#	Line 6330 | Line 6308 | BEGIN
6308		WHERE po_number = :po_num;
6309
6310		END
6311	<	^
6334	<
6311	>	^
6312
6313	<	ALTER PROCEDURE SUB_TOT_BUDGET
6313	>	ALTER PROCEDURE SUB_TOT_BUDGET
6314		(
6315		HEAD_DEPT CHAR(3) CHARACTER SET NONE
6316		)
6317		RETURNS
6318		(
6319	<	TOT_BUDGET DECIMAL(12, 2),
6320	<	AVG_BUDGET DECIMAL(12, 2),
6321	<	MIN_BUDGET DECIMAL(12, 2),
6322	<	MAX_BUDGET DECIMAL(12, 2)
6319	>	TOT_BUDGET DECIMAL(12,2),
6320	>	AVG_BUDGET DECIMAL(12,2),
6321	>	MIN_BUDGET DECIMAL(12,2),
6322	>	MAX_BUDGET DECIMAL(12,2)
6323		)
6324		AS
6325		BEGIN
#	Line 6352 | Line 6329 | BEGIN
6329		INTO :tot_budget, :avg_budget, :min_budget, :max_budget;
6330		SUSPEND;
6331		END
6332	<	^
6356	<
6332	>	^
6333
6334	<	ALTER PROCEDURE "UC SPACE"
6334	>	ALTER PROCEDURE "UC SPACE"
6335		(
6336		ARG1 INTEGER
6337		)
6338		AS
6339		Begin End
6340	<	^
6365	<
6340	>	^
6341
6342	<	ALTER PROCEDURE "iCASE"
6342	>	ALTER PROCEDURE "iCASE"
6343		AS
6344		Begin End
6345	<	^
6371	<
6372	<	SET TERM ; ^
6373	<	COMMIT WORK;
6374	<	SET AUTODDL ON;
6375	<	COMMIT WORK;
6376	<	SET AUTODDL OFF;
6377	<	SET TERM ^ ;
6378	<
6345	>	^
6346
6347	<	SET TERM ; ^
6347	>	SET TERM ;^
6348		COMMIT WORK;
6349		SET AUTODDL ON;
6350
#	Line 6419 | Line 6386 | GRANT EXECUTE ON PROCEDURE SHIP_ORDER TO
6386		GRANT EXECUTE ON PROCEDURE SHOW_LANGS TO USER PUBLIC  WITH GRANT OPTION ;
6387		GRANT EXECUTE ON PROCEDURE SUB_TOT_BUDGET TO USER PUBLIC  WITH GRANT OPTION ;
6388
6422	–
6389		Extracting Database Schema and Data
6390		SET SQL DIALECT 3;
6391		SET AUTODDL ON;
#	Line 6432 | Line 6398 | COMMENT ON DATABASE  IS 'Employee Test D
6398		/* Domain definitions */
6399
6400		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
6401	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
6401	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
6402		DEFAULT 50000;
6403		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
6404		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 6448 | Line 6414 | CREATE DOMAIN PONUMBER AS CHAR(8);
6414		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
6415		DEFAULT 'software' NOT NULL;
6416		CREATE DOMAIN PROJNO AS CHAR(5);
6417	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
6417	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
6418		DEFAULT 0;
6419
6420		/* Table: COUNTRIES, Owner: SYSDBA */
6421
6422	<	CREATE TABLE COUNTRIES
6422	>	CREATE TABLE COUNTRIES
6423		(
6424		COUNTRY VARCHAR(64) NOT NULL,
6425		NONEU   SMALLINT,
#	Line 6466 | Line 6432 | COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
6432
6433		/* Table: COUNTRY, Owner: SYSDBA */
6434
6435	<	CREATE TABLE COUNTRY
6435	>	CREATE TABLE COUNTRY
6436		(
6437		COUNTRY COUNTRYNAME NOT NULL,
6438		CURRENCY        VARCHAR(10) NOT NULL,
#	Line 6475 | Line 6441 | PRIMARY KEY (COUNTRY)
6441
6442		/* Table: CUSTOMER, Owner: SYSDBA */
6443
6444	<	CREATE TABLE CUSTOMER
6444	>	CREATE TABLE CUSTOMER
6445		(
6446		CUST_NO CUSTNO NOT NULL,
6447		CUSTOMER        VARCHAR(25) NOT NULL,
#	Line 6495 | Line 6461 | PRIMARY KEY (CUST_NO)
6461
6462		/* Table: DEPARTMENT, Owner: SYSDBA */
6463
6464	<	CREATE TABLE DEPARTMENT
6464	>	CREATE TABLE DEPARTMENT
6465		(
6466		DEPT_NO DEPTNO NOT NULL,
6467		DEPARTMENT      VARCHAR(25) NOT NULL,
#	Line 6510 | Line 6476 | PRIMARY KEY (DEPT_NO)
6476
6477		/* Table: EMPLOYEE, Owner: SYSDBA */
6478
6479	<	CREATE TABLE EMPLOYEE
6479	>	CREATE TABLE EMPLOYEE
6480		(
6481		EMP_NO  EMPNO NOT NULL,
6482		FIRST_NAME      FIRSTNAME NOT NULL,
#	Line 6528 | Line 6494 | PRIMARY KEY (EMP_NO)
6494
6495		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
6496
6497	<	CREATE TABLE EMPLOYEE_PROJECT
6497	>	CREATE TABLE EMPLOYEE_PROJECT
6498		(
6499		EMP_NO  EMPNO NOT NULL,
6500		PROJ_ID PROJNO NOT NULL,
#	Line 6537 | Line 6503 | PRIMARY KEY (EMP_NO, PROJ_ID)
6503
6504		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
6505
6506	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
6506	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
6507		(
6508		LINE_NUM        INTEGER,
6509		CONTENT FB$OUT_TYPE
#	Line 6545 | Line 6511 | CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
6511
6512		/* Table: JOB, Owner: SYSDBA */
6513
6514	<	CREATE TABLE JOB
6514	>	CREATE TABLE JOB
6515		(
6516		JOB_CODE        JOBCODE NOT NULL,
6517		JOB_GRADE       JOBGRADE NOT NULL,
#	Line 6560 | Line 6526 | PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
6526
6527		/* Table: PROJECT, Owner: SYSDBA */
6528
6529	<	CREATE TABLE PROJECT
6529	>	CREATE TABLE PROJECT
6530		(
6531		PROJ_ID PROJNO NOT NULL,
6532		PROJ_NAME       VARCHAR(20) NOT NULL,
#	Line 6573 | Line 6539 | PRIMARY KEY (PROJ_ID)
6539
6540		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
6541
6542	<	CREATE TABLE PROJ_DEPT_BUDGET
6542	>	CREATE TABLE PROJ_DEPT_BUDGET
6543		(
6544		FISCAL_YEAR     INTEGER NOT NULL,
6545		PROJ_ID PROJNO NOT NULL,
#	Line 6585 | Line 6551 | PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
6551
6552		/* Table: SALARY_HISTORY, Owner: SYSDBA */
6553
6554	<	CREATE TABLE SALARY_HISTORY
6554	>	CREATE TABLE SALARY_HISTORY
6555		(
6556		EMP_NO  EMPNO NOT NULL,
6557		CHANGE_DATE     TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 6598 | Line 6564 | PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
6564
6565		/* Table: SALES, Owner: SYSDBA */
6566
6567	<	CREATE TABLE SALES
6567	>	CREATE TABLE SALES
6568		(
6569		PO_NUMBER       PONUMBER NOT NULL,
6570		CUST_NO CUSTNO NOT NULL,
#	Line 6609 | Line 6575 | CREATE TABLE SALES
6575		DATE_NEEDED     TIMESTAMP,
6576		PAID    CHAR(1) DEFAULT 'n',
6577		QTY_ORDERED     INTEGER DEFAULT 1 NOT NULL,
6578	<	TOTAL_VALUE     DECIMAL(9, 2) NOT NULL,
6578	>	TOTAL_VALUE     DECIMAL(9,2) NOT NULL,
6579		DISCOUNT        FLOAT DEFAULT 0 NOT NULL,
6580		ITEM_TYPE       PRODTYPE,
6581		AGED COMPUTED BY (ship_date - order_date),
#	Line 6626 | Line 6592 | ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
6592
6593
6594		DECLARE EXTERNAL FUNCTION I64TRUNCATE
6595	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
6595	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
6596		RETURNS PARAMETER 2
6597		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
6598		;
#	Line 7366 | Line 7332 | ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1
7332		/* View: DEPTLIST, Owner: SYSDBA */
7333
7334		CREATE VIEW DEPTLIST (
7335	<	EMP_NO,
7336	<	FIRST_NAME,
7337	<	LAST_NAME,
7338	<	PHONE_EXT,
7339	<	HIRE_DATE,
7340	<	DEPT_NO,
7341	<	JOB_CODE,
7342	<	JOB_GRADE,
7343	<	JOB_COUNTRY,
7344	<	SALARY,
7345	<	FULL_NAME,
7346	<	DEPT_PATH,
7335	>	EMP_NO,
7336	>	FIRST_NAME,
7337	>	LAST_NAME,
7338	>	PHONE_EXT,
7339	>	HIRE_DATE,
7340	>	DEPT_NO,
7341	>	JOB_CODE,
7342	>	JOB_GRADE,
7343	>	JOB_COUNTRY,
7344	>	SALARY,
7345	>	FULL_NAME,
7346	>	DEPT_PATH,
7347		DEPT_KEY_PATH
7348		) AS
7349
#	Line 7401 | Line 7367 | JOIN Depts D On D.DEPT_NO = A.DEPT_NO
7367		/* View: PHONE_LIST, Owner: SYSDBA */
7368
7369		CREATE VIEW PHONE_LIST (
7370	<	EMP_NO,
7371	<	FIRST_NAME,
7372	<	LAST_NAME,
7373	<	PHONE_EXT,
7374	<	LOCATION,
7370	>	EMP_NO,
7371	>	FIRST_NAME,
7372	>	LAST_NAME,
7373	>	PHONE_EXT,
7374	>	LOCATION,
7375		PHONE_NO
7376		) AS
7377
#	Line 7508 | Line 7474 | CREATE EXCEPTION REASSIGN_SALES 'Reassig
7474		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
7475		COMMIT WORK;
7476		SET AUTODDL OFF;
7477	<	SET TERM ^ ;
7477	>	SET TERM ^;
7478
7479		/* Stored procedures Definitions*/
7480
#	Line 7525 | Line 7491 | RETURNS
7491		AS
7492		BEGIN SUSPEND; EXIT; END
7493		^
7494	+
7495		CREATE PROCEDURE ADD_EMP_PROJ
7496		(
7497		EMP_NO SMALLINT,
#	Line 7533 | Line 7500 | CREATE PROCEDURE ADD_EMP_PROJ
7500		AS
7501		BEGIN EXIT; END
7502		^
7503	+
7504		CREATE PROCEDURE ALL_LANGS
7505		RETURNS
7506		(
#	Line 7544 | Line 7512 | RETURNS
7512		AS
7513		BEGIN SUSPEND; EXIT; END
7514		^
7515	+
7516		CREATE PROCEDURE DELETE_EMPLOYEE
7517		(
7518		EMP_NUM INTEGER
#	Line 7551 | Line 7520 | CREATE PROCEDURE DELETE_EMPLOYEE
7520		AS
7521		BEGIN EXIT; END
7522		^
7523	+
7524		CREATE PROCEDURE DEPT_BUDGET
7525		(
7526		DNO CHAR(3) CHARACTER SET NONE
7527		)
7528		RETURNS
7529		(
7530	<	TOT DECIMAL(12, 2)
7530	>	TOT DECIMAL(12,2)
7531		)
7532		AS
7533		BEGIN SUSPEND; EXIT; END
7534		^
7535	+
7536		CREATE PROCEDURE GET_EMP_PROJ
7537		(
7538		EMP_NO SMALLINT
#	Line 7573 | Line 7544 | RETURNS
7544		AS
7545		BEGIN SUSPEND; EXIT; END
7546		^
7547	+
7548		CREATE PROCEDURE "Has Space"
7549		(
7550		ARG1 INTEGER
#	Line 7580 | Line 7552 | CREATE PROCEDURE "Has Space"
7552		AS
7553		BEGIN EXIT; END
7554		^
7555	+
7556		CREATE PROCEDURE MAIL_LABEL
7557		(
7558		CUST_NO INTEGER
#	Line 7596 | Line 7569 | RETURNS
7569		AS
7570		BEGIN SUSPEND; EXIT; END
7571		^
7572	+
7573		CREATE PROCEDURE ORG_CHART
7574		RETURNS
7575		(
#	Line 7608 | Line 7582 | RETURNS
7582		AS
7583		BEGIN SUSPEND; EXIT; END
7584		^
7585	+
7586		CREATE PROCEDURE SHIP_ORDER
7587		(
7588		PO_NUM CHAR(8) CHARACTER SET NONE
#	Line 7615 | Line 7590 | CREATE PROCEDURE SHIP_ORDER
7590		AS
7591		BEGIN EXIT; END
7592		^
7593	+
7594		CREATE PROCEDURE SUB_TOT_BUDGET
7595		(
7596		HEAD_DEPT CHAR(3) CHARACTER SET NONE
7597		)
7598		RETURNS
7599		(
7600	<	TOT_BUDGET DECIMAL(12, 2),
7601	<	AVG_BUDGET DECIMAL(12, 2),
7602	<	MIN_BUDGET DECIMAL(12, 2),
7603	<	MAX_BUDGET DECIMAL(12, 2)
7600	>	TOT_BUDGET DECIMAL(12,2),
7601	>	AVG_BUDGET DECIMAL(12,2),
7602	>	MIN_BUDGET DECIMAL(12,2),
7603	>	MAX_BUDGET DECIMAL(12,2)
7604		)
7605		AS
7606		BEGIN SUSPEND; EXIT; END
7607		^
7608	+
7609		CREATE PROCEDURE "UC SPACE"
7610		(
7611		ARG1 INTEGER
#	Line 7636 | Line 7613 | CREATE PROCEDURE "UC SPACE"
7613		AS
7614		BEGIN EXIT; END
7615		^
7616	+
7617		CREATE PROCEDURE "iCASE"
7618		AS
7619		BEGIN EXIT; END
7620		^
7621	<	SET TERM ; ^
7621	>
7622	>	SET TERM ;^
7623		COMMIT WORK;
7624		SET AUTODDL ON;
7625	<	SET TERM ^ ;
7625	>	SET TERM ^;
7626
7627
7628		/* Triggers only will work for SQL triggers */
#	Line 7655 | Line 7634 | BEGIN
7634		if (new.cust_no is null) then
7635		new.cust_no = gen_id(cust_no_gen, 1);
7636		END
7637	<	^
7637	>	^
7638	>
7639		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
7640		ACTIVE BEFORE INSERT POSITION 0
7641		AS
#	Line 7663 | Line 7643 | BEGIN
7643		if (new.emp_no is null) then
7644		new.emp_no = gen_id(emp_no_gen, 1);
7645		END
7646	<	^
7646	>	^
7647	>
7648		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
7649		ACTIVE AFTER UPDATE POSITION 0
7650		AS
#	Line 7678 | Line 7659 | BEGIN
7659		old.salary,
7660		(new.salary - old.salary) * 100 / old.salary);
7661		END
7662	<	^
7662	>	^
7663	>
7664		CREATE TRIGGER POST_NEW_ORDER FOR SALES
7665		ACTIVE AFTER INSERT POSITION 0
7666		AS
7667		BEGIN
7668		POST_EVENT 'new_order';
7669		END
7670	<	^
7671	<	COMMIT WORK ^
7670	>	^
7671	>
7672	>	COMMIT WORK^
7673		SET TERM ;^
7674		COMMIT WORK;
7675		SET AUTODDL OFF;
7676	<	SET TERM ^ ;
7676	>	SET TERM ^;
7677
7678		/* Stored procedure Bodies */
7679
7697	–
7680		ALTER PROCEDURE SHOW_LANGS
7681		(
7682		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 7716 | Line 7698 | BEGIN
7698		AND (language_req IS NOT NULL))
7699		INTO :languages;
7700		IF (languages = ' ') THEN  /* Prints 'NULL' instead of blanks */
7701	<	languages = 'NULL';
7701	>	languages = 'NULL';
7702		i = i +1;
7703		SUSPEND;
7704		END
#	Line 7748 | Line 7730 | RETURNS
7730		)
7731		AS
7732		BEGIN
7733	<	FOR SELECT job_code, job_grade, job_country FROM job
7733	>	FOR SELECT job_code, job_grade, job_country FROM job
7734		INTO :code, :grade, :country
7735
7736		DO
7737		BEGIN
7738	<	FOR SELECT languages FROM show_langs
7738	>	FOR SELECT languages FROM show_langs
7739		(:code, :grade, :country) INTO :lang DO
7740		SUSPEND;
7741		/* Put nice separators between rows */
#	Line 7777 | Line 7759 | BEGIN
7759
7760		/*
7761		*      If there are any sales records referencing this employee,
7762	<	*      can't delete the employee until the sales are re-assigned
7762	>	*      cannot delete the employee until the sales are re-assigned
7763		*      to another employee or changed to NULL.
7764		*/
7765		SELECT count(po_number)
#	Line 7831 | Line 7813 | ALTER PROCEDURE DEPT_BUDGET
7813		)
7814		RETURNS
7815		(
7816	<	TOT DECIMAL(12, 2)
7816	>	TOT DECIMAL(12,2)
7817		)
7818		AS
7819	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
7819	>	DECLARE VARIABLE sumb DECIMAL(12,2);
7820		DECLARE VARIABLE rdno CHAR(3);
7821		DECLARE VARIABLE cnt INTEGER;
7822		BEGIN
#	Line 8065 | Line 8047 | ALTER PROCEDURE SUB_TOT_BUDGET
8047		)
8048		RETURNS
8049		(
8050	<	TOT_BUDGET DECIMAL(12, 2),
8051	<	AVG_BUDGET DECIMAL(12, 2),
8052	<	MIN_BUDGET DECIMAL(12, 2),
8053	<	MAX_BUDGET DECIMAL(12, 2)
8050	>	TOT_BUDGET DECIMAL(12,2),
8051	>	AVG_BUDGET DECIMAL(12,2),
8052	>	MIN_BUDGET DECIMAL(12,2),
8053	>	MAX_BUDGET DECIMAL(12,2)
8054		)
8055		AS
8056		BEGIN
#	Line 8092 | Line 8074 | ALTER PROCEDURE "iCASE"
8074		AS
8075		Begin End
8076		^
8077	<	SET TERM ; ^
8077	>
8078	>	SET TERM ;^
8079		COMMIT WORK;
8080		SET AUTODDL ON;
8081
#	Line 8143 | Line 8126 | COMMENT ON DATABASE  IS 'Employee Test D
8126		/* Domain definitions */
8127
8128		CREATE DOMAIN ADDRESSLINE AS VARCHAR(30);
8129	<	CREATE DOMAIN BUDGET AS DECIMAL(12, 2)
8129	>	CREATE DOMAIN BUDGET AS DECIMAL(12,2)
8130		DEFAULT 50000;
8131		CREATE DOMAIN COUNTRYNAME AS VARCHAR(15);
8132		CREATE DOMAIN CUSTNO AS INTEGER;
#	Line 8159 | Line 8142 | CREATE DOMAIN PONUMBER AS CHAR(8);
8142		CREATE DOMAIN PRODTYPE AS VARCHAR(12)
8143		DEFAULT 'software' NOT NULL;
8144		CREATE DOMAIN PROJNO AS CHAR(5);
8145	<	CREATE DOMAIN SALARY AS NUMERIC(10, 2)
8145	>	CREATE DOMAIN SALARY AS NUMERIC(10,2)
8146		DEFAULT 0;
8147
8148		/* Table: COUNTRIES, Owner: SYSDBA */
8149
8150	<	CREATE TABLE COUNTRIES
8150	>	CREATE TABLE COUNTRIES
8151		(
8152		COUNTRY VARCHAR(64) NOT NULL,
8153		NONEU   SMALLINT,
#	Line 8177 | Line 8160 | COMMENT ON COLUMN COUNTRIES.ISO2 IS 'Two
8160
8161		/* Table: COUNTRY, Owner: SYSDBA */
8162
8163	<	CREATE TABLE COUNTRY
8163	>	CREATE TABLE COUNTRY
8164		(
8165		COUNTRY COUNTRYNAME NOT NULL,
8166		CURRENCY        VARCHAR(10) NOT NULL,
#	Line 8186 | Line 8169 | PRIMARY KEY (COUNTRY)
8169
8170		/* Table: CUSTOMER, Owner: SYSDBA */
8171
8172	<	CREATE TABLE CUSTOMER
8172	>	CREATE TABLE CUSTOMER
8173		(
8174		CUST_NO CUSTNO NOT NULL,
8175		CUSTOMER        VARCHAR(25) NOT NULL,
#	Line 8206 | Line 8189 | PRIMARY KEY (CUST_NO)
8189
8190		/* Table: DEPARTMENT, Owner: SYSDBA */
8191
8192	<	CREATE TABLE DEPARTMENT
8192	>	CREATE TABLE DEPARTMENT
8193		(
8194		DEPT_NO DEPTNO NOT NULL,
8195		DEPARTMENT      VARCHAR(25) NOT NULL,
#	Line 8221 | Line 8204 | PRIMARY KEY (DEPT_NO)
8204
8205		/* Table: EMPLOYEE, Owner: SYSDBA */
8206
8207	<	CREATE TABLE EMPLOYEE
8207	>	CREATE TABLE EMPLOYEE
8208		(
8209		EMP_NO  EMPNO NOT NULL,
8210		FIRST_NAME      FIRSTNAME NOT NULL,
#	Line 8239 | Line 8222 | PRIMARY KEY (EMP_NO)
8222
8223		/* Table: EMPLOYEE_PROJECT, Owner: SYSDBA */
8224
8225	<	CREATE TABLE EMPLOYEE_PROJECT
8225	>	CREATE TABLE EMPLOYEE_PROJECT
8226		(
8227		EMP_NO  EMPNO NOT NULL,
8228		PROJ_ID PROJNO NOT NULL,
#	Line 8248 | Line 8231 | PRIMARY KEY (EMP_NO, PROJ_ID)
8231
8232		/* Table: FB$OUT_TABLE, Owner: SYSDBA */
8233
8234	<	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
8234	>	CREATE GLOBAL TEMPORARY TABLE FB$OUT_TABLE
8235		(
8236		LINE_NUM        INTEGER,
8237		CONTENT FB$OUT_TYPE
#	Line 8256 | Line 8239 | CREATE GLOBAL TEMPORARY TABLE FB$OUT_TAB
8239
8240		/* Table: JOB, Owner: SYSDBA */
8241
8242	<	CREATE TABLE JOB
8242	>	CREATE TABLE JOB
8243		(
8244		JOB_CODE        JOBCODE NOT NULL,
8245		JOB_GRADE       JOBGRADE NOT NULL,
#	Line 8271 | Line 8254 | PRIMARY KEY (JOB_CODE, JOB_GRADE, JOB_CO
8254
8255		/* Table: PROJECT, Owner: SYSDBA */
8256
8257	<	CREATE TABLE PROJECT
8257	>	CREATE TABLE PROJECT
8258		(
8259		PROJ_ID PROJNO NOT NULL,
8260		PROJ_NAME       VARCHAR(20) NOT NULL,
#	Line 8284 | Line 8267 | PRIMARY KEY (PROJ_ID)
8267
8268		/* Table: PROJ_DEPT_BUDGET, Owner: SYSDBA */
8269
8270	<	CREATE TABLE PROJ_DEPT_BUDGET
8270	>	CREATE TABLE PROJ_DEPT_BUDGET
8271		(
8272		FISCAL_YEAR     INTEGER NOT NULL,
8273		PROJ_ID PROJNO NOT NULL,
#	Line 8296 | Line 8279 | PRIMARY KEY (FISCAL_YEAR, PROJ_ID, DEPT_
8279
8280		/* Table: SALARY_HISTORY, Owner: SYSDBA */
8281
8282	<	CREATE TABLE SALARY_HISTORY
8282	>	CREATE TABLE SALARY_HISTORY
8283		(
8284		EMP_NO  EMPNO NOT NULL,
8285		CHANGE_DATE     TIMESTAMP DEFAULT 'NOW' NOT NULL,
#	Line 8309 | Line 8292 | PRIMARY KEY (EMP_NO, CHANGE_DATE, UPDATE
8292
8293		/* Table: SALES, Owner: SYSDBA */
8294
8295	<	CREATE TABLE SALES
8295	>	CREATE TABLE SALES
8296		(
8297		PO_NUMBER       PONUMBER NOT NULL,
8298		CUST_NO CUSTNO NOT NULL,
#	Line 8320 | Line 8303 | CREATE TABLE SALES
8303		DATE_NEEDED     TIMESTAMP,
8304		PAID    CHAR(1) DEFAULT 'n',
8305		QTY_ORDERED     INTEGER DEFAULT 1 NOT NULL,
8306	<	TOTAL_VALUE     DECIMAL(9, 2) NOT NULL,
8306	>	TOTAL_VALUE     DECIMAL(9,2) NOT NULL,
8307		DISCOUNT        FLOAT DEFAULT 0 NOT NULL,
8308		ITEM_TYPE       PRODTYPE,
8309		AGED COMPUTED BY (ship_date - order_date),
#	Line 8337 | Line 8320 | ENTRY_POINT 'addDay' MODULE_NAME 'fbudf'
8320
8321
8322		DECLARE EXTERNAL FUNCTION I64TRUNCATE
8323	<	NUMERIC(18, 0) BY DESCRIPTOR, NUMERIC(18, 0) BY DESCRIPTOR
8323	>	NUMERIC(18,0) BY DESCRIPTOR, NUMERIC(18,0) BY DESCRIPTOR
8324		RETURNS PARAMETER 2
8325		ENTRY_POINT 'fbtruncate' MODULE_NAME 'fbudf'
8326		;
#	Line 9077 | Line 9060 | ALTER SEQUENCE FB$OUT_SEQ RESTART WITH 1
9060		/* View: DEPTLIST, Owner: SYSDBA */
9061
9062		CREATE VIEW DEPTLIST (
9063	<	EMP_NO,
9064	<	FIRST_NAME,
9065	<	LAST_NAME,
9066	<	PHONE_EXT,
9067	<	HIRE_DATE,
9068	<	DEPT_NO,
9069	<	JOB_CODE,
9070	<	JOB_GRADE,
9071	<	JOB_COUNTRY,
9072	<	SALARY,
9073	<	FULL_NAME,
9074	<	DEPT_PATH,
9063	>	EMP_NO,
9064	>	FIRST_NAME,
9065	>	LAST_NAME,
9066	>	PHONE_EXT,
9067	>	HIRE_DATE,
9068	>	DEPT_NO,
9069	>	JOB_CODE,
9070	>	JOB_GRADE,
9071	>	JOB_COUNTRY,
9072	>	SALARY,
9073	>	FULL_NAME,
9074	>	DEPT_PATH,
9075		DEPT_KEY_PATH
9076		) AS
9077
#	Line 9112 | Line 9095 | JOIN Depts D On D.DEPT_NO = A.DEPT_NO
9095		/* View: PHONE_LIST, Owner: SYSDBA */
9096
9097		CREATE VIEW PHONE_LIST (
9098	<	EMP_NO,
9099	<	FIRST_NAME,
9100	<	LAST_NAME,
9101	<	PHONE_EXT,
9102	<	LOCATION,
9098	>	EMP_NO,
9099	>	FIRST_NAME,
9100	>	LAST_NAME,
9101	>	PHONE_EXT,
9102	>	LOCATION,
9103		PHONE_NO
9104		) AS
9105
#	Line 9219 | Line 9202 | CREATE EXCEPTION REASSIGN_SALES 'Reassig
9202		CREATE EXCEPTION UNKNOWN_EMP_ID 'Invalid employee number or project id.';
9203		COMMIT WORK;
9204		SET AUTODDL OFF;
9205	<	SET TERM ^ ;
9205	>	SET TERM ^;
9206
9207		/* Stored procedures Definitions*/
9208
#	Line 9236 | Line 9219 | RETURNS
9219		AS
9220		BEGIN SUSPEND; EXIT; END
9221		^
9222	+
9223		CREATE PROCEDURE ADD_EMP_PROJ
9224		(
9225		EMP_NO SMALLINT,
#	Line 9244 | Line 9228 | CREATE PROCEDURE ADD_EMP_PROJ
9228		AS
9229		BEGIN EXIT; END
9230		^
9231	+
9232		CREATE PROCEDURE ALL_LANGS
9233		RETURNS
9234		(
#	Line 9255 | Line 9240 | RETURNS
9240		AS
9241		BEGIN SUSPEND; EXIT; END
9242		^
9243	+
9244		CREATE PROCEDURE DELETE_EMPLOYEE
9245		(
9246		EMP_NUM INTEGER
#	Line 9262 | Line 9248 | CREATE PROCEDURE DELETE_EMPLOYEE
9248		AS
9249		BEGIN EXIT; END
9250		^
9251	+
9252		CREATE PROCEDURE DEPT_BUDGET
9253		(
9254		DNO CHAR(3) CHARACTER SET NONE
9255		)
9256		RETURNS
9257		(
9258	<	TOT DECIMAL(12, 2)
9258	>	TOT DECIMAL(12,2)
9259		)
9260		AS
9261		BEGIN SUSPEND; EXIT; END
9262		^
9263	+
9264		CREATE PROCEDURE GET_EMP_PROJ
9265		(
9266		EMP_NO SMALLINT
#	Line 9284 | Line 9272 | RETURNS
9272		AS
9273		BEGIN SUSPEND; EXIT; END
9274		^
9275	+
9276		CREATE PROCEDURE "Has Space"
9277		(
9278		ARG1 INTEGER
#	Line 9291 | Line 9280 | CREATE PROCEDURE "Has Space"
9280		AS
9281		BEGIN EXIT; END
9282		^
9283	+
9284		CREATE PROCEDURE MAIL_LABEL
9285		(
9286		CUST_NO INTEGER
#	Line 9307 | Line 9297 | RETURNS
9297		AS
9298		BEGIN SUSPEND; EXIT; END
9299		^
9300	+
9301		CREATE PROCEDURE ORG_CHART
9302		RETURNS
9303		(
#	Line 9319 | Line 9310 | RETURNS
9310		AS
9311		BEGIN SUSPEND; EXIT; END
9312		^
9313	+
9314		CREATE PROCEDURE SHIP_ORDER
9315		(
9316		PO_NUM CHAR(8) CHARACTER SET NONE
#	Line 9326 | Line 9318 | CREATE PROCEDURE SHIP_ORDER
9318		AS
9319		BEGIN EXIT; END
9320		^
9321	+
9322		CREATE PROCEDURE SUB_TOT_BUDGET
9323		(
9324		HEAD_DEPT CHAR(3) CHARACTER SET NONE
9325		)
9326		RETURNS
9327		(
9328	<	TOT_BUDGET DECIMAL(12, 2),
9329	<	AVG_BUDGET DECIMAL(12, 2),
9330	<	MIN_BUDGET DECIMAL(12, 2),
9331	<	MAX_BUDGET DECIMAL(12, 2)
9328	>	TOT_BUDGET DECIMAL(12,2),
9329	>	AVG_BUDGET DECIMAL(12,2),
9330	>	MIN_BUDGET DECIMAL(12,2),
9331	>	MAX_BUDGET DECIMAL(12,2)
9332		)
9333		AS
9334		BEGIN SUSPEND; EXIT; END
9335		^
9336	+
9337		CREATE PROCEDURE "UC SPACE"
9338		(
9339		ARG1 INTEGER
#	Line 9347 | Line 9341 | CREATE PROCEDURE "UC SPACE"
9341		AS
9342		BEGIN EXIT; END
9343		^
9344	+
9345		CREATE PROCEDURE "iCASE"
9346		AS
9347		BEGIN EXIT; END
9348		^
9349	<	SET TERM ; ^
9349	>
9350	>	SET TERM ;^
9351		COMMIT WORK;
9352		SET AUTODDL ON;
9353	<	SET TERM ^ ;
9353	>	SET TERM ^;
9354
9355
9356		/* Triggers only will work for SQL triggers */
#	Line 9366 | Line 9362 | BEGIN
9362		if (new.cust_no is null) then
9363		new.cust_no = gen_id(cust_no_gen, 1);
9364		END
9365	<	^
9365	>	^
9366	>
9367		CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
9368		ACTIVE BEFORE INSERT POSITION 0
9369		AS
#	Line 9374 | Line 9371 | BEGIN
9371		if (new.emp_no is null) then
9372		new.emp_no = gen_id(emp_no_gen, 1);
9373		END
9374	<	^
9374	>	^
9375	>
9376		CREATE TRIGGER SAVE_SALARY_CHANGE FOR EMPLOYEE
9377		ACTIVE AFTER UPDATE POSITION 0
9378		AS
#	Line 9389 | Line 9387 | BEGIN
9387		old.salary,
9388		(new.salary - old.salary) * 100 / old.salary);
9389		END
9390	<	^
9390	>	^
9391	>
9392		CREATE TRIGGER POST_NEW_ORDER FOR SALES
9393		ACTIVE AFTER INSERT POSITION 0
9394		AS
9395		BEGIN
9396		POST_EVENT 'new_order';
9397		END
9398	<	^
9399	<	COMMIT WORK ^
9398	>	^
9399	>
9400	>	COMMIT WORK^
9401		SET TERM ;^
9402		COMMIT WORK;
9403		SET AUTODDL OFF;
9404	<	SET TERM ^ ;
9404	>	SET TERM ^;
9405
9406		/* Stored procedure Bodies */
9407
9408	–
9408		ALTER PROCEDURE SHOW_LANGS
9409		(
9410		CODE VARCHAR(5) CHARACTER SET NONE,
#	Line 9427 | Line 9426 | BEGIN
9426		AND (language_req IS NOT NULL))
9427		INTO :languages;
9428		IF (languages = ' ') THEN  /* Prints 'NULL' instead of blanks */
9429	<	languages = 'NULL';
9429	>	languages = 'NULL';
9430		i = i +1;
9431		SUSPEND;
9432		END
#	Line 9459 | Line 9458 | RETURNS
9458		)
9459		AS
9460		BEGIN
9461	<	FOR SELECT job_code, job_grade, job_country FROM job
9461	>	FOR SELECT job_code, job_grade, job_country FROM job
9462		INTO :code, :grade, :country
9463
9464		DO
9465		BEGIN
9466	<	FOR SELECT languages FROM show_langs
9466	>	FOR SELECT languages FROM show_langs
9467		(:code, :grade, :country) INTO :lang DO
9468		SUSPEND;
9469		/* Put nice separators between rows */
#	Line 9488 | Line 9487 | BEGIN
9487
9488		/*
9489		*      If there are any sales records referencing this employee,
9490	<	*      can't delete the employee until the sales are re-assigned
9490	>	*      cannot delete the employee until the sales are re-assigned
9491		*      to another employee or changed to NULL.
9492		*/
9493		SELECT count(po_number)
#	Line 9542 | Line 9541 | ALTER PROCEDURE DEPT_BUDGET
9541		)
9542		RETURNS
9543		(
9544	<	TOT DECIMAL(12, 2)
9544	>	TOT DECIMAL(12,2)
9545		)
9546		AS
9547	<	DECLARE VARIABLE sumb DECIMAL(12, 2);
9547	>	DECLARE VARIABLE sumb DECIMAL(12,2);
9548		DECLARE VARIABLE rdno CHAR(3);
9549		DECLARE VARIABLE cnt INTEGER;
9550		BEGIN
#	Line 9776 | Line 9775 | ALTER PROCEDURE SUB_TOT_BUDGET
9775		)
9776		RETURNS
9777		(
9778	<	TOT_BUDGET DECIMAL(12, 2),
9779	<	AVG_BUDGET DECIMAL(12, 2),
9780	<	MIN_BUDGET DECIMAL(12, 2),
9781	<	MAX_BUDGET DECIMAL(12, 2)
9778	>	TOT_BUDGET DECIMAL(12,2),
9779	>	AVG_BUDGET DECIMAL(12,2),
9780	>	MIN_BUDGET DECIMAL(12,2),
9781	>	MAX_BUDGET DECIMAL(12,2)
9782		)
9783		AS
9784		BEGIN
#	Line 9803 | Line 9802 | ALTER PROCEDURE "iCASE"
9802		AS
9803		Begin End
9804		^
9805	<	SET TERM ; ^
9805	>
9806	>	SET TERM ;^
9807		COMMIT WORK;
9808		SET AUTODDL ON;
9809
#	Line 9856 | Line 9856 | Output from diff command
9856		---
9857		> /* CREATE DATABASE 'localhost:/tmp/ibx-testsuite/testsuite1.fdb' PAGE_SIZE 8192
9858		8c6
9859	<	<  DEFAULT CHARACTER SET NONE;
9859	>	<  DEFAULT CHARACTER SET NONE;
9860		---
9861		>  DEFAULT CHARACTER SET NONE; */
9862	<	204d201
9863	<	<
9864	<	212d208
9865	<	<
9866	<	220d215
9867	<	<
9868	<	964a960
9862	>	961a960
9863		>
9864	<	991a988
9864	>	988a988
9865		>
9872	–	1093,1099d1089
9873	–	< SET TERM ; ^
9874	–	< COMMIT WORK;
9875	–	< SET AUTODDL ON;
9876	–	< COMMIT WORK;
9877	–	< SET AUTODDL OFF;
9878	–	< SET TERM ^ ;
9879	–	<
9880	–	1102c1092
9881	–	< CREATE PROCEDURE SHOW_LANGS
9882	–	---
9883	–	> CREATE PROCEDURE SHOW_LANGS
9884	–	1114d1103
9885	–	<
9886	–	1116,1117c1105
9887	–	<
9888	–	< CREATE PROCEDURE ADD_EMP_PROJ
9889	–	---
9890	–	> CREATE PROCEDURE ADD_EMP_PROJ
9891	–	1124d1111
9892	–	<
9893	–	1126,1127c1113
9894	–	<
9895	–	< CREATE PROCEDURE ALL_LANGS
9896	–	---
9897	–	> CREATE PROCEDURE ALL_LANGS
9898	–	1137d1122
9899	–	<
9900	–	1139,1140c1124
9901	–	<
9902	–	< CREATE PROCEDURE DELETE_EMPLOYEE
9903	–	---
9904	–	> CREATE PROCEDURE DELETE_EMPLOYEE
9905	–	1146d1129
9906	–	<
9907	–	1148,1149c1131
9908	–	<
9909	–	< CREATE PROCEDURE DEPT_BUDGET
9910	–	---
9911	–	> CREATE PROCEDURE DEPT_BUDGET
9912	–	1159d1140
9913	–	<
9914	–	1161,1162c1142
9915	–	<
9916	–	< CREATE PROCEDURE GET_EMP_PROJ
9917	–	---
9918	–	> CREATE PROCEDURE GET_EMP_PROJ
9919	–	1172d1151
9920	–	<
9921	–	1174,1175c1153
9922	–	<
9923	–	< CREATE PROCEDURE "Has Space"
9924	–	---
9925	–	> CREATE PROCEDURE "Has Space"
9926	–	1181d1158
9927	–	<
9928	–	1183,1184c1160
9929	–	<
9930	–	< CREATE PROCEDURE MAIL_LABEL
9931	–	---
9932	–	> CREATE PROCEDURE MAIL_LABEL
9933	–	1199d1174
9934	–	<
9935	–	1201,1202c1176
9936	–	<
9937	–	< CREATE PROCEDURE ORG_CHART
9938	–	---
9939	–	> CREATE PROCEDURE ORG_CHART
9940	–	1213d1186
9941	–	<
9942	–	1215,1216c1188
9943	–	<
9944	–	< CREATE PROCEDURE SHIP_ORDER
9945	–	---
9946	–	> CREATE PROCEDURE SHIP_ORDER
9947	–	1222d1193
9948	–	<
9949	–	1224,1225c1195
9950	–	<
9951	–	< CREATE PROCEDURE SUB_TOT_BUDGET
9952	–	---
9953	–	> CREATE PROCEDURE SUB_TOT_BUDGET
9954	–	1238d1207
9955	–	<
9956	–	1240,1241c1209
9957	–	<
9958	–	< CREATE PROCEDURE "UC SPACE"
9959	–	---
9960	–	> CREATE PROCEDURE "UC SPACE"
9961	–	1247d1214
9962	–	<
9963	–	1249,1250c1216
9964	–	<
9965	–	< CREATE PROCEDURE "iCASE"
9966	–	---
9967	–	> CREATE PROCEDURE "iCASE"
9968	–	1253d1218
9969	–	<
9970	–	1255,1262d1219
9971	–	<
9972	–	< SET TERM ; ^
9973	–	< COMMIT WORK;
9974	–	< SET AUTODDL ON;
9975	–	< COMMIT WORK;
9976	–	< SET AUTODDL OFF;
9977	–	< SET TERM ^ ;
9978	–	<
9979	–	1318c1275
9980	–	< ALTER PROCEDURE SHOW_LANGS
9981	–	---
9982	–	> ALTER PROCEDURE SHOW_LANGS
9983	–	1344,1345c1301
9984	–	<  ^
9985	–	<
9986	–	---
9987	–	> ^
9988	–	1347c1303
9989	–	< ALTER PROCEDURE ADD_EMP_PROJ
9990	–	---
9991	–	> ALTER PROCEDURE ADD_EMP_PROJ
9992	–	1360,1361c1316
9993	–	<  ^
9994	–	<
9995	–	---
9996	–	> ^
9997	–	1363c1318
9998	–	< ALTER PROCEDURE ALL_LANGS
9999	–	---
10000	–	> ALTER PROCEDURE ALL_LANGS
10001	–	1389,1390c1344
10002	–	<  ^
10003	–	<
10004	–	---
10005	–	> ^
10006	–	1392c1346
10007	–	< ALTER PROCEDURE DELETE_EMPLOYEE
10008	–	---
10009	–	> ALTER PROCEDURE DELETE_EMPLOYEE
10010	–	1449,1450c1403
10011	–	<  ^
10012	–	<
10013	–	---
10014	–	> ^
10015	–	1452c1405
10016	–	< ALTER PROCEDURE DEPT_BUDGET
10017	–	---
10018	–	> ALTER PROCEDURE DEPT_BUDGET
10019	–	1486,1487c1439
10020	–	<  ^
10021	–	<
10022	–	---
10023	–	> ^
10024	–	1489c1441
10025	–	< ALTER PROCEDURE GET_EMP_PROJ
10026	–	---
10027	–	> ALTER PROCEDURE GET_EMP_PROJ
10028	–	1506,1507c1458
10029	–	<  ^
10030	–	<
10031	–	---
10032	–	> ^
10033	–	1509c1460
10034	–	< ALTER PROCEDURE "Has Space"
10035	–	---
10036	–	> ALTER PROCEDURE "Has Space"
10037	–	1515,1516c1466
10038	–	<  ^
10039	–	<
10040	–	---
10041	–	> ^
10042	–	1518c1468
10043	–	< ALTER PROCEDURE MAIL_LABEL
10044	–	---
10045	–	> ALTER PROCEDURE MAIL_LABEL
10046	–	1586,1587c1536
10047	–	<  ^
10048	–	<
10049	–	---
10050	–	> ^
10051	–	1589c1538
10052	–	< ALTER PROCEDURE ORG_CHART
10053	–	---
10054	–	> ALTER PROCEDURE ORG_CHART
10055	–	1629,1630c1578
10056	–	<  ^
10057	–	<
10058	–	---
10059	–	> ^
10060	–	1632c1580
10061	–	< ALTER PROCEDURE SHIP_ORDER
10062	–	---
10063	–	> ALTER PROCEDURE SHIP_ORDER
10064	–	1689,1690c1637
10065	–	<  ^
10066	–	<
10067	–	---
10068	–	> ^
10069	–	1692c1639
10070	–	< ALTER PROCEDURE SUB_TOT_BUDGET
10071	–	---
10072	–	> ALTER PROCEDURE SUB_TOT_BUDGET
10073	–	1711,1712c1658
10074	–	<  ^
10075	–	<
10076	–	---
10077	–	> ^
10078	–	1714c1660
10079	–	< ALTER PROCEDURE "UC SPACE"
10080	–	---
10081	–	> ALTER PROCEDURE "UC SPACE"
10082	–	1720,1721c1666
10083	–	<  ^
10084	–	<
10085	–	---
10086	–	> ^
10087	–	1723c1668
10088	–	< ALTER PROCEDURE "iCASE"
10089	–	---
10090	–	> ALTER PROCEDURE "iCASE"
10091	–	1726,1735c1671
10092	–	<  ^
10093	–	<
10094	–	< SET TERM ; ^
10095	–	< COMMIT WORK;
10096	–	< SET AUTODDL ON;
10097	–	< COMMIT WORK;
10098	–	< SET AUTODDL OFF;
10099	–	< SET TERM ^ ;
10100	–	<
10101	–	<
10102	–	---
10103	–	> ^
10104	–	1777d1712
10105	–	<
9866
9867
9868
#	Line 10157 | Line 9917 | Message File Location = /opt/firebird2.5
9917		Database Statistics for employee
9918
9919		Database "/opt/firebird2.5.9/examples/empbuild/employee.fdb"
9920	<	Gstat execution time Wed Oct  6 10:04:39 2021
9920	>	Gstat execution time Sun Oct 17 23:44:30 2021
9921
9922		Database header page information:
9923		Flags                   0
9924		Checksum                12345
9925	<	Generation              6419
9925	>	Generation              6857
9926		Page size               4096
9927		ODS version             11.2
9928	<	Oldest transaction      3850
9929	<	Oldest active           3851
9930	<	Oldest snapshot         3851
9931	<	Next transaction        3851
9928	>	Oldest transaction      4110
9929	>	Oldest active           4111
9930	>	Oldest snapshot         4111
9931	>	Next transaction        4111
9932		Bumped transaction      1
9933		Sequence number         0
9934	<	Next attachment ID      1316
9934	>	Next attachment ID      1404
9935		Implementation ID       24
9936		Shadow count            0
9937		Page buffers            0
#	Line 10296 | Line 10056 | zeus   Tue Jun  9 14:31:01 2020
10056		INET/inet_error: connect errno = 111
10057
10058		Online Validation
10059	<	10:04:40.20 Validation started
10059	>	23:44:31.75 Validation started
10060
10061	<	10:04:40.20 Relation 128 (COUNTRY)
10062	<	10:04:40.20   process pointer page    0 of    1
10063	<	10:04:40.20 Index 1 (RDB$PRIMARY1)
10064	<	10:04:40.20 Relation 128 (COUNTRY) is ok
10065	<
10066	<	10:04:40.20 Relation 129 (JOB)
10067	<	10:04:40.20   process pointer page    0 of    1
10068	<	10:04:40.20 Index 1 (RDB$PRIMARY2)
10069	<	10:04:40.20 Index 2 (RDB$FOREIGN3)
10070	<	10:04:40.20 Index 3 (MAXSALX)
10071	<	10:04:40.20 Index 4 (MINSALX)
10072	<	10:04:40.20 Relation 129 (JOB) is ok
10073	<
10074	<	10:04:40.20 Relation 130 (DEPARTMENT)
10075	<	10:04:40.20   process pointer page    0 of    1
10076	<	10:04:40.20 Index 1 (RDB$4)
10077	<	10:04:40.21 Index 2 (RDB$PRIMARY5)
10078	<	10:04:40.21 Index 3 (RDB$FOREIGN6)
10079	<	10:04:40.21 Index 4 (BUDGETX)
10080	<	10:04:40.21 Index 5 (RDB$FOREIGN10)
10081	<	10:04:40.21 Relation 130 (DEPARTMENT) is ok
10082	<
10083	<	10:04:40.21 Relation 131 (EMPLOYEE)
10084	<	10:04:40.21   process pointer page    0 of    1
10085	<	10:04:40.21 Index 1 (RDB$PRIMARY7)
10086	<	10:04:40.21 Index 2 (RDB$FOREIGN8)
10087	<	10:04:40.21 Index 3 (RDB$FOREIGN9)
10088	<	10:04:40.21 Index 4 (NAMEX)
10089	<	10:04:40.21 Relation 131 (EMPLOYEE) is ok
10090	<
10091	<	10:04:40.21 Relation 133 (PROJECT)
10092	<	10:04:40.21   process pointer page    0 of    1
10093	<	10:04:40.21 Index 1 (RDB$11)
10094	<	10:04:40.21 Index 2 (RDB$PRIMARY12)
10095	<	10:04:40.21 Index 3 (RDB$FOREIGN13)
10096	<	10:04:40.21 Index 4 (PRODTYPEX)
10097	<	10:04:40.21 Relation 133 (PROJECT) is ok
10098	<
10099	<	10:04:40.21 Relation 134 (EMPLOYEE_PROJECT)
10100	<	10:04:40.21   process pointer page    0 of    1
10101	<	10:04:40.21 Index 1 (RDB$PRIMARY14)
10102	<	10:04:40.21 Index 2 (RDB$FOREIGN15)
10103	<	10:04:40.21 Index 3 (RDB$FOREIGN16)
10104	<	10:04:40.21 Relation 134 (EMPLOYEE_PROJECT) is ok
10105	<
10106	<	10:04:40.21 Relation 135 (PROJ_DEPT_BUDGET)
10107	<	10:04:40.21   process pointer page    0 of    1
10108	<	10:04:40.21 Index 1 (RDB$PRIMARY17)
10109	<	10:04:40.21 Index 2 (RDB$FOREIGN18)
10110	<	10:04:40.21 Index 3 (RDB$FOREIGN19)
10111	<	10:04:40.21 Relation 135 (PROJ_DEPT_BUDGET) is ok
10112	<
10113	<	10:04:40.21 Relation 136 (SALARY_HISTORY)
10114	<	10:04:40.21   process pointer page    0 of    1
10115	<	10:04:40.21 Index 1 (RDB$PRIMARY20)
10116	<	10:04:40.21 Index 2 (RDB$FOREIGN21)
10117	<	10:04:40.21 Index 3 (CHANGEX)
10118	<	10:04:40.21 Index 4 (UPDATERX)
10119	<	10:04:40.21 Relation 136 (SALARY_HISTORY) is ok
10120	<
10121	<	10:04:40.21 Relation 137 (CUSTOMER)
10122	<	10:04:40.22   process pointer page    0 of    1
10123	<	10:04:40.22 Index 1 (RDB$PRIMARY22)
10124	<	10:04:40.22 Index 2 (RDB$FOREIGN23)
10125	<	10:04:40.22 Index 3 (CUSTNAMEX)
10126	<	10:04:40.22 Index 4 (CUSTREGION)
10127	<	10:04:40.22 Relation 137 (CUSTOMER) is ok
10128	<
10129	<	10:04:40.22 Relation 138 (SALES)
10130	<	10:04:40.22   process pointer page    0 of    1
10131	<	10:04:40.22 Index 1 (RDB$PRIMARY24)
10132	<	10:04:40.22 Index 2 (RDB$FOREIGN25)
10133	<	10:04:40.22 Index 3 (RDB$FOREIGN26)
10134	<	10:04:40.22 Index 4 (NEEDX)
10135	<	10:04:40.22 Index 5 (QTYX)
10136	<	10:04:40.22 Index 6 (SALESTATX)
10137	<	10:04:40.22 Relation 138 (SALES) is ok
10061	>	23:44:31.75 Relation 128 (COUNTRY)
10062	>	23:44:31.75   process pointer page    0 of    1
10063	>	23:44:31.75 Index 1 (RDB$PRIMARY1)
10064	>	23:44:31.75 Relation 128 (COUNTRY) is ok
10065	>
10066	>	23:44:31.75 Relation 129 (JOB)
10067	>	23:44:31.75   process pointer page    0 of    1
10068	>	23:44:31.75 Index 1 (RDB$PRIMARY2)
10069	>	23:44:31.75 Index 2 (RDB$FOREIGN3)
10070	>	23:44:31.75 Index 3 (MAXSALX)
10071	>	23:44:31.76 Index 4 (MINSALX)
10072	>	23:44:31.76 Relation 129 (JOB) is ok
10073	>
10074	>	23:44:31.76 Relation 130 (DEPARTMENT)
10075	>	23:44:31.76   process pointer page    0 of    1
10076	>	23:44:31.76 Index 1 (RDB$4)
10077	>	23:44:31.76 Index 2 (RDB$PRIMARY5)
10078	>	23:44:31.76 Index 3 (RDB$FOREIGN6)
10079	>	23:44:31.76 Index 4 (BUDGETX)
10080	>	23:44:31.76 Index 5 (RDB$FOREIGN10)
10081	>	23:44:31.76 Relation 130 (DEPARTMENT) is ok
10082	>
10083	>	23:44:31.76 Relation 131 (EMPLOYEE)
10084	>	23:44:31.76   process pointer page    0 of    1
10085	>	23:44:31.76 Index 1 (RDB$PRIMARY7)
10086	>	23:44:31.76 Index 2 (RDB$FOREIGN8)
10087	>	23:44:31.76 Index 3 (RDB$FOREIGN9)
10088	>	23:44:31.76 Index 4 (NAMEX)
10089	>	23:44:31.76 Relation 131 (EMPLOYEE) is ok
10090	>
10091	>	23:44:31.76 Relation 133 (PROJECT)
10092	>	23:44:31.76   process pointer page    0 of    1
10093	>	23:44:31.76 Index 1 (RDB$11)
10094	>	23:44:31.76 Index 2 (RDB$PRIMARY12)
10095	>	23:44:31.76 Index 3 (RDB$FOREIGN13)
10096	>	23:44:31.76 Index 4 (PRODTYPEX)
10097	>	23:44:31.76 Relation 133 (PROJECT) is ok
10098	>
10099	>	23:44:31.76 Relation 134 (EMPLOYEE_PROJECT)
10100	>	23:44:31.76   process pointer page    0 of    1
10101	>	23:44:31.76 Index 1 (RDB$PRIMARY14)
10102	>	23:44:31.76 Index 2 (RDB$FOREIGN15)
10103	>	23:44:31.76 Index 3 (RDB$FOREIGN16)
10104	>	23:44:31.76 Relation 134 (EMPLOYEE_PROJECT) is ok
10105	>
10106	>	23:44:31.76 Relation 135 (PROJ_DEPT_BUDGET)
10107	>	23:44:31.76   process pointer page    0 of    1
10108	>	23:44:31.76 Index 1 (RDB$PRIMARY17)
10109	>	23:44:31.76 Index 2 (RDB$FOREIGN18)
10110	>	23:44:31.76 Index 3 (RDB$FOREIGN19)
10111	>	23:44:31.76 Relation 135 (PROJ_DEPT_BUDGET) is ok
10112	>
10113	>	23:44:31.76 Relation 136 (SALARY_HISTORY)
10114	>	23:44:31.76   process pointer page    0 of    1
10115	>	23:44:31.76 Index 1 (RDB$PRIMARY20)
10116	>	23:44:31.76 Index 2 (RDB$FOREIGN21)
10117	>	23:44:31.76 Index 3 (CHANGEX)
10118	>	23:44:31.76 Index 4 (UPDATERX)
10119	>	23:44:31.76 Relation 136 (SALARY_HISTORY) is ok
10120	>
10121	>	23:44:31.76 Relation 137 (CUSTOMER)
10122	>	23:44:31.76   process pointer page    0 of    1
10123	>	23:44:31.76 Index 1 (RDB$PRIMARY22)
10124	>	23:44:31.76 Index 2 (RDB$FOREIGN23)
10125	>	23:44:31.77 Index 3 (CUSTNAMEX)
10126	>	23:44:31.77 Index 4 (CUSTREGION)
10127	>	23:44:31.77 Relation 137 (CUSTOMER) is ok
10128	>
10129	>	23:44:31.77 Relation 138 (SALES)
10130	>	23:44:31.77   process pointer page    0 of    1
10131	>	23:44:31.77 Index 1 (RDB$PRIMARY24)
10132	>	23:44:31.77 Index 2 (RDB$FOREIGN25)
10133	>	23:44:31.77 Index 3 (RDB$FOREIGN26)
10134	>	23:44:31.77 Index 4 (NEEDX)
10135	>	23:44:31.77 Index 5 (QTYX)
10136	>	23:44:31.77 Index 6 (SALESTATX)
10137	>	23:44:31.77 Relation 138 (SALES) is ok
10138
10139	<	10:04:40.22 Validation finished
10139	>	23:44:31.77 Validation finished
10140
10141
10142		Normal Validation
#	Line 11886 | Line 11646 | Rows printed = 2
11646		Current memory = 966,728
11647		Delta memory = 9,344
11648		Max memory = 1,012,400
11649	<	Elapsed time= 0.106 sec
11650	<	Cpu = 0.001 sec
11649	>	Elapsed time= 0.104 sec
11650	>	Cpu = 0.000 sec
11651		Buffers = 75
11652		Reads = 2
11653		Writes = 0
#	Line 13225 | Line 12985 | Create Table LotsOfData (
12985		MyText VarChar(1024),
12986		Primary Key (RowID)
12987		);
12988	<	Loading data into database table. Started at 06/10/2021 10:05:22.459
12989	<	Data load completed at 06/10/2021 10:08:21.403 Elapsed Time = 178944 ms, 100000 records loaded
12990	<	Message Hash = 892c561d9a7b1248cbe1289c339cc5d1
12991	<	Database Read started at 06/10/2021 10:08:21.411
12992	<	Read Dataset completed at 06/10/2021 10:08:52.088 Elapsed Time = 30677 ms, 100000 records read
12993	<	Message Hash = 892c561d9a7b1248cbe1289c339cc5d1
12988	>	Loading data into database table. Started at 17/10/2021 23:45:12.801
12989	>	Data load completed at 17/10/2021 23:48:03.397 Elapsed Time = 170596 ms, 100000 records loaded
12990	>	Message Hash = b20198e47d7f7ff5fcbc316e429149cb
12991	>	Database Read started at 17/10/2021 23:48:03.416
12992	>	Read Dataset completed at 17/10/2021 23:48:34.119 Elapsed Time = 30703 ms, 100000 records read
12993	>	Message Hash = b20198e47d7f7ff5fcbc316e429149cb
12994		Test Completed successfully
12995	<	06/10/2021 10:08:52.088 Test 21 passes as long as the checksums are identical
12995	>	17/10/2021 23:48:34.120 Test 21 passes as long as the checksums are identical
12996
12997
12998		------------------------------------------------------
#	Line 14032 | Line 13792 | IBTable after create
13792
13793		/* Table: TestTable, Owner: SYSDBA */
13794
13795	<	CREATE TABLE "TestTable"
13795	>	CREATE TABLE "TestTable"
13796		(
13797		MYKEY   INTEGER NOT NULL,
13798		TEXTFIELD       VARCHAR(32) CHARACTER SET UTF8,
#	Line 14766 | Line 14526 | SET AUTODDL ON;
14526
14527		/* Table: DBVERSIONINFO, Owner: SYSDBA */
14528
14529	<	CREATE TABLE DBVERSIONINFO
14529	>	CREATE TABLE DBVERSIONINFO
14530		(
14531		VERSIONNO       INTEGER NOT NULL,
14532		PRIMARY KEY (VERSIONNO)
#	Line 14774 | Line 14534 | PRIMARY KEY (VERSIONNO)
14534
14535		/* Table: IBDATASETTEST, Owner: SYSDBA */
14536
14537	<	CREATE TABLE IBDATASETTEST
14537	>	CREATE TABLE IBDATASETTEST
14538		(
14539		KEYFIELD        INTEGER NOT NULL,
14540		PLAINTEXT       VARCHAR(128),
#	Line 14792 | Line 14552 | COMMIT;
14552
14553		CREATE SEQUENCE AGENERATOR;
14554		ALTER SEQUENCE AGENERATOR RESTART WITH 0;
14555	<	SET TERM ^ ;
14555	>	SET TERM ^;
14556
14557
14558		/* Triggers only will work for SQL triggers */
#	Line 14803 | Line 14563 | As
14563		Begin
14564		new.ServerSideText = new.KeyField || ' - ' || new.PlainText;
14565		End
14566	<	^
14567	<	COMMIT WORK ^
14566	>	^
14567	>
14568	>	COMMIT WORK^
14569		SET TERM ;^
14570
14571		/* Comments on System Objects */
#	Line 14978 | Line 14739 | SET AUTODDL ON;
14739
14740		/* Table: DBVERSIONINFO, Owner: SYSDBA */
14741
14742	<	CREATE TABLE DBVERSIONINFO
14742	>	CREATE TABLE DBVERSIONINFO
14743		(
14744		VERSIONNO       INTEGER NOT NULL,
14745		PRIMARY KEY (VERSIONNO)
#	Line 14986 | Line 14747 | PRIMARY KEY (VERSIONNO)
14747
14748		/* Table: IBDATASETTEST, Owner: SYSDBA */
14749
14750	<	CREATE TABLE IBDATASETTEST
14750	>	CREATE TABLE IBDATASETTEST
14751		(
14752		KEYFIELD        INTEGER NOT NULL,
14753		PLAINTEXT       VARCHAR(128),
#	Line 15009 | Line 14770 | COMMIT;
14770
14771		CREATE SEQUENCE AGENERATOR;
14772		ALTER SEQUENCE AGENERATOR RESTART WITH 1;
14773	<	SET TERM ^ ;
14773	>	SET TERM ^;
14774
14775
14776		/* Triggers only will work for SQL triggers */
#	Line 15020 | Line 14781 | As
14781		Begin
14782		new.ServerSideText = new.KeyField || ' - ' || new.PlainText;
14783		End
14784	<	^
14785	<	COMMIT WORK ^
14784	>	^
14785	>
14786	>	COMMIT WORK^
14787		SET TERM ;^
14788
14789		/* Comments on System Objects */
#	Line 15180 | Line 14942 | SET AUTODDL ON;
14942
14943		/* Table: DBVERSIONINFO, Owner: SYSDBA */
14944
14945	<	CREATE TABLE DBVERSIONINFO
14945	>	CREATE TABLE DBVERSIONINFO
14946		(
14947		VERSIONNO       INTEGER NOT NULL,
14948		PRIMARY KEY (VERSIONNO)
#	Line 15188 | Line 14950 | PRIMARY KEY (VERSIONNO)
14950
14951		/* Table: IBDATASETTEST, Owner: SYSDBA */
14952
14953	<	CREATE TABLE IBDATASETTEST
14953	>	CREATE TABLE IBDATASETTEST
14954		(
14955		KEYFIELD        INTEGER NOT NULL,
14956		PLAINTEXT       VARCHAR(128),
#	Line 15212 | Line 14974 | COMMIT;
14974
14975		CREATE SEQUENCE AGENERATOR;
14976		ALTER SEQUENCE AGENERATOR RESTART WITH 2;
14977	<	SET TERM ^ ;
14977	>	SET TERM ^;
14978
14979
14980		/* Triggers only will work for SQL triggers */
#	Line 15223 | Line 14985 | As
14985		Begin
14986		new.ServerSideText = new.KeyField || ' - ' || new.PlainText;
14987		End
14988	<	^
14989	<	COMMIT WORK ^
14988	>	^
14989	>
14990	>	COMMIT WORK^
14991		SET TERM ;^
14992
14993		/* Comments on System Objects */

Diff Legend

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