一顆小小的柏

sys@TEST_LUNAR> set heading on
sys@TEST_LUNAR> set feedback on
sys@TEST_LUNAR>
sys@TEST_LUNAR> set heading off
sys@TEST_LUNAR> set feedback off
sys@TEST_LUNAR> set pagesize 2000
sys@TEST_LUNAR>
sys@TEST_LUNAR> select decode
  2         ( sign(floor(maxwidth/2)-rownum)
  3         , 1, lpad( ' ', floor(maxwidth/2)-(rownum-1))
  4           || rpad( chr(257), 2*(rownum-1)+1, ' ' || chr(257))
  5         , lpad( chr(257) || chr(257) || chr(257), floor(maxwidth/2)+3))
  6  from all_objects
  7     , (select 25 as maxwidth from dual)
  8  where rownum < floor(maxwidth/2) +6;

           
          
         
        
       
      
     
    
   
  
 
        
        
        
        
        
        
sys@TEST_LUNAR>
sys@TEST_LUNAR> set heading on
sys@TEST_LUNAR> set feedback on
sys@TEST_LUNAR>
sys@TEST_LUNAR>