ij> AUTOCOMMIT OFF;
ij> -- MODULE  DML155  

-- SQL Test Suite, V6.0, Interactive SQL, dml155.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:0850 Comparing fixed vs. variable length caracter strings!

   CREATE TABLE T850 (
--O     T850KEY INT NOT NULL UNIQUE,
     T850KEY INT NOT NULL constraint t850_unique UNIQUE,
     T850C   CHAR (11),
     T850VC  VARCHAR (10),
     T850LVC VARCHAR (20));
0 rows inserted/updated/deleted
ij> -- PASS:0850 If table created successfully?

   COMMIT WORK;
ij> INSERT INTO T850 VALUES (
     10, '1234567890', '1234567890', '1234567890   ');
1 row inserted/updated/deleted
ij> -- PASS:0850 If 1 row inserted successfully?

   INSERT INTO T850 VALUES (
     5, '12345     ', '12345', '12345');
1 row inserted/updated/deleted
ij> -- PASS:0850 If 1 row inserted successfully?

   INSERT INTO T850 VALUES (
     0, '          ', '', '                    ');
1 row inserted/updated/deleted
ij> -- PASS:0850 If 1 row inserted successfully?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850C = T850VC;
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
10         |1234567890 |1234567890|1234567890          
5          |12345      |12345     |12345               
0          |           |          |                    
ij> -- PASS:0850 If COUNT = 3?

   SELECT T850KEY 
     FROM T850 WHERE T850VC = '1234567890     ';
T850KEY    
-----------
10         
ij> -- PASS:0850 If T850KEY = 10?

   SELECT T850KEY 
     FROM T850 WHERE T850VC = '12345  ';
T850KEY    
-----------
5          
ij> -- PASS:0850 If T850KEY = 5?

   SELECT T850KEY 
--N     FROM T850 WHERE T850VC = '1234567890     '; error in NIST test
     FROM T850 WHERE T850VC = '               ';
T850KEY    
-----------
0          
ij> --N this corresponds to the esql/c test
-- PASS:0850 If T850KEY = 0?

--O   SELECT COUNT(*)
   SELECT * 
     FROM T850 WHERE T850C = '1234567890';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
10         |1234567890 |1234567890|1234567890          
ij> -- INFORMATIONAL

--O   SELECT COUNT(*) 
   SELECT *
     FROM T850 WHERE T850C = '12345';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
5          |12345      |12345     |12345               
ij> -- INFORMATIONAL

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850VC = T850LVC;
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
10         |1234567890 |1234567890|1234567890          
5          |12345      |12345     |12345               
0          |           |          |                    
ij> -- PASS:0850 If COUNT = 3?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850VC = '12345          ';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
5          |12345      |12345     |12345               
ij> -- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850VC = '12345  ';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
5          |12345      |12345     |12345               
ij> -- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*)
   SELECT * 
     FROM T850 WHERE T850LVC = '12345          ';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
5          |12345      |12345     |12345               
ij> -- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850LVC = '12345  ';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
5          |12345      |12345     |12345               
ij> -- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850C = '12345          ';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
5          |12345      |12345     |12345               
ij> -- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850C = '12345  ';
T850KEY    |T850C      |T850VC    |T850LVC             
-------------------------------------------------------
5          |12345      |12345     |12345               
ij> -- PASS:0850 If COUNT = 1?

   ROLLBACK WORK;
ij> --O   DROP TABLE T850 CASCADE;
   DROP TABLE T850 ;
0 rows inserted/updated/deleted
ij> COMMIT WORK;
ij> -- END TEST >>> 0850 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE
;
ij>