1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML165
-- SQL Test Suite, V6.0, Interactive SQL, dml165.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION FLATER
set schema FLATER;
0 rows inserted/updated/deleted
ij> --O SELECT USER FROM HU.ECCO;
VALUES USER;
1
--------------------------------------------------------------------------------------------------------------------------------
FLATER
ij> -- RERUN if USER value does not match preceding AUTHORIZATION comment
ROLLBACK WORK;
ij> -- date_time print
-- TEST:0870 Non-identical descriptors in UNION!
CREATE TABLE APPLES (
KEY1 INT,
APPLE_NAME CHAR (15));
0 rows inserted/updated/deleted
ij> -- PASS:0870 If table created successfully?
COMMIT WORK;
ij> CREATE TABLE ORANGES (
KEY2 FLOAT,
ORANGE_NAME VARCHAR (10));
0 rows inserted/updated/deleted
ij> -- PASS:0870 If table ceated successfully?
COMMIT WORK;
ij> INSERT INTO APPLES VALUES (
1, 'Granny Smith');
1 row inserted/updated/deleted
ij> -- PASS:0870 If 1 row inserted successfully?
INSERT INTO APPLES VALUES (
2, 'Red Delicious');
1 row inserted/updated/deleted
ij> -- PASS:0870 If 1 row inserted successfully?
INSERT INTO ORANGES VALUES (
1.5E0, 'Navel');
1 row inserted/updated/deleted
ij> -- PASS:0870 If 1 row inserted successfully?
INSERT INTO ORANGES VALUES (
2.5E0, 'Florida');
1 row inserted/updated/deleted
ij> -- PASS:0870 If 1 row inserted successfully?
SELECT * FROM APPLES UNION ALL SELECT * FROM ORANGES
ORDER BY 1;
1 |2
----------------------------------------
1.0 |Granny Smith
1.5 |Navel
2.0 |Red Delicious
2.5 |Florida
ij> -- PASS:0870 If 4 rows returned in the following order?
-- col1 col2
-- ==== ====
-- PASS:0870 If 1.0 (+ or - 0.01) Granny Smith?
-- PASS:0870 If 1.5 (+ or - 0.01) Navel?
-- PASS:0870 If 2.0 (+ or - 0.01) Red Delicious?
-- PASS:0870 If 2.5 (+ or - 0.01) Florida?
COMMIT WORK;
ij> --O DROP TABLE APPLES CASCADE;
DROP TABLE APPLES ;
0 rows inserted/updated/deleted
ij> -- PASS:0870 If table dropped successfully?
COMMIT WORK;
ij> --O DROP TABLE ORANGES CASCADE;
DROP TABLE ORANGES ;
0 rows inserted/updated/deleted
ij> -- PASS:0870 If table dropped successfully?
COMMIT WORK;
ij> -- END TEST >>> 0870 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE
;
ij>
|
