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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML132
-- SQL Test Suite, V6.0, Interactive SQL, dml132.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION FLATER
set schema FLATER;
0 rows inserted/updated/deleted
ij> --O SELECT USER FROM HU.ECCO;
VALUES USER;
1
--------------------------------------------------------------------------------------------------------------------------------
FLATER
ij> -- RERUN if USER value does not match preceding AUTHORIZATION comment
--O ROLLBACK WORK;
-- date_time print
-- TEST:0515 FIPS sizing: NUMERIC (15) decimal precision!
INSERT INTO HU.P15 VALUES (999999999999999);
1 row inserted/updated/deleted
ij> -- PASS:0515 If 1 row is inserted?
INSERT INTO HU.P15 VALUES (-999999999999999);
1 row inserted/updated/deleted
ij> -- PASS:0515 If 1 row is inserted?
SELECT NUMTEST - 999999999999990,
NUMTEST / 9999999
FROM HU.P15 WHERE NUMTEST > 0;
1 |2
--------------------------------------------------------
9 |100000010.0000009000000900
ij> -- PASS:0515 If 1 row selected and values are 9 and 100000010 +- 1?
SELECT NUMTEST + 999999999999990,
NUMTEST / 9999999
FROM HU.P15 WHERE NUMTEST < 0;
1 |2
--------------------------------------------------------
-9 |-100000010.0000009000000900
ij> -- PASS:0515 If 1 row selected and values are -9 and -100000010 +- 1?
DELETE FROM HU.P15;
2 rows inserted/updated/deleted
ij> -- PASS:0515 If 2 rows are deleted?
INSERT INTO HU.P15 VALUES (562949953421313);
1 row inserted/updated/deleted
ij> -- PASS:0515 If 1 row is inserted?
--O SELECT COUNT(*)
SELECT *
FROM HU.P15 WHERE NUMTEST = 562949953421312;
NUMTEST
----------------
ij> -- PASS:0515 If count = 0?
--O SELECT COUNT(*)
SELECT *
FROM HU.P15 WHERE NUMTEST = 562949953421313;
NUMTEST
----------------
562949953421313
ij> -- PASS:0515 If count = 1?
--O SELECT COUNT(*)
SELECT *
FROM HU.P15 WHERE NUMTEST = 562949953421314;
NUMTEST
----------------
ij> -- PASS:0515 If count = 0?
ROLLBACK WORK;
ij> -- END TEST >>> 0515 <<< END TEST
-- *********************************************
-- TEST:0524 FIPS sizing: 100 Items in a SELECT list!
DELETE FROM HU.T100;
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> INSERT INTO HU.T100 VALUES ('00', '01', '02',
'03', '04', '05', '06', '07', '08', '09', '0a', '0b', '0c',
'0d', '0e', '0f', '10', '11', '12', '13', '14', '15', '16',
'17', '18', '19', '1a', '1b', '1c', '1d', '1e', '1f', '20',
'21', '22', '23', '24', '25', '26', '27', '28', '29', '2a',
'2b', '2c', '2d', '2e', '2f', '30', '31', '32', '33', '34',
'35', '36', '37', '38', '39', '3a', '3b', '3c', '3d', '3e',
'3f', '40', '41', '42', '43', '44', '45', '46', '47', '48',
'49', '4a', '4b', '4c', '4d', '4e', '4f', '50', '51', '52',
'53', '54', '55', '56', '57', '58', '59', '5a', '5b', '5c',
'5d', '5e', '5f', '60', '61', '62', '63');
1 row inserted/updated/deleted
ij> -- PASS:0524 If 1 row is inserted?
SELECT
C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13, C14,
C15, C16, C17, C18, C19, C20, C21, C22, C23, C24, C25, C26,
C27, C28, C29, C30, C31, C32, C33, C34, C35, C36, C37, C38,
C39, C40, C41, C42, C43, C44, C45, C46, C47, C48, C49, C50,
C51, C52, C53, C54, C55, C56, C57, C58, C59, C60, C61, C62,
C63, C64, C65, C66, C67, C68, C69, C70, C71, C72, C73, C74,
C75, C76, C77, C78, C79, C80, C81, C82, C83, C84, C85, C86,
C87, C88, C89, C90, C91, C92, C93, C94, C95, C96, C97, C98,
C99, C100
FROM HU.T100;
C1 |C2 |C3 |C4 |C5 |C6 |C7 |C8 |C9 |C10 |C11 |C12 |C13 |C14 |C15 |C16 |C17 |C18 |C19 |C20 |C21 |C22 |C23 |C24 |C25 |C26 |C27 |C28 |C29 |C30 |C31 |C32 |C33 |C34 |C35 |C36 |C37 |C38 |C39 |C40 |C41 |C42 |C43 |C44 |C45 |C46 |C47 |C48 |C49 |C50 |C51 |C52 |C53 |C54 |C55 |C56 |C57 |C58 |C59 |C60 |C61 |C62 |C63 |C64 |C65 |C66 |C67 |C68 |C69 |C70 |C71 |C72 |C73 |C74 |C75 |C76 |C77 |C78 |C79 |C80 |C81 |C82 |C83 |C84 |C85 |C86 |C87 |C88 |C89 |C90 |C91 |C92 |C93 |C94 |C95 |C96 |C97 |C98 |C99 |C100
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
00 |01 |02 |03 |04 |05 |06 |07 |08 |09 |0a |0b |0c |0d |0e |0f |10 |11 |12 |13 |14 |15 |16 |17 |18 |19 |1a |1b |1c |1d |1e |1f |20 |21 |22 |23 |24 |25 |26 |27 |28 |29 |2a |2b |2c |2d |2e |2f |30 |31 |32 |33 |34 |35 |36 |37 |38 |39 |3a |3b |3c |3d |3e |3f |40 |41 |42 |43 |44 |45 |46 |47 |48 |49 |4a |4b |4c |4d |4e |4f |50 |51 |52 |53 |54 |55 |56 |57 |58 |59 |5a |5b |5c |5d |5e |5f |60 |61 |62 |63
ij> -- PASS:0524 If 1 row selected?
-- PASS:0524 AND C1 is '00'?
-- PASS:0524 AND C50 is '31'?
-- PASS:0524 AND C67 is '42'?
-- PASS:0524 AND C100 is '63'?
ROLLBACK WORK;
ij> -- END TEST >>> 0524 <<< END TEST
-- *********************************************
-- TEST:0525 FIPS sizing: 15 Table references in SQL statement!
DELETE FROM BASE_WCOV;
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> INSERT INTO BASE_WCOV VALUES (1);
1 row inserted/updated/deleted
ij> -- PASS:0525 If 1 row is inserted?
DELETE FROM HU.STAFF WHERE EMPNUM > 'E2';
3 rows inserted/updated/deleted
ij> -- PASS:0525 If 3 rows are deleted?
-- next query restated with a cursor which we get only 1 row from; this is a sufficient demonstation
-- of 15 table references.
get cursor x as
--O SELECT COUNT(*) FROM
'SELECT * FROM
HU.WORKS T01, HU.PROJ T02, HU.STAFF T03,
USIG T04, U_SIG T05, BASE_VS1 T06, VS1 T07,
VS2 T08, HU.VSTAFF3 T09, BASE_WCOV T10
WHERE T08.C1 = 1 AND T03.EMPNUM > ''E1'' ';
ij> next x;
EM&|PN&|HOURS |PN&|PNAME |PTYPE |BUDGET |CITY |EM&|EMPNAME |GRADE|CITY |C1 |C_1 |C1 |C_1 |C1 |C2 |C1 |C2 |C1 |EM&|EMPNAME |GRADE|CITY |C1
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
E1 |P1 |40 |P1 |MXSS |Design|10000 |Deale |E2 |Betty |10 |Vienna |0 |2 |4 |6 |0 |1 |0 |1 |1 |E1 |Alice |12 |Deale |1
ij> close x;
ij> -- PASS:0525 If count = 46080?
ROLLBACK WORK;
ij> -- END TEST >>> 0525 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>
|
