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
|
ij> AUTOCOMMIT OFF;
ij> -- MODULE DML099
-- SQL Test Suite, V6.0, Interactive SQL, dml099.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
-- NO_TEST:0581 Implicit numeric casting (feature 9) dynamic!
-- Testing dynamic SQL
-- *********************************************
-- TEST:0582 Implicit numeric casting (feature 9) static!
CREATE TABLE ICAST2 (C1 INT, C2 DOUBLE PRECISION, C3 NUMERIC(5,3));
0 rows inserted/updated/deleted
ij> -- PASS:0582 If table is created?
COMMIT WORK;
ij> INSERT INTO ICAST2 VALUES (.31416E+1, 3, .3142293E+1);
1 row inserted/updated/deleted
ij> -- PASS:0582 If 1 row is inserted?
SELECT C1, C2, C3 FROM ICAST2;
C1 |C2 |C3
--------------------------------------------
3 |3.0 |3.142
ij> -- PASS:0582 If 1 row is selected with C1 = 3 and C3 = 3.142?
UPDATE ICAST2 SET C1 = 5.2413E+0, C2 = 5, C3 = 5.2413E+0;
1 row inserted/updated/deleted
ij> -- PASS:0582 If 1 row is updated?
SELECT C1, C2, C3 FROM ICAST2;
C1 |C2 |C3
--------------------------------------------
5 |5.0 |5.241
ij> -- PASS:0582 If 1 row is selected with C1 = 5 and C3 = 5.241?
UPDATE ICAST2 SET C1 = 6.28E+0, C2 = 2.1E+0, C3 = .07E+2;
1 row inserted/updated/deleted
ij> -- PASS:0582 If 1 row is updated?
UPDATE ICAST2 SET C1 = C2, C3 = C3 + C2;
1 row inserted/updated/deleted
ij> -- PASS:0582 If 1 row is updated?
SELECT C1, C2, C3 FROM ICAST2;
C1 |C2 |C3
--------------------------------------------
2 |2.1 |9.100
ij> -- PASS:0582 If 1 row is selected with C1 = 2 and C3 = 9.100?
ROLLBACK WORK;
ij> --O DROP TABLE ICAST2 CASCADE;
DROP TABLE ICAST2 ;
0 rows inserted/updated/deleted
ij> COMMIT WORK;
ij> -- END TEST >>> 0582 <<< END TEST
-- *********************************************
-- NO_TEST:0583 FIPS sizing, Dynamic SQL character strings!
-- Testing dynamic SQL
-- *************************************************////END-OF-MODULE
;
ij>
|
