ij> AUTOCOMMIT OFF;
ij> -- MODULE  DML179  

-- SQL Test Suite, V6.0, Interactive SQL, dml179.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:0892 FIPS sizing, rowlen >= 8000, statement var >= 4000!

   CREATE TABLE T0892 (
     INTKEY NUMERIC (3) NOT NULL PRIMARY KEY,
     NAAM VARCHAR (1000),
     ADDRESS VARCHAR (1000),
     KEYWORDS VARCHAR (1000),
     FUNCTION1 VARCHAR (1000),
     FUNCTION2 VARCHAR (1000),
     DESCRIPT1 VARCHAR (1000),
     DESCRIPT2 VARCHAR (1000),
     DESCRIPT3 VARCHAR (978));
0 rows inserted/updated/deleted
ij> -- PASS:0892 If table created successfully?

   COMMIT WORK;
ij> INSERT INTO T0892 (INTKEY, NAAM, ADDRESS, KEYWORDS, DESCRIPT3) 
              VALUES (0,
'John                                                               ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                            Smith',  
'1313 Osprey Alley                                                  ' ||
'                                                                    ' ||
'                                                                    ' ||
'Box 35B Sector 28 Quadrant 3                                        ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'Rural Route 29837-39234234324-XRZ                                   ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'Beverly Hills, CA                                                   ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                            90210',  
'aardvark osprey          metrology                                 ' ||
'                                                                    ' ||
'                                                                    ' ||
'synthetic             SQL RDA PDP                                   ' ||
'                                                                    ' ||
'          antelope gnu yak bison quadruped cattle                   ' ||
'                                                                    ' ||
'           CORBA IDL       Amsterdam                                ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                                                    ' ||
'production  crystal growth                                          ' ||
'                                                                    ' ||
'                                                                    ' ||
'                                          gravity',  
'filler filler filler blah blah blah                                ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                    ' ||
--O'                                                                 ' ||
'this is going to be overwritten');
1 row inserted/updated/deleted
ij> -- PASS:0892 If 1 row inserted successfully?

   UPDATE T0892
     SET FUNCTION1 =
'Harry works in the Redundancy Automation Division of the ' ||
'Materials ' ||
'Blasting Laboratory in the National Cattle Acceleration ' ||
'Project of ' ||
'lower Michigan.  His job is to document the trajectory of ' ||
'cattle and ' ||
'correlate the loft and acceleration versus the quality of ' ||
'materials ' ||
'used in the trebuchet.  He served ten years as the ' ||
'vice-president in ' ||
'charge of marketing in the now defunct milk trust of the ' ||
'Pennsylvania ' ||
'Coalition of All Things Bovine.  Prior to that he ' ||
'established himself ' ||
'as a world-class graffiti artist and source of all good ' ||
'bits related ' ||
'to channel dredging in poor weather.  He is author of over ' ||
'ten thousand ' ||
'paperback novels, including such titles as "How Many ' ||
'Pumpkins will Fit ' ||
'on the Head of a Pin," "A Whole Bunch of Useless Things ' ||
'that you Don''t ' ||
'Want to Know," and "How to Lift Heavy Things Over your ' ||
'Head without ' ||
'Hurting Yourself or Dropping Them."  He attends ANSI and ' ||
'ISO standards ' ||
'meetings in his copious free time and funds the development ' ||
'of test ' ||
'suites with his pocket change.'
  WHERE INTKEY = 0;
1 row inserted/updated/deleted
ij> -- PASS:0892 If update completed successfully?

   UPDATE T0892
     SET FUNCTION2 = FUNCTION1,
     DESCRIPT1 = FUNCTION1,
     DESCRIPT2 = FUNCTION1,
     DESCRIPT3 = SUBSTR (FUNCTION1, 1, 978);
1 row inserted/updated/deleted
ij> -- PASS:0892 If update completed successfully?

   SELECT LENGTH (NAAM) +
                LENGTH (ADDRESS) +
                LENGTH (KEYWORDS) +
                LENGTH (FUNCTION1) +
                LENGTH (FUNCTION2) +
                LENGTH (DESCRIPT1) +
                LENGTH (DESCRIPT2) +
                LENGTH (DESCRIPT3) + 22
     FROM T0892
     WHERE INTKEY = 0;
1          
-----------
8000       
ij> -- PASS:0892 If LENGTH = 8000?

   COMMIT WORK;
ij> --O   DROP TABLE T0892 CASCADE;
   DROP TABLE T0892 ;
0 rows inserted/updated/deleted
ij> -- PASS:0892 If table dropped successfully?

   COMMIT WORK;
ij> -- END TEST >>> 0892 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE
;
ij>