ij> AUTOCOMMIT OFF;
ij> -- MODULE DML055

-- SQL Test Suite, V6.0, Interactive SQL, dml055.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:0243 FIPS sizing - precision of SMALLINT >= 4!
-- FIPS sizing TEST

     DELETE FROM HH;
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 HH
            VALUES(9999);
1 row inserted/updated/deleted
ij> -- PASS:0243 If 1 row is inserted?

--O     SELECT COUNT(*) 
     SELECT * 
          FROM HH
          WHERE SMALLTEST = 9999;
SMALL&
------
9999  
ij> -- PASS:0243 If count = 1?

-- setup
     INSERT INTO HH
            VALUES(-9999);
1 row inserted/updated/deleted
ij> -- PASS:0243 If 1 row is inserted?

     SELECT SMALLTEST 
          FROM HH
          WHERE SMALLTEST = -9999;
SMALL&
------
-9999 
ij> -- PASS:0243 If SMALLTEST = -9999?

-- restore
     ROLLBACK WORK;
ij> -- END TEST >>> 0243 <<< END TEST

-- ***************************************************************

-- TEST:0244 FIPS sizing - precision of INTEGER >= 9!
-- FIPS sizing TEST

     DELETE FROM EE;
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 EE
            VALUES(999999999);
1 row inserted/updated/deleted
ij> -- PASS:0244 If 1 row is inserted?

     SELECT INTTEST
          FROM EE
          WHERE INTTEST = 999999999;
INTTEST    
-----------
999999999  
ij> -- PASS:0244 If INTTEST = 999999999?

-- setup
     INSERT INTO EE
            VALUES(-999999999);
1 row inserted/updated/deleted
ij> -- PASS:0244 If 1 row is inserted?

--O     SELECT COUNT(*) 
     SELECT * 
          FROM EE
          WHERE INTTEST = -999999999;
INTTEST    
-----------
-999999999 
ij> -- PASS:0244 If count = 1?

-- restore
     ROLLBACK WORK;
ij> -- END TEST >>> 0244 <<< END TEST

-- *****************************************************************

-- TEST:0245 FIPS sizing - precision of DECIMAL >= 15!
-- FIPS sizing TEST

     DELETE FROM PP_15;
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 PP_15
            VALUES(.123456789012345);
1 row inserted/updated/deleted
ij> -- PASS:0245 If 1 row is inserted?

     SELECT NUMTEST
          FROM PP_15;
NUMTEST           
------------------
0.123456789012345 
ij> -- PASS:0245 If NUMTEST = 0.123456789012345?

--O     SELECT COUNT(*) FROM PP_15
     SELECT * FROM PP_15
       WHERE NUMTEST = 0.123456789012345;
NUMTEST           
------------------
0.123456789012345 
ij> -- PASS:0245 If count = 1?

     DELETE FROM PP_15;
1 row inserted/updated/deleted
ij> -- PASS:0245 If 1 row is deleted?

-- setup
     INSERT INTO PP_15
            VALUES(-.912345678901234);
1 row inserted/updated/deleted
ij> -- PASS:0245 If 1 row is inserted?

--O     SELECT COUNT(*) 
     SELECT * 
          FROM PP_15
          WHERE NUMTEST = -0.912345678901234;
NUMTEST           
------------------
-0.912345678901234
ij> -- PASS:0245 If count = 1?

-- restore
     ROLLBACK WORK;
ij> -- END TEST >>> 0245 <<< END TEST
-- *************************************************////END-OF-MODULE
;
ij>