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
|
AUTOCOMMIT OFF;
-- MODULE DML177
-- SQL Test Suite, V6.0, Interactive SQL, dml177.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION FLATER
set schema FLATER;
--0 SELECT USER FROM HU.ECCO;
VALUES USER;
-- RERUN if USER value does not match preceding AUTHORIZATION comment
ROLLBACK WORK;
-- date_time print
-- TEST:0889 FIPS sizing, INTEGER binary prec >= 31!
CREATE TABLE NOMAIL (C1 INT);
-- PASS:0889 If table created successfully?
COMMIT WORK;
INSERT INTO NOMAIL VALUES (2147483647);
-- PASS:0889 If 1 row inserted successfully?
INSERT INTO NOMAIL VALUES (-2147483647);
-- PASS:0889 If 1 row inserted successfully?
SELECT C1
FROM NOMAIL WHERE C1 > 0;
-- PASS:0889 If C1 = 2147483647?
SELECT C1
FROM NOMAIL WHERE C1 < 0;
-- PASS:0889 If C1 = -2147483647?
SELECT C1 - 2147483646
FROM NOMAIL
WHERE C1 > 0;
-- PASS:0889 If value = 1?
SELECT C1 + 2147483646
FROM NOMAIL
WHERE C1 < 0;
-- PASS:0889 If value = -1?
UPDATE NOMAIL
SET C1 = C1 + 2147483646
WHERE C1 < 0;
-- PASS:0889 If update completed successfully?
SELECT C1
FROM NOMAIL WHERE C1 < 0;
-- PASS:0889 If C1 = -1?
UPDATE NOMAIL
SET C1 = C1 - 1;
-- PASS:0889 If update completed successfully?
SELECT COUNT(*)
FROM NOMAIL
WHERE C1 = 2147483645;
-- PASS:0889 If COUNT = 0?
SELECT COUNT(*)
FROM NOMAIL
WHERE C1 = 2147483646;
-- PASS:0889 If COUNT = 1?
SELECT COUNT(*)
FROM NOMAIL
WHERE C1 = 2147483647;
-- PASS:0889 If COUNT = 0?
COMMIT WORK;
--0 DROP TABLE NOMAIL CASCADE;
DROP TABLE NOMAIL ;
-- PASS:0889 If table dropped successfully?
COMMIT WORK;
-- END TEST >>> 0889 <<< END TEST
-- *********************************************
-- TEST:0890 FIPS sizing, SMALLINT binary prec >= 15!
CREATE TABLE YESMAIL (C1 SMALLINT);
-- PASS:0890 If table created successfully?
COMMIT WORK;
INSERT INTO YESMAIL VALUES (32767);
-- PASS:0890 If 1 row inserted successfully?
INSERT INTO YESMAIL VALUES (-32767);
-- PASS:0890 If 1 row inserted successfully?
SELECT C1
FROM YESMAIL WHERE C1 > 0;
-- PASS:0890 If C1 = 32767?
SELECT C1
FROM YESMAIL WHERE C1 < 0;
-- PASS:0890 If C1 = -32767?
SELECT C1 - 32766
FROM YESMAIL
WHERE C1 > 0;
-- PASS:0890 If value = 1?
SELECT C1 + 32766
FROM YESMAIL
WHERE C1 < 0;
-- PASS:0890 If value = -1?
UPDATE YESMAIL
SET C1 = C1 + 32766
WHERE C1 < 0;
-- PASS:0890 If update completed successfully?
SELECT C1
FROM YESMAIL WHERE C1 < 0;
-- PASS:0890 If C1 = -1?
UPDATE YESMAIL
SET C1 = C1 - 1;
-- PASS:0890 If update completed successfully?
SELECT COUNT(*)
FROM YESMAIL
WHERE C1 = 32765;
-- PASS:0890 If COUNT = 0?
SELECT COUNT(*)
FROM YESMAIL
WHERE C1 = 32766;
-- PASS:0890 If COUNT = 1?
SELECT COUNT(*)
FROM YESMAIL
WHERE C1 = 32767;
-- PASS:0890 If COUNT = 0?
COMMIT WORK;
--0 DROP TABLE YESMAIL CASCADE;
DROP TABLE YESMAIL ;
-- PASS:0890 If table dropped successfully?
COMMIT WORK;
-- END TEST >>> 0890 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE
|
