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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML056
-- SQL Test Suite, V6.0, Interactive SQL, dml056.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:0246 FIPS sizing - 100 values in INSERT!
-- FIPS sizing TEST
DELETE FROM 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> -- Making sure the table is empty
-- setup
INSERT INTO T100
VALUES('ZA','ZB','CA','ZC','ZD','AA','ZE','ZF','BA','ZG',
'YA','YB','CB','YC','YD','AB','YE','YF','BB','YG',
'XA','XB','CC','XC','XD','AC','XE','XF','BC','XG',
'UA','UB','CD','UC','UD','AD','UE','UF','BD','UG',
'VA','VB','CE','VC','VD','AE','VE','VF','BE','VG',
'WA','WB','CF','WC','WD','AF','WE','WF','BF','WG',
'LA','LB','CG','LC','LD','AG','LE','LF','BG','LG',
'MA','MB','CH','MC','MD','AH','ME','MF','BH','MG',
'NA','NB','CI','NC','ND','AI','NE','NF','BI','NG',
'OA','OB','CJ','OC','OD','AJ','OE','OF','BJ','OG');
1 row inserted/updated/deleted
ij> -- PASS:0246 If 1 row is inserted?
SELECT C6, C16, C26, C36, C46, C56, C66, C76, C86, C96, C100
FROM T100
WHERE C1 = 'ZA' AND C2 = 'ZB';
C6 |C16 |C26 |C36 |C46 |C56 |C66 |C76 |C86 |C96 |C100
------------------------------------------------------
AA |AB |AC |AD |AE |AF |AG |AH |AI |AJ |OG
ij> -- PASS:0246 If C6 = 'AA', C16 = 'AB', C26 = 'AC', C36 = 'AD' ?
-- PASS:0246 If C46 = 'AE', C56 = 'AF', C66 = 'AG', C76 = 'AH' ?
-- PASS:0246 If C86 = 'AI', C96 = 'AJ', C100 = 'OG' ?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0246 <<< END TEST
-- *********************************************************************
-- TEST:0247 FIPS sizing - 20 values in update SET clause!
-- FIPS sizing TEST
DELETE FROM 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> -- Making sure the table is empty
-- setup
INSERT INTO T100
VALUES('ZA','ZB','CA','ZC','ZD','AA','ZE','ZF','BA','ZG',
'YA','YB','CB','YC','YD','AB','YE','YF','BB','YG',
'XA','XB','CC','XC','XD','AC','XE','XF','BC','XG',
'UA','UB','CD','UC','UD','AD','UE','UF','BD','UG',
'VA','VB','CE','VC','VD','AE','VE','VF','BE','VG',
'WA','WB','CF','WC','WD','AF','WE','WF','BF','WG',
'LA','LB','CG','LC','LD','AG','LE','LF','BG','LG',
'MA','MB','CH','MC','MD','AH','AE','AF','BH','BG',
'NA','NB','CI','NC','ND','AI','NE','NF','BI','NG',
'OA','OB','CJ','OC','OD','AJ','OE','OF','BJ','OG');
1 row inserted/updated/deleted
ij> -- PASS:0247 If 1 row is inserted?
UPDATE T100
SET C5 = 'BA', C10 = 'ZP', C15 = 'BB', C20 = 'YP', C25 = 'BC',
C30 = 'XP', C35 = 'BD', C40 = 'UP', C45 = 'BE', C50 = 'VP',
C55 = 'BF', C60 = 'WP', C65 = 'BG', C70 = 'LP', C75 = 'BH',
C80 = 'MP', C85 = 'BI', C90 = 'NP', C95 = 'BJ', C100 = 'OP';
1 row inserted/updated/deleted
ij> -- PASS:0247 If 1 row is updated ?
SELECT C5, C20, C35, C40, C55, C60, C75, C80, C90, C95, C100
FROM T100
WHERE C1 = 'ZA' AND C2 = 'ZB';
C5 |C20 |C35 |C40 |C55 |C60 |C75 |C80 |C90 |C95 |C100
------------------------------------------------------
BA |YP |BD |UP |BF |WP |BH |MP |NP |BJ |OP
ij> -- PASS:0247 If C5 = 'BA', C35 = 'BD', C55 = 'BF', C75 = 'BH' ?
-- PASS:0247 If C90 = 'NP', C100 = 'OP'?
-- restore
ROLLBACK WORK;
ij> -- END TEST >>> 0247 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>
|
