ij> AUTOCOMMIT OFF;
ij> -- MODULE DML015

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

-- NO_TEST:0060 COMMIT work closes CURSORs!

-- Testing cursors
  
-- ************************************************************

-- TEST:0061 COMMIT work keeps changes to database!

     INSERT INTO TEMP_S
           SELECT EMPNUM, GRADE, CITY
                FROM STAFF;
5 rows inserted/updated/deleted
ij> -- PASS:0061 If 5 rows are inserted?

     COMMIT WORK;
ij> -- verify previous COMMIT keeps changes
     ROLLBACK WORK;
ij> --O     SELECT COUNT(*)
     SELECT *
          FROM TEMP_S;
EMP&|GRADE|CITY           
--------------------------
E1  |12   |Deale          
E2  |10   |Vienna         
E3  |13   |Vienna         
E4  |12   |Deale          
E5  |13   |Akron          
ij> -- PASS:0061 If count = 5?

-- END TEST >>> 0061 <<< END TEST
-- ************************************************************

-- TEST:0062 ROLLBACK work cancels changes to database!
-- NOTE:0062 uses data created by TEST 0061

     DELETE FROM TEMP_S
           WHERE EMPNUM = 'E5';
1 row inserted/updated/deleted
ij> -- PASS:0062 If 1 row is deleted?

--O        SELECT COUNT(*)
        SELECT *
             FROM TEMP_S;
EMP&|GRADE|CITY           
--------------------------
E1  |12   |Deale          
E2  |10   |Vienna         
E3  |13   |Vienna         
E4  |12   |Deale          
ij> -- PASS:0062 If count = 4?

-- restore
     ROLLBACK WORK;
ij> --O     SELECT COUNT(*)
        SELECT *
          FROM TEMP_S;
EMP&|GRADE|CITY           
--------------------------
E1  |12   |Deale          
E2  |10   |Vienna         
E3  |13   |Vienna         
E4  |12   |Deale          
E5  |13   |Akron          
ij> -- PASS:0062 If count = 5?

-- restore
     DELETE FROM TEMP_S;
5 rows inserted/updated/deleted
ij> COMMIT WORK;
ij> -- END TEST >>> 0062 <<< END TEST
-- ***********************************************************

-- NO_TEST:0063 ROLLBACK work closes CURSORs!

-- Testing cursors
-- *************************************************////END-OF-MODULE
;
ij>