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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML068
-- SQL Test Suite, V6.0, Interactive SQL, dml068.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:0389 95-character graphic subset of ASCII!
-- NOTE: OPTIONAL test
-- NOTE:0389 Collating sequence is implementor defined
DELETE FROM AA;
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 AA VALUES('@ at');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('`-qt');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('!exc');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('"dqt');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('#pou');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('$dol');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('%pct');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('&');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('''+qt');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('(lpr');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES(')rpr');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('*ast');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('bbbb');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES(':col');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('+plu');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES(';sem');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('[lbk');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('{lbc');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES(',com');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('< lt');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('\bsl');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('|dvt');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('-hyp');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('=equ');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES(']rbk');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('}rbc');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('.per');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('> gt');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('^hat');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('~til');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('/ sl');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('?que');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('_und');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('BBBB');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('0000');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('9999');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('zzzz');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES(' sp');
1 row inserted/updated/deleted
ij> INSERT INTO AA VALUES('ZZZZ');
1 row inserted/updated/deleted
ij> SELECT * FROM AA
ORDER BY CHARTEST;
CHARTEST
--------------------
sp
!exc
"dqt
#pou
$dol
%pct
&
'+qt
(lpr
)rpr
*ast
+plu
,com
-hyp
.per
/ sl
0000
9999
:col
;sem
< lt
=equ
> gt
?que
@ at
BBBB
ZZZZ
[lbk
\bsl
]rbk
^hat
_und
`-qt
bbbb
zzzz
{lbc
|dvt
}rbc
~til
ij> -- PASS:0389 If character in 1st position matches ?
-- PASS:0389 description in positions 2-4 ?
-- PASS:0389 If ASCII, then ORDER is: space followed by characters?
-- PASS:0389 !"#$%&'()*+,-./09:;<=>?@AZ[\]^_`az{|}~ ?
--O SELECT COUNT(*)
SELECT *
FROM AA;
CHARTEST
--------------------
@ at
`-qt
!exc
"dqt
#pou
$dol
%pct
&
'+qt
(lpr
)rpr
*ast
bbbb
:col
+plu
;sem
[lbk
{lbc
,com
< lt
\bsl
|dvt
-hyp
=equ
]rbk
}rbc
.per
> gt
^hat
~til
/ sl
?que
_und
BBBB
0000
9999
zzzz
sp
ZZZZ
ij> -- PASS:0389 If count = 39?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0389 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>
|
