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
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML149
-- SQL Test Suite, V6.0, Interactive SQL, dml149.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
--O ROLLBACK WORK;
-- date_time print
-- TEST:0561 Double SET TRANSACTION!
ROLLBACK WORK;
ij> -- PASS:0561 If successful completion?
--O SET TRANSACTION READ ONLY;
-- PASS:0561 If successful completion?
--O SET TRANSACTION READ WRITE;
-- PASS:0561 If successful completion?
--O INSERT INTO USIG VALUES (10, 20);
-- PASS:0561 If 1 row is inserted?
--O ROLLBACK WORK;
-- PASS:0561 If successful completion?
--O SET TRANSACTION READ WRITE;
-- PASS:0561 If successful completion?
--O SET TRANSACTION READ ONLY;
-- PASS:0561 If successful completion?
--O INSERT INTO USIG VALUES (10, 20);
-- PASS:0561 If ERROR, invalid transaction state, 0 rows inserted?
--O ROLLBACK WORK;
-- PASS:0561 If successful completion?
-- END TEST >>> 0561 <<< END TEST
-- *********************************************
-- TEST:0846 Feature 20, CAST functions (static) nits!
CREATE TABLE NO_DUCK (
GOOSE NUMERIC (4, 2),
ALBATROSS FLOAT,
SEAGULL INT,
OSPREY CHAR (10));
0 rows inserted/updated/deleted
ij> -- PASS:0846 If table is created?
COMMIT WORK;
ij> -- NOTE:0846 CAST (100 AS NUMERIC (2)) loses the leading significant digit
SELECT CAST (100 AS NUMERIC (2))
FROM HU.ECCO;
1
---
ERROR 22003: The resulting value is outside the range for the data type DECIMAL/NUMERIC(2,0).
ij> -- PASS:0846 If ERROR, numeric value out of range, 0 rows selected?
SELECT CAST (100.5 AS DECIMAL (3))
FROM HU.ECCO;
1
----
100
ij> -- PASS:0846 If 1 row selected and value is 100 or 101?
INSERT INTO NO_DUCK VALUES (
CAST (' 23.23 ' AS NUMERIC (4, 2)), 1.57E-1, -9, 'QUACK');
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is inserted?
SELECT COUNT(*)
FROM NO_DUCK WHERE GOOSE = 23.23;
1
-----------
1
ij> -- PASS:0846 If count = 1?
-- No cast from CHAR to FLOAT allowed
-- DELETE FROM NO_DUCK
-- WHERE ALBATROSS - CAST (' 15.5E0 ' AS FLOAT) < 3E-1;
-- PASS:0846 If 1 row is deleted?
-- Instead to keep the rest of the test in sync we will:
DELETE FROM NO_DUCK
WHERE ALBATROSS - CAST (15.5E0 AS FLOAT) < 3E-1;
1 row inserted/updated/deleted
ij> SELECT COUNT(*) FROM NO_DUCK;
1
-----------
0
ij> -- PASS:0846 If count = 0?
INSERT INTO NO_DUCK
--O SELECT 22.22, CAST (C1 AS FLOAT), 0, C1 FROM HU.ECCO;
SELECT 22.22, CAST (C1 AS FLOAT), 0, C1 FROM ECCO;
ERROR 42X05: Table/View 'ECCO' does not exist.
ij> -- PASS:0846 If ERROR, invalid character value for cast, 0 rows inserted?
INSERT INTO NO_DUCK
SELECT 22.22, 2.222E1, CAST (C1 AS INT), 'QUACK!' FROM HU.ECCO;
ERROR 22018: Invalid character string format for type INTEGER.
ij> -- PASS:0846 If ERROR, invalid character value for cast, 0 rows inserted?
SELECT CAST (CAST (3 AS DEC (5, 3)) AS CHAR (5))
FROM HU.ECCO;
1
-----
3.000
ij> -- PASS:0846 If 1 row selected and value is '3.000'?
INSERT INTO NO_DUCK VALUES (
12.00, -10.5E0, 12, 'QUACK!');
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is inserted?
UPDATE NO_DUCK
SET OSPREY = CAST (GOOSE AS CHAR (10))
WHERE SEAGULL = CAST (GOOSE AS DEC);
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
OSPREY
----------
12.00
ij> -- PASS:0846 If 1 row selected and OSPREY = '12.00 '?
SELECT OSPREY
FROM NO_DUCK
WHERE OSPREY < CAST (SEAGULL + 1 AS CHAR (10))
AND OSPREY = CAST (GOOSE * 1 AS CHAR (10));
OSPREY
----------
12.00
ij> -- PASS:0846 If 1 row selected and OSPREY = '12.00 '?
UPDATE NO_DUCK
SET OSPREY = CAST (-SEAGULL AS CHAR (10));
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
OSPREY
----------
-12
ij> -- PASS:0846 If 1 row selected and OSPREY = '-12 '?
-- NOTE:0846 Expected value -12.00 is too long for CHAR (5) cast
SELECT CAST (-GOOSE AS CHAR (5))
FROM NO_DUCK;
1
-----
-12.0
WARNING 01004: Data truncation
ij> -- PASS:0846 If ERROR, string data, right truncation, 0 rows selected?
UPDATE NO_DUCK
SET ALBATROSS = 0.0;
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is updated?
SELECT CAST (-ALBATROSS AS CHAR (5))
FROM NO_DUCK;
ERROR 42846: Cannot convert types 'DOUBLE' to 'CHAR'.
ij> -- PASS:0846 If 1 row selected and value is '0E0 '?
SELECT CAST (0230E-1 AS CHAR (10))
FROM HU.ECCO;
ERROR 42846: Cannot convert types 'DOUBLE' to 'CHAR'.
ij> -- PASS:0846 If 1 row selected and value is '2.3E1 '?
SELECT CAST (0230E+1 AS CHAR (10))
FROM HU.ECCO;
ERROR 42846: Cannot convert types 'DOUBLE' to 'CHAR'.
ij> -- PASS:0846 If 1 row selected and value is '2.3E3 '?
DELETE FROM NO_DUCK;
1 row inserted/updated/deleted
ij> INSERT INTO NO_DUCK VALUES (
0.00, -10.5E0, -0, 'QUACK!');
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is inserted?
UPDATE NO_DUCK
SET OSPREY = CAST (ALBATROSS AS CHAR (10))
WHERE GOOSE = CAST (SEAGULL AS NUMERIC (2));
ERROR 42846: Cannot convert types 'DOUBLE' to 'CHAR'.
ij> -- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
OSPREY
----------
QUACK!
ij> -- PASS:0846 If 1 row selected and OSPREY = '-1.05E1 '?
UPDATE NO_DUCK SET ALBATROSS = -0.5;
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is updated?
UPDATE NO_DUCK
SET OSPREY = CAST (ALBATROSS AS CHAR (10));
ERROR 42846: Cannot convert types 'DOUBLE' to 'CHAR'.
ij> -- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
OSPREY
----------
QUACK!
ij> -- PASS:0846 If 1 row selected and OSPREY = '-5E-1 '?
UPDATE NO_DUCK
SET OSPREY = CAST (-ALBATROSS AS CHAR (10));
ERROR 42846: Cannot convert types 'DOUBLE' to 'CHAR'.
ij> -- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
OSPREY
----------
QUACK!
ij> -- PASS:0846 If 1 row selected and OSPREY = '5E-1 '?
-- NOTE:0846 Expected value -5E-1 is too long for CHAR (4) cast
SELECT CAST (ALBATROSS AS CHAR (4))
FROM NO_DUCK;
ERROR 42846: Cannot convert types 'DOUBLE' to 'CHAR'.
ij> -- PASS:0846 If ERROR, string data, right truncation, 0 rows selected?
SELECT CAST (NULL AS CHAR (10)), GOOSE FROM NO_DUCK
WHERE SEAGULL = 0
UNION
SELECT OSPREY, CAST (SEAGULL AS NUMERIC (4, 2)) FROM NO_DUCK
WHERE GOOSE > 10000;
1 |2
------------------
NULL |0.00
ij> -- PASS:0846 If 1 row selected and first value is NULL?
UPDATE NO_DUCK SET GOOSE =
CAST (NULL AS NUMERIC (2, 2));
1 row inserted/updated/deleted
ij> -- PASS:0846 If 1 row is updated?
SELECT COUNT(*)
FROM NO_DUCK WHERE GOOSE IS NULL;
1
-----------
1
ij> -- PASS:0846 If count = 1?
SELECT CAST (GOOSE AS INT)
FROM NO_DUCK;
1
-----------
NULL
ij> -- PASS:0846 If 1 row selected and value is NULL?
ROLLBACK WORK;
ij> --O DROP TABLE NO_DUCK CASCADE;
DROP TABLE NO_DUCK ;
0 rows inserted/updated/deleted
ij> COMMIT WORK;
ij> -- END TEST >>> 0846 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>
|
