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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML034
-- SQL Test Suite, V6.0, Interactive SQL, dml034.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION HU
set schema HU;
0 rows inserted/updated/deleted
ij> --O SELECT USER FROM HU.ECCO;
VALUES USER;
1
--------------------------------------------------------------------------------------------------------------------------------
HU
ij> -- RERUN if USER value does not match preceding AUTHORIZATION comment
-- date_time print
-- TEST:0088 Data type REAL!
-- setup
INSERT INTO GG
VALUES(123.4567E-2);
1 row inserted/updated/deleted
ij> -- PASS:0088 If 1 row is inserted?
SELECT REALTEST
FROM GG;
REALTEST
---------------
1.234567
ij> -- PASS:0088 If REALTEST = 1.234567 ?
-- PASS:0088 OR is between 1.234562 and 1.234572 ?
SELECT *
FROM GG
WHERE REALTEST > 1.234561 and REALTEST < 1.234573;
REALTEST
---------------
1.234567
ij> -- PASS:0088 If 1 row selected?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0088 <<< END TEST
-- ****************************************************************
-- TEST:0090 Data type DOUBLE PRECISION!
-- setup
INSERT INTO II
VALUES(0.123456123456E6);
1 row inserted/updated/deleted
ij> -- PASS:0090 If 1 row is inserted?
SELECT DOUBLETEST
FROM II;
DOUBLETEST
------------------------
123456.123456
ij> -- PASS:0090 If DOUBLETEST = 123456.123456 ?
-- PASS:0090 OR is between 123456.123451 and 123456.123461 ?
SELECT *
FROM II
WHERE DOUBLETEST > 123456.123450 and DOUBLETEST < 123456.123462;
DOUBLETEST
------------------------
123456.123456
ij> -- PASS:0090 If 1 row selected?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0090 <<< END TEST
-- ***********************************************************
-- TEST:0091 Data type FLOAT!
-- setup
INSERT INTO JJ
VALUES(12.345678);
1 row inserted/updated/deleted
ij> -- PASS:0091 If 1 row is inserted?
SELECT FLOATTEST
FROM JJ;
FLOATTEST
------------------------
12.345678
ij> -- PASS:0091 If FLOATTEST = 12.345678 ?
-- PASS:0091 OR is between 12.345673 and 12.345683 ?
SELECT *
FROM JJ
WHERE FLOATTEST > 12.345672 and FLOATTEST < 12.345684;
FLOATTEST
------------------------
12.345678
ij> -- PASS:0091 If 1 row selected?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0091 <<< END TEST
-- **********************************************************
-- TEST:0092 Data type FLOAT(32)!
-- setup
INSERT INTO KK
VALUES(123.456123456E+3);
1 row inserted/updated/deleted
ij> -- PASS:0092 If 1 row is inserted?
SELECT FLOATTEST
FROM KK;
FLOATTEST
------------------------
123456.123456
ij> -- PASS:0092 If FLOATTEST = 123456.123456 ?
-- PASS:0092 OR is between 123456.1233 and 123456.1236 ?
SELECT *
FROM KK
WHERE FLOATTEST > 123456.123450 and FLOATTEST < 123456.123462;
FLOATTEST
------------------------
123456.123456
ij> -- PASS:0092 If 1 row selected?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0092 <<< END TEST
-- *************************************************************
-- TEST:0093 Data type NUMERIC(13,6)!
-- setup
INSERT INTO LL
VALUES(123456.123456);
1 row inserted/updated/deleted
ij> -- PASS:0093 If 1 row is inserted?
SELECT *
FROM LL;
NUMTEST
---------------
123456.123456
ij> -- PASS:0093 If NUMTEST = 123456.123456 ?
-- PASS:0093 OR is between 123456.123451 and 123456.123461 ?
SELECT *
FROM LL
WHERE NUMTEST > 123456.123450 and NUMTEST < 123456.123462;
NUMTEST
---------------
123456.123456
ij> -- PASS:0093 If 1 row selected?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0093 <<< END TEST
-- *************************************************************
-- TEST:0094 Data type DECIMAL(13,6)!
-- setup
INSERT INTO PP
VALUES(123456.123456);
1 row inserted/updated/deleted
ij> -- PASS:0094 If 1 row is inserted?
SELECT *
FROM PP;
NUMTEST
---------------
123456.123456
ij> -- PASS:0094 If NUMTEST = 123456.123456 ?
-- PASS:0094 OR is between 123456.123451 and 123456.123461 ?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0094 <<< END TEST
-- **************************************************************
-- TEST:0095 Data type DEC(13,6)!
-- setup
INSERT INTO SS
VALUES(123456.123456);
1 row inserted/updated/deleted
ij> -- PASS:0095 If 1 row is inserted?
SELECT *
FROM SS;
NUMTEST
---------------
123456.123456
ij> -- PASS:0095 If NUMTEST = 123456.123456 ?
-- PASS:0095 OR is between 123456.123451 and 123456.123461 ?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0095 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>
|
