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
|
AUTOCOMMIT OFF;
-- MODULE DML155
-- SQL Test Suite, V6.0, Interactive SQL, dml155.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION FLATER
set schema FLATER;
--O SELECT USER FROM HU.ECCO;
VALUES USER;
-- RERUN if USER value does not match preceding AUTHORIZATION comment
ROLLBACK WORK;
-- date_time print
-- TEST:0850 Comparing fixed vs. variable length caracter strings!
CREATE TABLE T850 (
--O T850KEY INT NOT NULL UNIQUE,
T850KEY INT NOT NULL constraint t850_unique UNIQUE,
T850C CHAR (11),
T850VC VARCHAR (10),
T850LVC VARCHAR (20));
-- PASS:0850 If table created successfully?
COMMIT WORK;
INSERT INTO T850 VALUES (
10, '1234567890', '1234567890', '1234567890 ');
-- PASS:0850 If 1 row inserted successfully?
INSERT INTO T850 VALUES (
5, '12345 ', '12345', '12345');
-- PASS:0850 If 1 row inserted successfully?
INSERT INTO T850 VALUES (
0, ' ', '', ' ');
-- PASS:0850 If 1 row inserted successfully?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850C = T850VC;
-- PASS:0850 If COUNT = 3?
SELECT T850KEY
FROM T850 WHERE T850VC = '1234567890 ';
-- PASS:0850 If T850KEY = 10?
SELECT T850KEY
FROM T850 WHERE T850VC = '12345 ';
-- PASS:0850 If T850KEY = 5?
SELECT T850KEY
--N FROM T850 WHERE T850VC = '1234567890 '; error in NIST test
FROM T850 WHERE T850VC = ' '; --N this corresponds to the esql/c test
-- PASS:0850 If T850KEY = 0?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850C = '1234567890';
-- INFORMATIONAL
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850C = '12345';
-- INFORMATIONAL
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850VC = T850LVC;
-- PASS:0850 If COUNT = 3?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850VC = '12345 ';
-- PASS:0850 If COUNT = 1?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850VC = '12345 ';
-- PASS:0850 If COUNT = 1?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850LVC = '12345 ';
-- PASS:0850 If COUNT = 1?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850LVC = '12345 ';
-- PASS:0850 If COUNT = 1?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850C = '12345 ';
-- PASS:0850 If COUNT = 1?
--O SELECT COUNT(*)
SELECT *
FROM T850 WHERE T850C = '12345 ';
-- PASS:0850 If COUNT = 1?
ROLLBACK WORK;
--O DROP TABLE T850 CASCADE;
DROP TABLE T850 ;
COMMIT WORK;
-- END TEST >>> 0850 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE
|
