dml155.sql

derby database source code.good for you.

AUTOCOMMIT OFF;

-- MODULE  DML155  

-- SQL Test Suite, V6.0, Interactive SQL, dml155.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

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

   COMMIT WORK;

   INSERT INTO T850 VALUES (
     10, '1234567890', '1234567890', '1234567890   ');
-- PASS:0850 If 1 row inserted successfully?

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

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

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850C = T850VC;
-- PASS:0850 If COUNT = 3?

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

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

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

--O   SELECT COUNT(*)
   SELECT * 
     FROM T850 WHERE T850C = '1234567890';
-- INFORMATIONAL

--O   SELECT COUNT(*) 
   SELECT *
     FROM T850 WHERE T850C = '12345';
-- INFORMATIONAL

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850VC = T850LVC;
-- PASS:0850 If COUNT = 3?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850VC = '12345          ';
-- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850VC = '12345  ';
-- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*)
   SELECT * 
     FROM T850 WHERE T850LVC = '12345          ';
-- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850LVC = '12345  ';
-- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850C = '12345          ';
-- PASS:0850 If COUNT = 1?

--O   SELECT COUNT(*) 
   SELECT * 
     FROM T850 WHERE T850C = '12345  ';
-- PASS:0850 If COUNT = 1?

   ROLLBACK WORK;

--O   DROP TABLE T850 CASCADE;
   DROP TABLE T850 ;

   COMMIT WORK;

-- END TEST >>> 0850 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE