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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML008
-- SQL Test Suite, V6.0, Interactive SQL, dml008.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:0016 SELECT ALL syntax!
SELECT ALL EMPNUM
FROM WORKS
WHERE HOURS = 12;
EM&
---
E1
E1
ij> -- PASS:0016 If 2 rows are selected and both EMPNUMs are 'E1'?
-- END TEST >>> 0016 <<< END TEST
-- *************************************************************
-- TEST:0164 SELECT:default is ALL, not DISTINCT!
SELECT EMPNUM
FROM WORKS
WHERE HOURS = 12;
EM&
---
E1
E1
ij> -- PASS:0164 If 2 rows are selected and both EMPNUMs are 'E1'?
-- END TEST >>> 0164 <<< END TEST
-- ************************************************************
-- TEST:0017 SELECT:checks DISTINCT!
SELECT DISTINCT EMPNUM
FROM WORKS
WHERE HOURS = 12;
EM&
---
E1
ij> -- PASS:0017 If 1 row is selected and EMPNUM = 'E1'?
-- END TEST >>> 0017 <<< END TEST
-- ***********************************************************
-- TEST:0018 SQLCODE = 100, SELECT with no data!
SELECT EMPNUM,PNUM
FROM WORKS
WHERE EMPNUM = 'E16';
EM&|PN&
-------
ij> -- PASS:0018 If 0 rows selected, SQLCODE = 100, end of data?
-- END TEST >>> 0018 <<< END TEST
-- ***********************************************************
-- TEST:0019 SQLCODE = 0, SELECT with data!
SELECT EMPNUM,HOURS
FROM WORKS
WHERE EMPNUM = 'E1' AND PNUM = 'P4';
EM&|HOURS
----------
E1 |20
ij> -- PASS:0019 If HOURS = 20 ?
-- END TEST >>> 0019 <<< END TEST
-- **********************************************************
-- TEST:0020 SELECT NULL value !
-- setup
INSERT INTO WORKS
VALUES('E18','P18',NULL);
1 row inserted/updated/deleted
ij> -- PASS:0020 If 1 row is inserted?
SELECT EMPNUM,HOURS
FROM WORKS
WHERE EMPNUM='E18' AND PNUM='P18';
EM&|HOURS
----------
E18|NULL
ij> -- PASS:0020 If EMPNUM = 'E18' and HOURS is NULL?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0020 <<< END TEST
-- **********************************************************
-- NO_TEST:0021 SELECT CHAR(m) column into shorter var, get indic = m!
-- Testing indicators
-- ***********************************************************
-- NO_TEST:0165 Truncate CHAR column SELECTed into shorter var!
-- Testing host identifiers
-- *************************************************////END-OF-MODULE
;
ij>
|
