pears.DBCleanupOldJRlog [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== pears.DBCleanupOldJRlog ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."DBCleanupOldJRlog" IS 
{create function DBCleanupOldJRlog 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in age integer, in countordo char(1))
returns integer
begin
  declare @RC integer;
  select count(*) into @RC from iqxjobrunnerlog where 
    completiontime <= current date-age;
  if countordo = 'C' then
    return @RC
  end if;
  delete from iqxjobrunnerlog where 
    completiontime <= current date-age;
  call AuditLog('CLEANUP',null,string(@RC,' Old Jobrunner Logs deleted ',age,' days old'),null,null);
  return @RC;
end
}
</code>