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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML055
-- SQL Test Suite, V6.0, Interactive SQL, dml055.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:0243 FIPS sizing - precision of SMALLINT >= 4!
-- FIPS sizing TEST
DELETE FROM HH;
0 rows inserted/updated/deleted
WARNING 02000: No row was found for FETCH, UPDATE or DELETE; or the result of a query is an empty table.
ij> -- Making sure the table is empty
-- setup
INSERT INTO HH
VALUES(9999);
1 row inserted/updated/deleted
ij> -- PASS:0243 If 1 row is inserted?
--O SELECT COUNT(*)
SELECT *
FROM HH
WHERE SMALLTEST = 9999;
SMALL&
------
9999
ij> -- PASS:0243 If count = 1?
-- setup
INSERT INTO HH
VALUES(-9999);
1 row inserted/updated/deleted
ij> -- PASS:0243 If 1 row is inserted?
SELECT SMALLTEST
FROM HH
WHERE SMALLTEST = -9999;
SMALL&
------
-9999
ij> -- PASS:0243 If SMALLTEST = -9999?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0243 <<< END TEST
-- ***************************************************************
-- TEST:0244 FIPS sizing - precision of INTEGER >= 9!
-- FIPS sizing TEST
DELETE FROM EE;
0 rows inserted/updated/deleted
WARNING 02000: No row was found for FETCH, UPDATE or DELETE; or the result of a query is an empty table.
ij> -- Making sure the table is empty
-- setup
INSERT INTO EE
VALUES(999999999);
1 row inserted/updated/deleted
ij> -- PASS:0244 If 1 row is inserted?
SELECT INTTEST
FROM EE
WHERE INTTEST = 999999999;
INTTEST
-----------
999999999
ij> -- PASS:0244 If INTTEST = 999999999?
-- setup
INSERT INTO EE
VALUES(-999999999);
1 row inserted/updated/deleted
ij> -- PASS:0244 If 1 row is inserted?
--O SELECT COUNT(*)
SELECT *
FROM EE
WHERE INTTEST = -999999999;
INTTEST
-----------
-999999999
ij> -- PASS:0244 If count = 1?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0244 <<< END TEST
-- *****************************************************************
-- TEST:0245 FIPS sizing - precision of DECIMAL >= 15!
-- FIPS sizing TEST
DELETE FROM PP_15;
0 rows inserted/updated/deleted
WARNING 02000: No row was found for FETCH, UPDATE or DELETE; or the result of a query is an empty table.
ij> -- Making sure the table is empty
-- setup
INSERT INTO PP_15
VALUES(.123456789012345);
1 row inserted/updated/deleted
ij> -- PASS:0245 If 1 row is inserted?
SELECT NUMTEST
FROM PP_15;
NUMTEST
------------------
0.123456789012345
ij> -- PASS:0245 If NUMTEST = 0.123456789012345?
--O SELECT COUNT(*) FROM PP_15
SELECT * FROM PP_15
WHERE NUMTEST = 0.123456789012345;
NUMTEST
------------------
0.123456789012345
ij> -- PASS:0245 If count = 1?
DELETE FROM PP_15;
1 row inserted/updated/deleted
ij> -- PASS:0245 If 1 row is deleted?
-- setup
INSERT INTO PP_15
VALUES(-.912345678901234);
1 row inserted/updated/deleted
ij> -- PASS:0245 If 1 row is inserted?
--O SELECT COUNT(*)
SELECT *
FROM PP_15
WHERE NUMTEST = -0.912345678901234;
NUMTEST
------------------
-0.912345678901234
ij> -- PASS:0245 If count = 1?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0245 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>
|
