show_space

tom 大神寫的，有空再翻翻 tom 的書。

CREATE OR REPLACE NONEDITIONABLE PROCEDURE show_space (
     p_segname_1     IN VARCHAR2,
     p_type_1        IN VARCHAR2 DEFAULT 'TABLE',
     p_space         IN VARCHAR2 DEFAULT 'MANUAL',
     p_analyzed      IN VARCHAR2 DEFAULT 'N',
     p_partition_1   IN VARCHAR2 DEFAULT NULL,
     p_owner_1       IN VARCHAR2 DEFAULT USER
   )
   AUTHID CURRENT_USER
AS
   p_segname              VARCHAR2 (100);
   p_type                 VARCHAR2 (30);
   p_owner                VARCHAR2 (30);
   p_partition            VARCHAR2 (50);

   l_unformatted_blocks   NUMBER;
   l_unformatted_bytes    NUMBER;
   l_fs1_blocks           NUMBER;
   l_fs1_bytes            NUMBER;
   l_fs2_blocks           NUMBER;
   l_fs2_bytes            NUMBER;
   l_fs3_blocks           NUMBER;
   l_fs3_bytes            NUMBER;
   l_fs4_blocks           NUMBER;
   l_fs4_bytes            NUMBER;
   l_full_blocks          NUMBER;
   l_full_bytes           NUMBER;
   l_free_blks            NUMBER;
   l_total_blocks         NUMBER;
   l_total_bytes          NUMBER;
   l_unused_blocks        NUMBER;
   l_unused_bytes         NUMBER;
   l_LastUsedExtFileId    NUMBER;
   l_LastUsedExtBlockId   NUMBER;
   l_LAST_USED_BLOCK      NUMBER;

   PROCEDURE p (
      p_label IN VARCHAR2,
      p_num IN NUMBER
      )
   IS
   BEGIN
      DBMS_OUTPUT.put_line (RPAD(p_label, 40, '.') || p_num);
   END;

BEGIN

   p_segname := UPPER (p_segname_1);
   p_owner := UPPER (p_owner_1);
   p_type := p_type_1;
   p_partition := UPPER(p_partition_1);

   IF (p_type_1 = 'i' OR p_type_1 ='I')

   THEN
      p_type := 'INDEX';
   END IF;
   
   IF (p_type_1 = 't' OR p_type_1 ='T')
     
   THEN
      p_type := 'TABLE';
   END IF;

   IF (p_type_1 = 'tp' OR p_type_1 ='TP')

   THEN
      p_type := 'TABLE PARTITION';
   END IF;

   IF (p_type_1 = 'ip' OR p_type_1 = 'IP')

   THEN
      p_type := 'INDEX PARTITION';
   END IF;

   IF (p_type_1 = 'c' OR p_type_1 ='C')

   THEN
      p_type := 'CLUSTER';
   END IF;
 
   DBMS_SPACE.UNUSED_SPACE (
      segment_owner               => p_owner,
      segment_name                => p_segname,
      segment_type                => p_type,
      partition_name              => p_partition,
      total_blocks                => l_total_blocks,
      total_bytes                 => l_total_bytes,
      unused_blocks               => l_unused_blocks,
      unused_bytes                => l_unused_bytes,
      LAST_USED_EXTENT_FILE_ID    => l_LastUsedExtFileId,
      LAST_USED_EXTENT_BLOCK_ID   => l_LastUsedExtBlockId,
      LAST_USED_BLOCK             => l_LAST_USED_BLOCK
    );


   IF p_space = 'MANUAL' OR (p_space<> 'auto' AND p_space <> 'AUTO')

   THEN
      DBMS_SPACE.FREE_BLOCKS (segment_owner       => p_owner,
                              segment_name        => p_segname,
                              segment_type        => p_type,
                              partition_name      => p_partition,
                              freelist_group_id   => 0,
                              free_blks           => l_free_blks
                              );

      p ('Free Blocks', l_free_blks);

   END IF;

   p ('Total Blocks',l_total_blocks);
   p ('Total Bytes', l_total_bytes);
   p ('Unused Blocks',l_unused_blocks);
   p ('Unused Bytes',l_unused_bytes);
   p ('Last Used Ext FileId',l_LastUsedExtFileId);
   p ('Last Used Ext BlockId', l_LastUsedExtBlockId);
   p ('Last Used Block',l_LAST_USED_BLOCK);


   /*IF the segment is analyzed */
   IF p_analyzed = 'Y'

   THEN
      DBMS_SPACE.SPACE_USAGE(segment_owner        => p_owner,
                             segment_name         => p_segname,
                             segment_type         => p_type,
                             partition_name       => p_partition,
                             unformatted_blocks   => l_unformatted_blocks,
                             unformatted_bytes    => l_unformatted_bytes,
                             fs1_blocks           => l_fs1_blocks,
                             fs1_bytes            => l_fs1_bytes,
                             fs2_blocks           => l_fs2_blocks,
                             fs2_bytes            => l_fs2_bytes,
                             fs3_blocks           => l_fs3_blocks,
                             fs3_bytes            => l_fs3_bytes,
                             fs4_blocks           => l_fs4_blocks,
                             fs4_bytes            => l_fs4_bytes,
                             full_blocks          => l_full_blocks,
                             full_bytes           => l_full_bytes
                             );

      DBMS_OUTPUT.put_line (RPAD ('', 50, '*'));
      DBMS_OUTPUT.put_line ('Thesegment is analyzed');

      p ('0% -- 25% free spaceblocks', l_fs1_blocks);
      p ('0% -- 25% free spacebytes', l_fs1_bytes);
      p ('25% -- 50% free spaceblocks', l_fs2_blocks);
      p ('25% -- 50% free spacebytes', l_fs2_bytes);
      p ('50% -- 75% free spaceblocks', l_fs3_blocks);
      p ('50% -- 75% free spacebytes', l_fs3_bytes);
      p ('75% -- 100% free spaceblocks', l_fs4_blocks);
      p ('75% -- 100% free spacebytes', l_fs4_bytes);
      p ('Unused Blocks', l_unformatted_blocks);
      p ('Unused Bytes',l_unformatted_bytes);
      p ('Total Blocks',l_full_blocks);
      p ('Total bytes',l_full_bytes);

   END IF;

END;

如何使用

SQL> set serveroutput on;
SQL> begin
  show_space (
    p_segname_1   => 'EMP',
    p_type_1      => 'TABLE',
    p_space       => 'AUTO',
    p_owner_1     => 'SCOTT'
   );
end;
/

Total Blocks............................8
Total Bytes.............................65536
Unused Blocks...........................0
Unused Bytes............................0
Last Used Ext FileId....................6
Last Used Ext BlockId...................192
Last Used Block.........................8

PL/SQL procedure successfully completed.

SQL> set serveroutput on;
SQL> begin
  show_space (
    p_segname_1   => 'EMP',
    p_type_1      => 'TABLE',
    p_space       => 'AUTO',
    p_analyzed    => 'Y',
    p_owner_1     => 'SCOTT'
   );
end;
/

Total Blocks............................8
Total Bytes.............................65536
Unused Blocks...........................0
Unused Bytes............................0
Last Used Ext FileId....................6
Last Used Ext BlockId...................192
Last Used Block.........................8
Thesegment is analyzed
0% -- 25% free spaceblocks..............0
0% -- 25% free spacebytes...............0
25% -- 50% free spaceblocks.............0
25% -- 50% free spacebytes..............0
50% -- 75% free spaceblocks.............0
50% -- 75% free spacebytes..............0
75% -- 100% free spaceblocks............5
75% -- 100% free spacebytes.............40960
Unused Blocks...........................0
Unused Bytes............................0
Total Blocks............................0
Total bytes.............................0

PL/SQL procedure successfully completed.