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>
create function "pears"."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>