| AUTOCOMMIT OFF; |
| |
| -- MODULE DML047 |
| |
| -- SQL Test Suite, V6.0, Interactive SQL, dml047.sql |
| -- 59-byte ID |
| -- TEd Version # |
| |
| -- AUTHORIZATION HU |
| set schema HU; |
| |
| --O SELECT USER FROM HU.ECCO; |
| VALUES USER; |
| -- RERUN if USER value does not match preceding AUTHORIZATION comment |
| |
| -- date_time print |
| |
| -- TEST:0222 FIPS sizing -- Length(240) of a character string! |
| -- FIPS sizing TEST |
| -- NOTE:0222 Literal length is only 78 |
| |
| -- setup |
| INSERT INTO T240 VALUES( |
| 'Now is the time for all good men and women to come to the aid of their country' |
| ); |
| -- PASS:0222 If 1 row is inserted? |
| |
| SELECT * |
| FROM T240; |
| -- PASS:0222 If STR240 starts with 'Now is the time for all good men'? |
| -- PASS:0222 and ends 'and women to come to the aid of their country'? |
| |
| -- restore |
| ROLLBACK WORK; |
| |
| -- END TEST >>> 0222 <<< END TEST |
| -- *************************************************////END-OF-MODULE |