AUTOCOMMIT OFF;

-- MODULE  DML099  

-- SQL Test Suite, V6.0, Interactive SQL, dml099.sql
-- 59-byte ID
-- TEd Version #

-- AUTHORIZATION FLATER
   set schema FLATER;

--O   SELECT USER FROM HU.ECCO;
  VALUES USER;
-- RERUN if USER value does not match preceding AUTHORIZATION comment
   ROLLBACK WORK;

-- 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));
-- PASS:0582 If table is created?

   COMMIT WORK;

   INSERT INTO ICAST2 VALUES (.31416E+1, 3, .3142293E+1);
-- PASS:0582 If 1 row is inserted?

   SELECT C1, C2, C3 FROM ICAST2;
-- 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;
-- PASS:0582 If 1 row is updated?

   SELECT C1, C2, C3 FROM ICAST2;
-- 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;
-- PASS:0582 If 1 row is updated?

   UPDATE ICAST2 SET C1 = C2, C3 = C3 + C2;
-- PASS:0582 If 1 row is updated?

   SELECT C1, C2, C3 FROM ICAST2;
-- PASS:0582 If 1 row is selected with C1 = 2 and C3 = 9.100?

   ROLLBACK WORK;

--O   DROP TABLE ICAST2 CASCADE;
   DROP TABLE ICAST2 ;

   COMMIT WORK;

-- END TEST >>> 0582 <<< END TEST
-- *********************************************

-- NO_TEST:0583 FIPS sizing, Dynamic SQL character strings!

-- Testing dynamic SQL

-- *************************************************////END-OF-MODULE
