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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML179
-- SQL Test Suite, V6.0, Interactive SQL, dml179.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
ROLLBACK WORK;
ij> -- date_time print
-- TEST:0892 FIPS sizing, rowlen >= 8000, statement var >= 4000!
CREATE TABLE T0892 (
INTKEY NUMERIC (3) NOT NULL PRIMARY KEY,
NAAM VARCHAR (1000),
ADDRESS VARCHAR (1000),
KEYWORDS VARCHAR (1000),
FUNCTION1 VARCHAR (1000),
FUNCTION2 VARCHAR (1000),
DESCRIPT1 VARCHAR (1000),
DESCRIPT2 VARCHAR (1000),
DESCRIPT3 VARCHAR (978));
0 rows inserted/updated/deleted
ij> -- PASS:0892 If table created successfully?
COMMIT WORK;
ij> INSERT INTO T0892 (INTKEY, NAAM, ADDRESS, KEYWORDS, DESCRIPT3)
VALUES (0,
'John ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' ' ||
' Smith',
'1313 Osprey Alley ' ||
' ' ||
' ' ||
'Box 35B Sector 28 Quadrant 3 ' ||
' ' ||
' ' ||
' ' ||
'Rural Route 29837-39234234324-XRZ ' ||
' ' ||
' ' ||
' ' ||
'Beverly Hills, CA ' ||
' ' ||
' ' ||
' 90210',
'aardvark osprey metrology ' ||
' ' ||
' ' ||
'synthetic SQL RDA PDP ' ||
' ' ||
' antelope gnu yak bison quadruped cattle ' ||
' ' ||
' CORBA IDL Amsterdam ' ||
' ' ||
' ' ||
' ' ||
'production crystal growth ' ||
' ' ||
' ' ||
' gravity',
'filler filler filler blah blah blah ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
--O' ' ||
'this is going to be overwritten');
1 row inserted/updated/deleted
ij> -- PASS:0892 If 1 row inserted successfully?
UPDATE T0892
SET FUNCTION1 =
'Harry works in the Redundancy Automation Division of the ' ||
'Materials ' ||
'Blasting Laboratory in the National Cattle Acceleration ' ||
'Project of ' ||
'lower Michigan. His job is to document the trajectory of ' ||
'cattle and ' ||
'correlate the loft and acceleration versus the quality of ' ||
'materials ' ||
'used in the trebuchet. He served ten years as the ' ||
'vice-president in ' ||
'charge of marketing in the now defunct milk trust of the ' ||
'Pennsylvania ' ||
'Coalition of All Things Bovine. Prior to that he ' ||
'established himself ' ||
'as a world-class graffiti artist and source of all good ' ||
'bits related ' ||
'to channel dredging in poor weather. He is author of over ' ||
'ten thousand ' ||
'paperback novels, including such titles as "How Many ' ||
'Pumpkins will Fit ' ||
'on the Head of a Pin," "A Whole Bunch of Useless Things ' ||
'that you Don''t ' ||
'Want to Know," and "How to Lift Heavy Things Over your ' ||
'Head without ' ||
'Hurting Yourself or Dropping Them." He attends ANSI and ' ||
'ISO standards ' ||
'meetings in his copious free time and funds the development ' ||
'of test ' ||
'suites with his pocket change.'
WHERE INTKEY = 0;
1 row inserted/updated/deleted
ij> -- PASS:0892 If update completed successfully?
UPDATE T0892
SET FUNCTION2 = FUNCTION1,
DESCRIPT1 = FUNCTION1,
DESCRIPT2 = FUNCTION1,
DESCRIPT3 = SUBSTR (FUNCTION1, 1, 978);
1 row inserted/updated/deleted
ij> -- PASS:0892 If update completed successfully?
SELECT LENGTH (NAAM) +
LENGTH (ADDRESS) +
LENGTH (KEYWORDS) +
LENGTH (FUNCTION1) +
LENGTH (FUNCTION2) +
LENGTH (DESCRIPT1) +
LENGTH (DESCRIPT2) +
LENGTH (DESCRIPT3) + 22
FROM T0892
WHERE INTKEY = 0;
1
-----------
8000
ij> -- PASS:0892 If LENGTH = 8000?
COMMIT WORK;
ij> --O DROP TABLE T0892 CASCADE;
DROP TABLE T0892 ;
0 rows inserted/updated/deleted
ij> -- PASS:0892 If table dropped successfully?
COMMIT WORK;
ij> -- END TEST >>> 0892 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE
;
ij>
|
