PROCEDURE Cleanup__ IS message_ VARCHAR2(2000); CURSOR table_to_clear IS SELECT table_name, days_to_keep FROM HISTORY_SETTING_TAB WHERE activate_cleanup = 'TRUE'; BEGIN FOR next_ IN table_to_clear LOOP message_ := Message_SYS.Construct('CLEANUP_HISTORY_LOG'); Message_SYS.Add_Attribute(message_, 'TABLE_NAME', next_.table_name); Message_SYS.Add_Attribute(message_, 'DAYS_TO_KEEP', next_.days_to_keep); History_Log_API.Remove_Older_Than__(message_); @ApproveTransactionStatement(2013-10-30,haarse) COMMIT; END LOOP; END Cleanup__;