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>