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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML001
-- SQL Test Suite, V6.0, Interactive SQL, dml001.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:0001 SELECT with ORDER BY DESC!
SELECT EMPNUM,HOURS
FROM WORKS
WHERE PNUM='P2'
ORDER BY EMPNUM DESC;
EM&|HOURS
----------
E4 |20
E3 |20
E2 |80
E1 |20
ij> -- PASS:0001 If 4 rows selected and last EMPNUM = 'E1'?
-- END TEST >>> 0001 <<< END TEST
-- *********************************************
-- TEST:0002 SELECT with ORDER BY integer ASC!
SELECT EMPNUM,HOURS
FROM WORKS
WHERE PNUM='P2'
ORDER BY 2 ASC;
EM&|HOURS
----------
E4 |20
E3 |20
E1 |20
E2 |80
ij> -- PASS:0002 If 4 rows selected and last HOURS = 80?
-- END TEST >>> 0002 <<< END TEST
-- *********************************************
-- TEST:0003 SELECT with ORDER BY DESC integer, named column!
SELECT EMPNUM,HOURS
FROM WORKS
WHERE PNUM = 'P2'
ORDER BY 2 DESC,EMPNUM DESC;
EM&|HOURS
----------
E2 |80
E4 |20
E3 |20
E1 |20
ij> -- PASS:0003 If 4 rows selected and last EMPNUM = 'E1'?
-- END TEST >>> 0003 <<< END TEST
-- *********************************************
-- TEST:0004 SELECT with UNION, ORDER BY integer DESC!
SELECT WORKS.EMPNUM
FROM WORKS
WHERE WORKS.PNUM = 'P2'
UNION
SELECT STAFF.EMPNUM
FROM STAFF
WHERE STAFF.GRADE=13
ORDER BY 1 DESC;
EM&
---
E5
E4
E3
E2
E1
ij> -- PASS:0004 If 5 rows selected and last EMPNUM = 'E1'?
-- END TEST >>> 0004 <<< END TEST
-- *********************************************
-- TEST:0005 SELECT with UNION ALL!
SELECT WORKS.EMPNUM
FROM WORKS
WHERE WORKS.PNUM = 'P2'
UNION ALL
SELECT STAFF.EMPNUM
FROM STAFF
WHERE STAFF.GRADE = 13;
EM&
---
E1
E2
E3
E4
E3
E5
ij> -- PASS:0005 If 6 rows selected?
-- END TEST >>> 0005 <<< END TEST
-- *********************************************
-- TEST:0158 SELECT with UNION and NOT EXISTS subquery!
SELECT EMPNAME,PNUM,HOURS
FROM STAFF,WORKS
WHERE STAFF.EMPNUM = WORKS.EMPNUM
UNION
SELECT EMPNAME,PNUM,HOURS
FROM STAFF,WORKS
WHERE NOT EXISTS
(SELECT HOURS
FROM WORKS
WHERE STAFF.EMPNUM = WORKS.EMPNUM);
EMPNAME |PN&|HOURS
-------------------------------
Alice |P1 |40
Alice |P2 |20
Alice |P3 |80
Alice |P4 |20
Alice |P5 |12
Alice |P6 |12
Betty |P1 |40
Betty |P2 |80
Carmen |P2 |20
Don |P2 |20
Don |P4 |40
Don |P5 |80
Ed |P1 |40
Ed |P2 |20
Ed |P2 |80
Ed |P3 |80
Ed |P4 |20
Ed |P4 |40
Ed |P5 |12
Ed |P5 |80
Ed |P6 |12
ij> -- PASS:0158 If 21 rows selected?
-- END TEST >>> 0158 <<< END TEST
-- *********************************************
-- TEST:0159 SELECT with 2 UNIONs, ORDER BY 2 integers!
SELECT PNUM,EMPNUM,HOURS
FROM WORKS
WHERE HOURS=80
UNION
SELECT PNUM,EMPNUM,HOURS
FROM WORKS
WHERE HOURS=40
UNION
SELECT PNUM,EMPNUM,HOURS
FROM WORKS
WHERE HOURS=20
ORDER BY 3,1;
PN&|EM&|HOURS
--------------
P2 |E4 |20
P2 |E3 |20
P2 |E1 |20
P4 |E1 |20
P1 |E2 |40
P1 |E1 |40
P4 |E4 |40
P2 |E2 |80
P3 |E1 |80
P5 |E4 |80
ij> -- PASS:0159 If 10 rows selected?
-- END TEST >>> 0159 <<< END TEST
-- *********************************************
-- TEST:0160 SELECT with parenthesized UNION, UNION ALL!
SELECT PNUM,EMPNUM,HOURS
FROM WORKS
WHERE HOURS=12
UNION ALL
(SELECT PNUM,EMPNUM,HOURS
FROM WORKS
UNION
SELECT PNUM,EMPNUM,HOURS
FROM WORKS
WHERE HOURS=80)
ORDER BY 2,1;
PN&|EM&|HOURS
--------------
P1 |E1 |40
P2 |E1 |20
P3 |E1 |80
P4 |E1 |20
P5 |E1 |12
P5 |E1 |12
P6 |E1 |12
P6 |E1 |12
P1 |E2 |40
P2 |E2 |80
P2 |E3 |20
P2 |E4 |20
P4 |E4 |40
P5 |E4 |80
ij> -- PASS:0160 If 14 rows selected?
-- END TEST >>> 0160 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>
|
