den-kozlov

local function MAP(t) return setmetatable(t,require'json'.map_mt) end local t = require'fun'.iter(box.slab.stats()):map(function(s) return MAP{kind=s.item_size, cnt=s.slab_count, items=s.item_count, use=math.floor(s.mem_used/(s.slab_size * s.slab_count)*1000)/10, size=s.slab_size} end):totable() table.sort(t,function(a,b) return a.kind < b.kind end) return t

den-kozlov

create global temporary table run_stats
( runid varchar2(15),
  name varchar2(80),
  value int )
on commit preserve rows;

create or replace view stats
as select 'STAT...' || a.name name, b.value
      from v$statname a, v$mystat b
     where a.statistic# = b.statistic#

den-kozlov

    public static class UIHelper
    {
        private static float
            x, y,
            width, height,
            margin,
            controlHeight,
            controlDist,
            nextControlY;
 

den-kozlov

select  s.inst_id,
        SQL.SQL_TEXT as "OPERATION",
        to_char(START_TIME, 'dd/mm/yyyy hh24:mi:ss') Start_Time,
        to_char(LAST_UPDATE_TIME, 'dd/mm/yyyy hh24:mi:ss') Last_Update_Time,
        round(TIME_REMAINING/60,1) as "MINUTES_REMAINING",
        round((SOFAR/TOTALWORK) * 100,2) as PCT_DONE
from    gv$session s, 
        gv$sqlarea sql, 
        gv$session_longops op
where     

den-kozlov

  TYPE varchar_tab IS TABLE OF VARCHAR2(100);

  FUNCTION split_string(in_comma_separated_values IN VARCHAR2) RETURN varchar_tab
    PIPELINED IS
    val    VARCHAR2(32);
    i_from PLS_INTEGER := 1;
    i_to   PLS_INTEGER;
    len    PLS_INTEGER;
  BEGIN
    len := LENGTH(in_comma_separated_values);

den-kozlov

SELECT LISTAGG (
'GRANT '
|| PRIVILEGE
|| ' ON '
|| :TARGET_TABLE_OWNER
|| '.'
|| :TARGET_TABLE_NAME
|| ' TO '
|| GRANTEE,
'; ' || CHR (10)) 

den-kozlov

# View registry settings
Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 0

# Change registry settings
# Reverse mouse wheel scroll FlipFlopWheel = 1 
# Normal mouse wheel scroll FlipFlopWheel = 0 
Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 0 | ForEach-Object { Set-ItemProperty $_.PSPath FlipFlopWheel 1 }

# Restore default scroll direction
# Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 1 | ForEach-Object { Set-ItemProperty $_.PSPath FlipFlopWheel 0 }

den-kozlov

SELECT df.tablespace_name "Tablespace"
     , totalusedspace "Used MB"
     , (df.totalspace - tu.totalusedspace) "Free MB"
     , df.totalspace "Total MB"
     , ROUND(100 * ((df.totalspace - tu.totalusedspace) / df.totalspace)) "Pct. Free"
  FROM (SELECT   tablespace_name, ROUND(SUM(bytes) / 1048576) TotalSpace
            FROM dba_data_files
        GROUP BY tablespace_name) df
     , (SELECT   ROUND(SUM(bytes) / (1024 * 1024)) totalusedspace, tablespace_name
            FROM dba_segments

den-kozlov

SELECT owner
     , segment_name
     , segment_type
     , tablespace_name
     , bytes / 1048576 MB
     , initial_extent
     , next_extent
     , extents
     , pct_increase
  FROM DBA_SEGMENTS

den-kozlov

unit BufferedFileStream;

interface

uses
  SysUtils, Math, Classes, Windows;

type
  TBaseCachedFileStream = class(TStream)
  private