-- ************************************************
-- 
--
-- ************************************************


COMMIT WORK;

DROP PROCEDURE DELETE_TAB1 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB1 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer)
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab1 	
		delete 
		FROM stm_tab0001 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab1 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab1 ; 
	EXEC SQL DROP c_del_tab1 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE DELETE_TAB2 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB2 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer)
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab2 	
		delete 
		FROM stm_tab0002 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab2 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab2 ; 
	EXEC SQL DROP c_del_tab2 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE DELETE_TAB3 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB3 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer)
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab3 	
		delete 
		FROM stm_tab0003 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab3 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab3 ; 
	EXEC SQL DROP c_del_tab3 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE DELETE_TAB4 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB4 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer)
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab4 	
		delete 
		FROM stm_tab0004 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab4 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab4 ; 
	EXEC SQL DROP c_del_tab4 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE DELETE_TAB5 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB5 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer)
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab5 	
		delete 
		FROM stm_tab0005 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab5 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab5 ; 
	EXEC SQL DROP c_del_tab5 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE DELETE_TAB6 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB6 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer)
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab6 	
		delete 
		FROM stm_tab0006 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab6 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab6 ; 
	EXEC SQL DROP c_del_tab6 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE DELETE_TAB7 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB7 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer)
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab7 	
		delete 
		FROM stm_tab0007 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab7 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab7 ; 
	EXEC SQL DROP c_del_tab7 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE DELETE_TAB8 ; 
COMMIT WORK;

"CREATE PROCEDURE DELETE_TAB8 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer )
BEGIN 
	
	EXEC SQL WHENEVER SQLERROR ABORT ; 
	EXEC SQL PREPARE c_del_tab8 	
		delete 
		FROM stm_tab0008 
		WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 
	EXEC SQL EXECUTE c_del_tab8 USING (akey1, akey2, akey3, akey4, akey5, akey6) ; 
	EXEC SQL CLOSE c_del_tab8 ; 
	EXEC SQL DROP c_del_tab8 ; 
	
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB1 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB1 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

	EXEC SQL PREPARE c_upd_tab1 
		update 
		stm_tab0001 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab1 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 
		EXEC SQL PREPARE c_ins_tab1
                	INSERT INTO stm_tab0001 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

		EXEC SQL EXECUTE c_ins_tab1 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab1 ; 
		EXEC SQL DROP c_ins_tab1 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab1 ; 
	EXEC SQL DROP c_upd_tab1 ; 
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB2 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB2 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

	EXEC SQL PREPARE c_upd_tab2 
		update 
		stm_tab0002 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab2 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 
		EXEC SQL PREPARE c_ins_tab2
                	INSERT INTO stm_tab0002 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

		EXEC SQL EXECUTE c_ins_tab2 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab2 ; 
		EXEC SQL DROP c_ins_tab2 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab2 ; 
	EXEC SQL DROP c_upd_tab2 ; 
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB3 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB3 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

		EXEC SQL PREPARE c_ins_tab3
                	INSERT INTO stm_tab0003 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

	EXEC SQL PREPARE c_upd_tab3 
		update 
		stm_tab0003 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab3 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 

		EXEC SQL EXECUTE c_ins_tab3 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab3 ; 
		EXEC SQL DROP c_ins_tab3 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab3 ; 
	EXEC SQL DROP c_upd_tab3 ; 
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB4 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB4 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

	EXEC SQL PREPARE c_upd_tab4 
		update 
		stm_tab0004 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab4 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 
		EXEC SQL PREPARE c_ins_tab4
                	INSERT INTO stm_tab0004 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

		EXEC SQL EXECUTE c_ins_tab4 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab4 ; 
		EXEC SQL DROP c_ins_tab4 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab4 ; 
	EXEC SQL DROP c_upd_tab4 ; 
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB5 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB5 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

	EXEC SQL PREPARE c_upd_tab5 
		update 
		stm_tab0005 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab5 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 
		EXEC SQL PREPARE c_ins_tab5
                	INSERT INTO stm_tab0005 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

		EXEC SQL EXECUTE c_ins_tab5 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab5 ; 
		EXEC SQL DROP c_ins_tab5 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab5 ; 
	EXEC SQL DROP c_upd_tab5 ; 
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB6 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB6 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

	EXEC SQL PREPARE c_upd_tab6 
		update 
		stm_tab0006 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab6 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 
		EXEC SQL PREPARE c_ins_tab6
                	INSERT INTO stm_tab0006 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

		EXEC SQL EXECUTE c_ins_tab6 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab6 ; 
		EXEC SQL DROP c_ins_tab6 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab6 ; 
	EXEC SQL DROP c_upd_tab6 ; 
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB7 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB7 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

	EXEC SQL PREPARE c_upd_tab7 
		update 
		stm_tab0007 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab7 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 
		EXEC SQL PREPARE c_ins_tab7
                	INSERT INTO stm_tab0007 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

		EXEC SQL EXECUTE c_ins_tab7 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab7 ; 
		EXEC SQL DROP c_ins_tab7 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab7 ; 
	EXEC SQL DROP c_upd_tab7 ; 
END ";
COMMIT WORK;

DROP PROCEDURE UPDATE_TAB8 ; 
COMMIT WORK;

"CREATE PROCEDURE UPDATE_TAB8 (akey1 integer,  akey2 integer,
	akey3 integer,  akey4 integer, akey5 integer, akey6 integer, 
	akeysize integer, adatasize integer, akey varbinary(32), adata varbinary(1024) )
BEGIN 
	EXEC SQL WHENEVER SQLERROR ABORT ; 

	EXEC SQL PREPARE c_upd_tab8 
		update 
		stm_tab0008 
		set y = ? WHERE key1 = ? AND key2 = ?
			AND key3 = ? AND key4 = ? AND key5 = ? AND key6 = ? ; 

	EXEC SQL EXECUTE c_upd_tab8 USING (adata, akey1, akey2, akey3, akey4, akey5, akey6) ; 
	IF SQLROWCOUNT < 1 THEN 
		EXEC SQL PREPARE c_ins_tab8
                	INSERT INTO stm_tab0008 (key1, key2, key3, key4, key5, key6,
				keysize, x, datasize, y)
                	VALUES (?,?,?,?, ?, ?, ?, ?, ?, ?) ;

		EXEC SQL EXECUTE c_ins_tab8 USING (akey1, akey2, akey3, akey4, akey5, akey6,
			akeysize, akey, adatasize, adata) ;
		EXEC SQL CLOSE c_ins_tab8 ; 
		EXEC SQL DROP c_ins_tab8 ; 
	END IF ; 
	EXEC SQL CLOSE c_upd_tab8 ; 
	EXEC SQL DROP c_upd_tab8 ; 
END ";
COMMIT WORK;