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__;