DECLARE PSTMT_SEL VARCHAR( 4000 );
 	DECLARE PSTMT_CHG VARCHAR( 4000 );
	
	DECLARE SQLCODE INT;
	DECLARE CNT INT DEFAULT  0 ;
	DECLARE DUMMY_INT INTEGER;	
	
	DECLARE C1 CURSOR WITH HOLD FOR S1;
	
	SET PSTMT_SEL = 'SELECT * FROM ' || IN_TABLE_NAME || ' WHERE SERVER_ID = ' || TRIM(CHAR(IN_SERVER_ID)) || ' FOR UPDATE';
	SET PSTMT_CHG = 'DELETE FROM ' || IN_TABLE_NAME || ' WHERE CURRENT OF C1';
	
	SET OUT_TOTAL_ROWS_DELETED =  0 ;

	PREPARE S1 FROM PSTMT_SEL;
	PREPARE S2 FROM PSTMT_CHG;
	
	OPEN C1;
	
	FETCH C1 INTO DUMMY_INT;
	
	WHILE (SQLCODE !=  100 ) DO
		SET CNT = CNT +  1 ;
		SET OUT_TOTAL_ROWS_DELETED = OUT_TOTAL_ROWS_DELETED +  1 ;
		
		EXECUTE S2;
		
		IF (CNT = IN_DELETE_ROWS_BLOCK_SIZE) THEN
			COMMIT;
			SET CNT =  0 ;
		END IF;
		
		FETCH C1 INTO DUMMY_INT;
		
	END WHILE;
	
	COMMIT;
	CLOSE C1; 

	PREPARE S1 FROM PSTMT_SEL;
	PREPARE S2 FROM PSTMT_CHG;
	
	OPEN C1;
	
	FETCH NEXT ROWSET FROM C1	FOR IN_DELETE_ROWS_BLOCK_SIZE ROWS INTO DUMMY_INT;
	
	WHILE (SQLCODE !=  100 ) DO
	
		EXECUTE S2;
		COMMIT;

		FETCH NEXT ROWSET FROM C1	FOR IN_DELETE_ROWS_BLOCK_SIZE ROWS INTO DUMMY_INT;
		
	END WHILE;
	
	CLOSE C1;

DB2 Database Error: ERROR [ 42601 ] [IBM][DB2/AIX64] SQL0104N  An unexpected token "ROWSET FROM C1 FOR IN_DELETE_ROWS_BLOCK_SIZE R" was found following "     FETCH NEXT".  Expected tokens may include:  "<space>".  LINE NUMBER= 36 .  SQLSTATE= 42601 

CREATE PROCEDURE WIZARD.CLIENT_SAFE_DELETE
(
	IN IN_CLIENT_ID INTEGER 
)
SPECIFIC WIZARD.CLIENT_SAFE_DELETE
BEGIN
	DECLARE VAR_DELETE_ROWS_BLOCK_SIZE INTEGER DEFAULT  10000 ;
	DECLARE VAR_TABNAME, VAR_CLUSTER_ID VARCHAR( 128 );
	DECLARE SQLCODE, VAR_SVCCLUSTER_ID, VAR_TSMSERVER_ID, VAR_CONTACT_ID INTEGER;
	DECLARE C_CLIENT_RELATED_END, C_TSMSERVER_RELATED_END, C_SVCCLUSTER_RELATED_END, C_TSMSERVERLIST_END, C_SVCCLUSTERLIST_END SMALLINT DEFAULT  0 ;
	DECLARE VAR_TOTAL_ROWS_AFFECTED INTEGER;
	
	DECLARE C_SVCCLUSTER_RELATED CURSOR WITH HOLD FOR
	SELECT
		TRIM(C.TABSCHEMA) || '.' ||	TRIM(C.TABNAME) AS TABNAME
	FROM
		SYSCAT.COLUMNS C
		JOIN SYSCAT.REFERENCES R ON TRIM(C.TABSCHEMA) = TRIM(R.TABSCHEMA)
			AND TRIM(C.TABNAME) = TRIM(R.TABNAME)
			AND TRIM(C.COLNAME) = TRIM(R.FK_COLNAMES)
		JOIN SYSCAT.KEYCOLUSE K ON TRIM(C.TABSCHEMA) = TRIM(K.TABSCHEMA)
			AND TRIM(C.TABNAME) = TRIM(K.TABNAME)
			AND TRIM(K.COLNAME) = 'CLUSTER_ID'
	WHERE
		(TRIM(C.COLNAME) = 'CLIENT_ID' OR TRIM(C.COLNAME) = 'CLIENTID')
			AND TRIM(R.REFTABSCHEMA) = 'WIZARD' AND TRIM(R.REFTABNAME) = 'CLIENT'
			AND TRIM(R.PK_COLNAMES) = 'ID'
			AND (TRIM(C.TABSCHEMA) != 'SVC' OR TRIM(C.TABNAME) != 'SVCCLUSTER')
			AND (TRIM(C.TABSCHEMA) != 'SVC' OR TRIM(C.TABNAME) != 'VDISKEXTENT_TEST1')
	WITH UR
	FOR FETCH ONLY;
			
	DECLARE C_TSMSERVER_RELATED CURSOR WITH HOLD FOR
	SELECT
		TRIM(C.TABSCHEMA) || '.' ||	TRIM(C.TABNAME) AS TABNAME
	FROM
		SYSCAT.COLUMNS C
		JOIN SYSCAT.REFERENCES R ON TRIM(C.TABSCHEMA) = TRIM(R.TABSCHEMA)
			AND TRIM(C.TABNAME) = TRIM(R.TABNAME)
			AND TRIM(C.COLNAME) = TRIM(R.FK_COLNAMES)
	WHERE
		(TRIM(C.COLNAME) = 'SERVER_ID' OR TRIM(C.COLNAME) = 'SERVERID')
		AND TRIM(R.REFTABSCHEMA) = 'TSM' AND TRIM(R.REFTABNAME) = 'TSMSERVER'
		AND TRIM(R.PK_COLNAMES) = 'ID'
	WITH UR
	FOR FETCH ONLY;
			
	DECLARE C_CLIENT_RELATED CURSOR WITH HOLD FOR
	SELECT
		TRIM(C.TABSCHEMA) || '.' ||	TRIM(C.TABNAME) AS TABNAME
	FROM
		SYSCAT.COLUMNS C
		JOIN SYSCAT.REFERENCES R ON TRIM(C.TABSCHEMA) = TRIM(R.TABSCHEMA)
			AND TRIM(C.TABNAME) = TRIM(R.TABNAME)
			AND TRIM(C.COLNAME) = TRIM(R.FK_COLNAMES)
		LEFT JOIN SYSCAT.KEYCOLUSE K ON TRIM(C.TABSCHEMA) = TRIM(K.TABSCHEMA)
			AND TRIM(C.TABNAME) = TRIM(K.TABNAME)
			AND TRIM(K.COLNAME) = 'CLUSTER_ID'
	WHERE
		(TRIM(C.COLNAME) = 'CLIENT_ID' OR TRIM(C.COLNAME) = 'CLIENTID')
			AND TRIM(R.REFTABSCHEMA) = 'WIZARD' AND TRIM(R.REFTABNAME) = 'CLIENT'
			AND TRIM(R.PK_COLNAMES) = 'ID'
			AND ((TRIM(C.TABSCHEMA) != 'SVC' OR TRIM(C.TABNAME) != 'SVCCLUSTER')
			AND (TRIM(C.TABSCHEMA) != 'TSM' OR TRIM(C.TABNAME) != 'TSMSERVER'))
			AND K.COLNAME IS NULL
	WITH UR
	FOR FETCH ONLY;
	
	DECLARE C_TSMSERVERLIST CURSOR WITH HOLD FOR
	SELECT
		ID
	FROM
		TSM.TSMSERVER
	WHERE
		CLIENT_ID = IN_CLIENT_ID
	FOR FETCH ONLY;
	--FETCH FIRST 1 ROWS ONLY;
		
	DECLARE C_SVCCLUSTERLIST CURSOR WITH HOLD FOR
	SELECT
		CLUSTER_ID
	FROM
		SVC.SVCCLUSTER
	WHERE
		CLIENT_ID = IN_CLIENT_ID
	FOR FETCH ONLY;
	--FETCH FIRST 1 ROWS ONLY;
		
	SELECT CONTACT_ID
	INTO VAR_CONTACT_ID 
	FROM WIZARD.CLIENT
	WHERE ID = IN_CLIENT_ID;
	
	OPEN C_TSMSERVERLIST;
	OPEN C_SVCCLUSTERLIST;
	
	WHILE (C_SVCCLUSTERLIST_END =  0 ) DO
		FETCH C_SVCCLUSTERLIST INTO VAR_CLUSTER_ID;
		IF (SQLCODE =  100 ) THEN
			SET C_SVCCLUSTERLIST_END =  1 ;
		ELSE
			OPEN C_SVCCLUSTER_RELATED;
			WHILE (C_SVCCLUSTER_RELATED_END =  0 ) DO
				FETCH C_SVCCLUSTER_RELATED INTO VAR_TABNAME;
				IF (SQLCODE =  100 ) THEN
					SET C_SVCCLUSTER_RELATED_END =  1 ;
				ELSE
					CALL SVC.SVCCLUSTER_DELETE_ROWS_BY_CLIENTID_CLUSTERID(IN_CLIENT_ID, VAR_CLUSTER_ID, VAR_DELETE_ROWS_BLOCK_SIZE, VAR_TABNAME);
				END IF;
			END WHILE;
			SET C_SVCCLUSTER_RELATED_END =  0 ;
			CLOSE C_SVCCLUSTER_RELATED WITH RELEASE;
		END IF;
	END WHILE;
	
	WHILE (C_TSMSERVERLIST_END =  0 ) DO
		FETCH C_TSMSERVERLIST INTO VAR_TSMSERVER_ID;
		IF (SQLCODE =  100 ) THEN
			SET C_TSMSERVERLIST_END =  1 ;
		ELSE
			OPEN C_TSMSERVER_RELATED;
			WHILE (C_TSMSERVER_RELATED_END =  0 ) DO
				FETCH C_TSMSERVER_RELATED INTO VAR_TABNAME;
				IF (SQLCODE =  100 ) THEN
					SET C_TSMSERVER_RELATED_END =  1 ;
				ELSE
					CALL TSM.TSMSERVER_DELETE_ROWS_BY_SERVER_ID(VAR_TSMSERVER_ID, VAR_DELETE_ROWS_BLOCK_SIZE, VAR_TABNAME, VAR_TOTAL_ROWS_AFFECTED);
				END IF;
			END WHILE;
			SET C_TSMSERVER_RELATED_END =  0 ;
			CLOSE C_TSMSERVER_RELATED WITH RELEASE;
		END IF;
	END WHILE;
	
	OPEN C_CLIENT_RELATED;
	WHILE (C_CLIENT_RELATED_END =  0 ) DO
		FETCH C_CLIENT_RELATED INTO VAR_TABNAME;
		IF (SQLCODE =  100 ) THEN
			SET C_CLIENT_RELATED_END =  1 ;
		ELSE
			CALL WIZARD.CLIENT_DELETE_ROWS_BY_CLIENT_ID(IN_CLIENT_ID, VAR_DELETE_ROWS_BLOCK_SIZE, VAR_TABNAME);
		END IF;
	END WHILE;
	CLOSE C_CLIENT_RELATED WITH RELEASE;

	CLOSE C_SVCCLUSTERLIST;
	CLOSE C_TSMSERVERLIST;

	DELETE FROM WIZARD.LICENSE WHERE ID IN (SELECT TSM.TSMLICENSE.LICENSEID FROM TSM.TSMLICENSE JOIN TSM.TSMSERVER ON TSM.TSMLICENSE.SERVERID = TSM.TSMSERVER.ID WHERE TSM.TSMSERVER.CLIENT_ID = IN_CLIENT_ID);
	COMMIT;
	DELETE FROM WIZARD.LICENSE WHERE ID IN (SELECT SVC.SVCCLUSTER.LICENSE_ID FROM SVC.SVCCLUSTER WHERE SVC.SVCCLUSTER.CLIENT_ID = IN_CLIENT_ID);
	COMMIT;
	DELETE FROM TSM.TSMSERVER WHERE CLIENT_ID = IN_CLIENT_ID;
	COMMIT;
	DELETE FROM SVC.SVCCLUSTER WHERE CLIENT_ID = IN_CLIENT_ID;
	COMMIT;
	DELETE FROM WIZARD.CONTACT WHERE ID = VAR_CONTACT_ID;
	COMMIT;
	DELETE FROM WIZARD.CLIENT WHERE ID = IN_CLIENT_ID;
	COMMIT;
END;