JL Computer Consultancy

System Stats procedure for File logging performance

Pre-August 1999

---

--
-- Script: loop_sys.prc
-- Author: J P Lewis
-- Dated: 22-Jan-1999
-- Purpose: Code for procedure system_stats
--
procedure system_stats (
 i_directory in varchar2,
 i_TimeStamp in varchar2,
 i_current_loop in number
) is
 fOutput utl_file.file_type;
begin
 if (i_current_loop = 0) then
 for r in c_system_stat loop
  s_list(r.statistic#).name := r.name;
 s_list(r.statistic#).value := r.value;
 end loop;
 else
 fOutput := utl_file.fopen(
 i_directory,
 'system_stats.'||i_Timestamp,
  'w'
 );
 utl_file.put_line(fOutput,rpad('-',45,'-'));
 utl_file.put_line(
 fOutput,
  'System Stats in ' ||
 to_char(i_time_lapse) ||
 ' minutes to ' ||
  to_char(sysdate,'dd-Mon hh24:mi:ss')
 );
 utl_file.put_line(fOutput,rpad('-',45,'-'));
 utl_file.put_line(fOutput, rpad('Name',64) || lpad('Value',15));
 utl_file.put_line(fOutput, rpad('----',64) || lpad('-----',15));
 for r in c_system_stat loop
 if ((s_list(r.statistic#).value != r.value)) then
 utl_file.put(
 fOutput,
 rpad(s_list(r.statistic#).name,64)
 );
 utl_file.put_line(
 fOutput,
 to_char(
 r.value - s_list(r.statistic#).value,
  '99,999,999,990')
 );
 end if;
 s_list(r.statistic#).name := r.name;
 s_list(r.statistic#).value := r.value;
 end loop;
 utl_file.fclose(fOutput);
 end if;
end system_stats;

---

Back to main package

Back to Main Index of Topics