Oracle Database Administrator (ordba)

insert table scripts (all tables 100 rows)

noreply@blogger.com (ordba-Orhan Eripek) — Wed, 27 May 2009 06:05:00 PDT

----------function-------------

CREATE OR REPLACE FUNCTION ORHAN.GET_INSERT_SCRIPT(V_TABLE_NAME long)
RETURN long AS
B_FOUND BOOLEAN := FALSE;
V_TEMPA long;
V_TEMPB long;
V_TEMPC long;
BEGIN
FOR TAB_REC IN (SELECT TABLE_NAME
FROM ALL_TABLES
WHERE TABLE_NAME = UPPER (V_TABLE_NAME)) LOOP
B_FOUND := TRUE;
V_TEMPA := 'select test from (
select rownum row_num,A.* from (select ''insert into ' || TAB_REC.TABLE_NAME || ' (';

FOR COL_REC IN (SELECT *
FROM user_tab_columns
WHERE TABLE_NAME = TAB_REC.TABLE_NAME
ORDER BY COLUMN_ID) LOOP
IF COL_REC.COLUMN_ID = 1 THEN
V_TEMPA := V_TEMPA || '''||chr(10)||''';
ELSE
V_TEMPA := V_TEMPA || ',''||chr(10)||''';
V_TEMPB := V_TEMPB || ',''||chr(10)||''';
END IF;

V_TEMPA := V_TEMPA || COL_REC.COLUMN_NAME;

IF INSTR (COL_REC.DATA_TYPE, 'CHAR') > 0 THEN
V_TEMPC := '''''''''||' || COL_REC.COLUMN_NAME || '||''''''''';
ELSIF INSTR (COL_REC.DATA_TYPE, 'DATE') > 0 THEN
V_TEMPC :=
'''to_date(''''''||to_char('
|| COL_REC.COLUMN_NAME
|| ',''mm/dd/yyyy hh24:mi'')||'''''',''''mm/dd/yyyy hh24:mi'''')''';
ELSE
V_TEMPC := COL_REC.COLUMN_NAME;
END IF;

V_TEMPB :=
V_TEMPB
|| '''||decode('
|| COL_REC.COLUMN_NAME
|| ',Null,''Null'','
|| V_TEMPC
|| ')||''';
END LOOP;

V_TEMPA :=
V_TEMPA
|| ') values ('
|| V_TEMPB
|| ');'' as test from '
|| TAB_REC.TABLE_NAME
|| ' )A where rownum<=100) where row_num>0;';
END LOOP;

IF NOT B_FOUND THEN
V_TEMPA := '- Table ' || V_TABLE_NAME || ' not found';
ELSE
V_TEMPA :='INSERT INTO ORHAN.INSERT_SCRIPTS(test) '|| V_TEMPA || CHR (10);
END IF;

RETURN V_TEMPA;
END;
/
---------------------------------------------

--------------procedure----------------------

CREATE OR REPLACE procedure ORHAN.pro_insert is

RetVal long;
V_TABLE_NAME long;
t_name long;

cursor cur is select table_name as t_name from user_tables;

rec_cur cur%ROWTYPE;

BEGIN

open cur;
loop
fetch cur into rec_cur.t_name;
exit when cur%notfound;

V_TABLE_NAME := rec_cur.t_name;

RetVal := ORHAN.GET_INSERT_SCRIPT ( V_TABLE_NAME );
COMMIT;

--DBMS_OUTPUT.put_line (RetVal);

INSERT /*+ APPEND */ INTO ORHAN.select_insert (
TEST)
VALUES ( RetVal );

commit;
end loop;

close cur;

END;
/
----------------------------------------------

--------insert_scripts.sh----------------------

#!/usr/bin/ksh
. $HOME/.profile

sqlplus -s /nolog << EOF > /dev/null
connect ORHAN/PASSWORD@ORCL

set verify off;
set termout off;
set feedback off;
set pagesize 0;

BEGIN
ORHAN.PRO_INSERT;
COMMIT;
END;
/

SPOOL /tmp/orhan/insert_scripts.txt

set heading off
set recsep off
col text format a80 word_wrap
spool off;
--------------------------------------------

for example 'INSERT INTO ORHAN.INSERT_SCRIPTS(test) select test from
(select rownum row_num,A.* from (select 'insert into table_name
('||chr(10)||'no,'||chr(10)||'mesaj) values ('||decode(no,Null,'Null',''''||no||'''')||',
'||chr(10)||''||decode(mesaj,Null,'Null',''''||mesaj||''''));'
as test from table_name ) A where rownum<=100) where row_num>0;' script see;

select * from ORHAN.select_insert;
and
for example 'insert into table_name(no,mesaj)
values (1233,'selam');' script see;

select * from ORHAN.INSERT_SCRIPTS;

on toad save as.. to text file.

constraint scripts with dbms_metadata.get_ddl

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 05 May 2009 06:10:00 PDT

set feedback off
set heading off
set long 4000
SELECT DBMS_METADATA.get_ddl('CONSTRAINT' ,constraint_name,owner) FROM DBA_CONSTRAINTS
WHERE owner not in ('SYS','SYSTEM',
'SCOTT','DBSNMP','OUTLN','WKPROXY','WMSYS','ORDSYS','ORDPLUGINS','MDSYS',
'CTXSYS','XDB','ANONYMOUS','OWNER','WKSYS','ODM_MTR','ODM','OLAPSYS',
'HR','OE','PM','SH','QS_ADM','QS','QS_WS','QS_ES','QS_OS','QS_CBADM',
'QS_CB','QS_CS','PERFSTAT')
------------------------------------

set feedback off
set heading off
set long 4000
select dbms_metadata.get_ddl('CONSTRAINT',constraint_name) FROM USER_CONSTRAINTS

profile scripts with dbms_metadata.get_ddl

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 05 May 2009 03:55:00 PDT

set feedback off
set heading off
set long 4000
SELECT dbms_metadata.get_ddl('PROFILE',profile) FROM dba_profiles WHERE profile != 'DEFAULT'

CREATE USER DDL

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 05 May 2009 01:47:00 PDT

-------------------------------------------
#!/usr/bin/ksh
. $HOME/.profile

sqlplus -s /nolog << EOF > /dev/null
connect USER/PASSWORD@ORCL

SET LINESIZE 1024;
SET HEADING OFF;
SET PAGESIZE 0;
SET FEEDBACK OFF;
SET TRIMSPOOL ON;
set escape on;

SPOOL /tmp/orhan/create_users_ddl.txt

select 'create user ' || U.username || ' identified ' ||
DECODE(password,
NULL, 'EXTERNALLY',
' by values ' || '''' || password || ''''
)
|| chr(10) ||
'default tablespace ' || default_tablespace || chr(10) ||
'temporary tablespace ' || temporary_Tablespace || chr(10) ||
' profile ' || profile || chr(10) ||
'quota ' ||
decode ( Q.max_bytes, -1, 'UNLIMITED', NULL, 'UNLIMITED', Q.max_bytes) ||
' on ' || default_tablespace ||
decode (account_status,'LOCKED', ' account lock',
'EXPIRED', ' password expire',
'EXPIRED \& LOCKED', ' account lock password expire',
null)
||
';'
from dba_users U, dba_ts_quotas Q
-- Comment this clause out to include system & default users
where U.username not in ('SYS','SYSTEM',
'SCOTT','DBSNMP','OUTLN','WKPROXY','WMSYS','ORDSYS','ORDPLUGINS','MDSYS',
'CTXSYS','XDB','ANONYMOUS','OWNER','WKSYS','ODM_MTR','ODM','OLAPSYS',
'HR','OE','PM','SH','QS_ADM','QS','QS_WS','QS_ES','QS_OS','QS_CBADM',
'QS_CB','QS_CS','PERFSTAT')
and U.username=Q.username(+) and U.default_tablespace=Q.tablespace_name(+)
;

set pagesize 100
set escape off

SPOOL OFF
EXIT SQL.SQLCODE;
EOF
----------------------------------------------------

.txt file inserting to table with utl_file

noreply@blogger.com (ordba-Orhan Eripek) — Sun, 03 May 2009 23:22:00 PDT

----örnek 'a.txt' dosyası içeriği;----

ABCD-1020 80
DCKF-5010 20
----------------------------------
drop procedure file_read;
drop table test;

create table test (
text VARCHAR2(200),
text_name VARCHAR2(200),
create_date date default sysdate);

CREATE OR REPLACE PROCEDURE file_read(file_name VARCHAR2) IS
vSFile utl_file.file_type;
vNewLine VARCHAR2(200);
BEGIN
vSFile := utl_file.fopen('ORHAN_DIR', file_name,'r');

IF utl_file.is_open(vSFile) THEN
LOOP
BEGIN
utl_file.get_line(vSFile, vNewLine);

IF vNewLine IS NULL THEN
EXIT;
END IF;

INSERT INTO test
(text, text_name, create_date)
VALUES
(vNewLine, file_name,sysdate);
EXCEPTION
WHEN NO_DATA_FOUND THEN
EXIT;
END;
END LOOP;
COMMIT;
END IF;
utl_file.fclose(vSFile);
EXCEPTION
WHEN utl_file.invalid_mode THEN
RAISE_APPLICATION_ERROR (-20051, 'Invalid Mode Parameter');
WHEN utl_file.invalid_path THEN
RAISE_APPLICATION_ERROR (-20052, 'Invalid File Location');
WHEN utl_file.invalid_filehandle THEN
RAISE_APPLICATION_ERROR (-20053, 'Invalid Filehandle');
WHEN utl_file.invalid_operation THEN
RAISE_APPLICATION_ERROR (-20054, 'Invalid Operation');
WHEN utl_file.read_error THEN
RAISE_APPLICATION_ERROR (-20055, 'Read Error');
WHEN utl_file.internal_error THEN
RAISE_APPLICATION_ERROR (-20057, 'Internal Error');
WHEN utl_file.charsetmismatch THEN
RAISE_APPLICATION_ERROR (-20058, 'Opened With FOPEN_NCHAR
But Later I/O Inconsistent');
WHEN utl_file.file_open THEN
RAISE_APPLICATION_ERROR (-20059, 'File Already Opened');
WHEN utl_file.invalid_maxlinesize THEN
RAISE_APPLICATION_ERROR(-20060,'Line Size Exceeds 32K');
WHEN utl_file.invalid_filename THEN
RAISE_APPLICATION_ERROR (-20061, 'Invalid File Name');
WHEN utl_file.access_denied THEN
RAISE_APPLICATION_ERROR (-20062, 'File Access Denied By');
WHEN utl_file.invalid_offset THEN
RAISE_APPLICATION_ERROR (-20063,'FSEEK Param Less Than 0');
WHEN others THEN
RAISE_APPLICATION_ERROR (-20099, 'Unknown UTL_FILE Error');
END file_read;
/
--------------------------------------------------

DECLARE
FILE_NAME VARCHAR2(32767);

BEGIN
FILE_NAME := NULL;

SCH.FILE_READ ( 'a.txt' );
COMMIT;
END;
-------------------------------------------------

update procedure

noreply@blogger.com (ordba-Orhan Eripek) — Sun, 03 May 2009 23:07:00 PDT

drop table paketler;

create table paketler (
paket_kod VARCHAR2(200),
paket_ad VARCHAR2(200));

insert into paketler(paket_kod,paket_ad)values ('5010PPA','PAKET01');
insert into paketler(paket_kod,paket_ad)values ('5220PPB','PAKET02');
insert into paketler(paket_kod,paket_ad)values ('5420PPC','PAKET03');

DECLARE
CURSOR a
IS
SELECT paket_kod
FROM paketler
WHERE paket_kod LIKE '5420%';

p_kod paketler.paket_kod%TYPE;

BEGIN

OPEN a;

LOOP
FETCH a INTO p_kod;

begin
EXECUTE IMMEDIATE 'update paketler set paket_kod=''5500PPC'' where paket_kod= :b_v' USING p_kod;

EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (p_kod || ' - ' || SQLERRM);

end;

EXIT WHEN a%NOTFOUND;

DBMS_OUTPUT.put_line (p_kod || ' kodlu paketiniz 5500PPC olarak değiştirilmiştir.');

END LOOP;

CLOSE a;

COMMIT;
END;

gzip, tar on unix

noreply@blogger.com (ordba-Orhan Eripek) — Mon, 27 Apr 2009 10:14:00 PDT

compressing: gzip dosya_adi.txt

extracting: gzip -d dosya_adi.txt.gz

all file compressing: gzip *.txt

all file extracting: gzip -d *.txt

all .txt file archiving to .tar file : tar -cvf dosya_adi.tar *.txt

folder archiving to .tar file : tar -cvf dosya_adi.tar klasör_adi/

.tar file exctracting: tar -xf dosya_adi.tar

.tar file compressing: gzip dosya_adi.tar

.tar.gz compressing: tar cvf - /tarlanıp sıkıştıracağın dizin | gzip > ~/deneme.tar.gz

-------------------------------------------------

all_users_tables_scripts.sh

noreply@blogger.com (ordba-Orhan Eripek) — Sun, 26 Apr 2009 23:15:00 PDT

------bazı kullanıcıların tüm tablolarının scriptleri----

#!/usr/bin/ksh
. $HOME/.profile

sqlplus -s /nolog << EOF > /dev/null
connect ORHAN/PASSWORD@ORCL

set verify off;
set termout off;
set feedback off;
set pagesize 0;
set heading off
set long 40000

SPOOL /tmp/orhan/all_users_tables_scripts.txt

select dbms_metadata.get_ddl('TABLE',u.table_name,u.owner) from dba_tables u
where u.owner in('OERIPEK','AATES','MCAN');

set heading off
set recsep off
col text format a80 word_wrap
spool off;
----------------------------------------------

tables,indexes scripts

noreply@blogger.com (ordba-Orhan Eripek) — Wed, 22 Apr 2009 05:08:00 PDT

----kullanıcının belirtilen tablosunun scripti için-----

set feedback off
set heading off
set long 4000
select dbms_metadata.get_ddl('TABLE','TABLO1') from dual;
----------------------------------------------

----belirtilen kullanıcının belirtilen tablosunun scripti için-----

set feedback off
set heading off
set long 4000
select dbms_metadata.get_ddl('TABLE','TABLO2','MEHMET') from dual;
----------------------------------------------

----kullanıcının tüm tablolarının scripti için----

set feedback off
set heading off
set long 4000
select dbms_metadata.get_ddl('TABLE',a.table_name) from USER_TABLES a;
--------------------------------------------------

----kullanıcının tüm indexlerinin scripti için----

set feedback off
set heading off
set long 4000
select dbms_metadata.get_ddl('INDEX',a.index_name) from USER_INDEXES a;
--------------------------------------------------

------ORHAN ve MEHMET kullanıcılarının tüm
tablolarının scriptini çıkaran sql sorgusu için------------

set feedback off
set heading off
set long 4000
select 'select DBMS_METADATA.GET_DDL(''TABLE'','''||a.table_name||''','''||a.owner||''') from dual;'
from dba_tables a where owner in('ORHAN','MEHMET');
---------------------------------------------------

tablespace_scripts.sh

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 21 Apr 2009 23:56:00 PDT

database'imizde bulunan tüm tablespace'lerimizin scriptini
aşağıdaki örnek .sh dosyasında spool ile .txt dosyasına alabiliriz.
-----------------------------------------------
#!/usr/bin/ksh
. $HOME/.profile

sqlplus -s /nolog << EOF > /dev/null
connect orhan/password@orcl

set verify off;
set termout off;
set feedback off;
set pagesize 0;

create table ts_temp (lineno number, ts_name varchar2(40),text long);

DECLARE
CURSOR ts_cursor IS select tablespace_name,
initial_extent,
next_extent,
min_extents,
max_extents,
pct_increase,
status
from sys.dba_tablespaces
where tablespace_name != 'SYSTEM'
and status != 'INVALID'
order by tablespace_name;
CURSOR df_cursor (c_ts VARCHAR2) IS select file_name,
bytes
from sys.dba_data_files
where tablespace_name = c_ts
and tablespace_name != 'SYSTEM'
order by file_name;

lv_tablespace_name sys.dba_tablespaces.tablespace_name%TYPE;
lv_initial_extent sys.dba_tablespaces.initial_extent%TYPE;
lv_next_extent sys.dba_tablespaces.next_extent%TYPE;
lv_min_extents sys.dba_tablespaces.min_extents%TYPE;
lv_max_extents sys.dba_tablespaces.max_extents%TYPE;
lv_pct_increase sys.dba_tablespaces.pct_increase%TYPE;
lv_status sys.dba_tablespaces.status%TYPE;
lv_file_name sys.dba_data_files.file_name%TYPE;
lv_bytes sys.dba_data_files.bytes%TYPE;
lv_first_rec BOOLEAN;
lv_string long;
lv_lineno number := 0;

procedure write_out(p_line INTEGER, p_name VARCHAR2,
p_string VARCHAR2) is
begin
insert into ts_temp (lineno, ts_name, text) values
(p_line, p_name, p_string);

end;

BEGIN
OPEN ts_cursor;
LOOP
FETCH ts_cursor INTO lv_tablespace_name,
lv_initial_extent,
lv_next_extent,
lv_min_extents,
lv_max_extents,
lv_pct_increase,
lv_status;
EXIT WHEN ts_cursor%NOTFOUND;
lv_lineno := 1;
lv_string := ('CREATE TABLESPACE '||lower(lv_tablespace_name));
lv_first_rec := TRUE;
write_out(lv_lineno, lv_tablespace_name, lv_string);
OPEN df_cursor(lv_tablespace_name);
LOOP
FETCH df_cursor INTO lv_file_name,
lv_bytes;
EXIT WHEN df_cursor%NOTFOUND;
if (lv_first_rec) then
lv_first_rec := FALSE;
lv_string := 'DATAFILE ';
else
lv_string := lv_string || ',';
end if;
lv_string:=lv_string||''''||lv_file_name||''''||
' SIZE '||to_char(lv_bytes) || ' REUSE';
END LOOP;
CLOSE df_cursor;
lv_lineno := lv_lineno + 1;
write_out(lv_lineno, lv_tablespace_name, lv_string);
lv_lineno := lv_lineno + 1;
lv_string := (' DEFAULT STORAGE (INITIAL ' ||
to_char(lv_initial_extent) ||
' NEXT ' || lv_next_extent);
write_out(lv_lineno, lv_tablespace_name, lv_string);
lv_lineno := lv_lineno + 1;
lv_string := (' MINEXTENTS ' ||
lv_min_extents ||
' MAXEXTENTS ' || lv_max_extents);
write_out(lv_lineno, lv_tablespace_name, lv_string);
lv_lineno := lv_lineno + 1;
lv_string := (' PCTINCREASE ' ||
lv_pct_increase || ')');
write_out(lv_lineno, lv_tablespace_name, lv_string);
lv_string := (' '||lv_status);
write_out(lv_lineno, lv_tablespace_name, lv_string);
lv_lineno := lv_lineno + 1;
lv_string:='/';
write_out(lv_lineno, lv_tablespace_name, lv_string);
lv_lineno := lv_lineno + 1;
lv_string:=' ';
write_out(lv_lineno, lv_tablespace_name, lv_string);
END LOOP;
CLOSE ts_cursor;
END;
/
SPOOL /temp/orhan/tablespace_scripts.txt
set heading off
set recsep off
col text format a80 word_wrap

select text
from ts_temp
order by ts_name, lineno;

spool off;

drop table ts_temp;
-----------------------------------------

eğer tablespace'lerimiz üzerinde zamanla değişiklikler
yapmışsak (datafile'ların boyutunun artırılması gibi,
ALTER DATABASE DATAFILE ...) o zaman en güncel haliyle
tablespace'lerimizin scriptlerini dbms_metadata.get_ddl
ile çıkarabiliriz.

-------------------------------------
set lines 132
set pages 200
set long 4000

select dbms_metadata.get_ddl('TABLESPACE', tablespace_name) DDL from dba_tablespaces
-------------------------------------

duplica kayıtları silmek

noreply@blogger.com (ordba-Orhan Eripek) — Wed, 15 Apr 2009 23:06:00 PDT

drop table orhan.personel;

create table orhan.personel (id number,adi varchar2(20),gorevi varchar2(50));

insert into orhan.personel (id,adi,gorevi) values (10,'orhan','dba');
insert into orhan.personel (id,adi,gorevi) values (20,'ahmet','hizmetci');
insert into orhan.personel (id,adi,gorevi) values (10,'orhan','dba');
insert into orhan.personel (id,adi,gorevi) values (20,'ahmet','hizmetci');
insert into orhan.personel (id,adi,gorevi) values (10,'orhan','dba');

delete from orhan.personel where rowid not in (select min(rowid) from orhan.personel group by id);
---------------------------------------------------
7 gb a kadar artan rollback segmentlerde duplica kayıtları silmek için;

delete from orhan.personel where rowid in
(select rid from (select rowid rid, row_number() over (partition by id order by rowid) rn from orhan.personel )where rn <> 1 );

UNIX'TE TEK SATIR SELECT KOMUTU

noreply@blogger.com (ordba-Orhan Eripek) — Mon, 13 Apr 2009 23:50:00 PDT

ordba@ordbap1>/home/orhan$ echo "select * from all_directories;" | sqlplus -s USER/PASSWORD@SID

DBMS_OUTPUT.PUT_LINE

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 07 Apr 2009 05:50:00 PDT

Birden fazla satır döndüren select cümlelerini output ile
ekrana çıkarmak için for döngüsü kullanmak gerekiyor.
(Ali'ye atıfta bulunayım... :)))
----------------------------------------------------
DECLARE
text VARCHAR2(200);
v_text long;
BEGIN
for text in(select column_name from user_tab_columns where table_name = 'TABLE_NAME')
loop
v_text:=v_text||text.column_name||chr(10);
end loop;
dbms_output.put_line(v_text);
END;
-------------------------------------------
eğer tek değer döndüren bir select cümlesi ise
bildiğimiz gibi into kullanılır...

---------------------------------------------
DECLARE
text VARCHAR2(200);
v_text long;
BEGIN
v_text:= 'select column_name as text from user_tab_columns where table_name =''TABLE_NAME''';
execute immediate v_text into text;
dbms_output.put_line(text);
END;
------------------------------------------------------------

drop some tables

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 07 Apr 2009 00:46:00 PDT

Tüm constraint yapıları ile birlikte belirtilen user'ın bazı
tablolarını drop etmek için aşağıdaki gibi bi plsql bloğu kullanılabilir.
-----------------------------------------------------------
declare
cursor c1 is
select 'drop table '||table_name|| ' cascade constraints' text from all_tables where owner ='USERNAME' and table_name like 'PM%';
begin
for i in c1 loop
BEGIN
dbms_output.put_line(i.text);
EXECUTE IMMEDIATE (i.text);
EXCEPTION
When others Then
DBMS_OUTPUT.PUT_LINE('ERROR='||i.text);
DBMS_OUTPUT.PUT_LINE(SQLERRM);
--RAISE;
END;
end loop;
end;
------------------------------------------------------

SQLERRM AND USER DEFINED EXCEPTION

noreply@blogger.com (ordba-Orhan Eripek) — Mon, 06 Apr 2009 23:22:00 PDT

Aşağıdaki plsql bloğu ile Oracle'da tanımlanan Ora-
hatalarının tümünü dbms_output ile ekrana çıkarabiliriz.

------------------------------------------
DECLARE
v_error_desc VARCHAR2 (200);
v_error_code NUMBER;
BEGIN
FOR errno IN REVERSE -32799 .. 0
LOOP
v_error_code := errno;
v_error_desc := SQLERRM (errno);

IF v_error_desc NOT LIKE '%Message % not found;%'
AND v_error_desc != 'ORA' || TO_CHAR (errno, 'FM09999') || ': '
THEN
DBMS_OUTPUT.put_line (v_error_desc);

END IF;
END LOOP;
END;
----------------------------------------------
Kullanıcı tanımlı hatalar'da ise 'raise _applicaion_error(errorID, errorDesc)' kullanılır.'errorID' ve 'errorDesc' alanlarını kullanıcı belirler.'errorID' [-20000,-20999] arasında olmalıdır.'errorDesc' alanı ise en fazla 2000 karakterlik 'varchar2' veri tipinde açıklama yazılabilir.

declare
v_value number :=110;
begin
if(v_value > 100) then
raise_application_error(-20010,'Değer büyük!');
end if;
end;

-----------------------------------------------------------------
Bir diğer yol, hatayı tanımlayıp raise etmek;

declare
v_value number :=110;
deger exception;
begin
if(v_value > 100) then
raise deger;
end if;
exception
when deger then
raise_application_error(-20010,'Değer büyük!');
end;

----------------------------------------------------------------

INSTALL ENTERPRISE LINUX 4 UPDATE 5 ON VMWARE SERVER

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 31 Mar 2009 00:45:00 PDT

VMware Server üzerine Oracle Enterprise Linux 4 update 5
sistemini kurmayı adım adım anlatalım:
VMware Server ile Oracle Enterprise Linux 4 update 5
üzerine 2 node'lu Oracle Rac ortamı kurarken yaptığım
çalışmanın bir kısmını burada sizlerle paylaşıyorum.

1-'New Virtual Machine' ikonu tıklanıp Wizard ile kurulum
aşamalarını tek tek geçiyoruz;

2-Karşımıza çıkan bu ilk ekranda eğer ‘Custom’ ı seçersek
oluşturacağımız sanal makineye kendi ihtiyaçlarımıza göre
ek sürücüler seçebilir veya spesifik konfigürasyon özellikleri katabiliriz;

3-Linux seçeneğinden ‘Red Hat Enterpirse Linux 4’ sürümü seçildi
ve kuracağımız linux sürümü Enterprise Linux 4 update 5
(Redhat’ın Oracle için hazırladığı versiyonu) olacağından
bu kategoriden seçim yapıldı.

4-Sanal linux makinesi ‘EL4_10gRAC1’ şeklinde kısaltılmış
olarak adlandırıldı.

5-Kuracağımız sanal linux makinelerin herkes tarafından
rahat erişilebilir olması için sonraki adımdaki
‘Make this virtual machine private’ seçeneği işaretlenmedi.

6-Startup/Shutdown ayarlarını değiştirmeden bu kısım geçildi,
sanal linux makinesinin varolan sistemin kullanıcısı bazlı
açılıp kapanması gerektiğinden default seçeneği değiştirilmedi.

7-Default olarak seçili tek olan işlemci sayısı (Number of processors ‘One’) değiştirilmedi.

8-VMware Server uygulamasını kurduğum sistemim ‘Windows XP Version 2002 Servise Pack 3’ ve sistemimin belleği 2 GB boyutunda olduğundan kuracağım sanal linux makinelerim için 1GB boyutunda bellek alanı oluşturabilirim, Sanal linux makinelerinde Oracle Database ve Oracle Clusterware uygulamalarının bellek ihtiyaçları için de rahat çalışma ortamı imkanı açısından 1GB bellek alanı uygun olacaktır.

9-Network bağlantı tiplerinden ethernet üzerinden direk bağlanmayı tercih etmeliyiz. Default’ta ‘Use bridged networking’ seçili olarak karşımıza çıktı.

10-Giriş-Çıkış(I/O) adapter tiplerinden ‘LSI Logic’ default olarak seçili iken sonraki adıma geçildi.

11-‘Create a new virtual disk’ default seçeneği ile sanal linux makinelerimizin sanal disklerini oluşturulur.

12-Sanal disk tiplerinden SCSI defalut seçeneği ayrıca önerilen seçenek olduğundan değiştirmeden sonraki adıma geçildi.

13-Sanal makinemizin disk kapasitesi için kendi lokal pc’mizden 20 gb kadar feragat etmemiz gerekiyor. Çünkü sanal makinemizde linux kurulumu için, Oracle database, Oracle clusterware ve bunların kendi çalışma alanları için 20gb yeterli olur. ‘Allocate all disk space now’ seçeneğinin işaretli olmaması ve ‘Split disk into 2 GB files’ seçeneğinin ise işaretli olması gerekiyor.

14-Sanal diskimize ‘localdisk.vmdk’ adını verdik ve bunu birinci sanal makinemizin bulunduğu dizinde (F:\My Virtual Machines\RAC\rac10g\rac1\) oluşturduk.

15-‘Edit virtual machine settings’ linkini tıklayıp sanal makinemiz EL4_10gRAC1’ in ayarlarını düzenleyelim, Ortak diskleri ve ilave network kartını ekleyelim.

16-Karşımıza gelen aşağıdaki ekranda ‘Add…’ butonuna tıkladığımızda ‘Add Hardware Wizard’ penceresi açılacaktır.

17-‘Ethernet Adapter’ seçeneği ile ileri butonunu tıkladığımızda ilave network kartını sistemin network kartıyla birbirine bağlayarak (private interconnect) konfigüre ettik.

18-Burada network tiplerinden ‘Host-only:’ seçeneği ile donanımımızın Ethernet kartını kullandık.

19-Add Hardware Wizard ile aşağıdaki Tablo 1: ‘deki gibi SCSI disklerini oluşturalım.

Bölümler Boyut Sanal disk tipi
Database files 3Gb SCSI 1: 0
Database files 3Gb SCSI 1: 1
Database files 3Gb SCSI 1: 2
Oracle Cluster Registry 300Mb SCSI 1: 3
Voting Disk 300Mb SCSI 1: 4

Tablo 1: SCSI Partition (Bölümlenmiş) Diskler

20-Yeni disk oluşturmak için Hard Disk’ i seçip ileri butonunu tıkladık.

21-‘Create a new virtual disk’ default seçeneği ile yeni bir disk oluşturacağız.

22-Sanal disk tiplerinden önerilen SCSI tipini seçip ileri butonunu tıkladık.

23-Her bir disk alanını ayırmak için 19. adımda gösterilen Tablo 1:’deki gibi diskleri oluşturduk. Aşağıda görüldüğü gibi ’Allocate all disk space now’ seçeneğini seçip ‘Split disk into 2 GB files’ seçeneğini kaldırdık. Disk boyutunu 3GB olarak belirledik.

24-Diskleri ‘datadisk1.vmdk’, ’datadisk2.vmdk’, ’datadisk3.vmdk’ ,’ocrdisk. vmdk’ ve ‘votingdisk.vmdk’ şeklinde isimlendirdik. F:\My Virtual Machines\RAC\rac10g\share\ dizinine ‘datadisk1.vmdk’ diskini ‘Son’ butonuna tıklayarak oluşturduk.

25-Oluşturduğumuz yeni disk seçili iken ‘Avanced…’ butonuna tıklayıp diski düzenleriz.

26-Karşımıza çıkan bu ‘Advanced’ ekranında 19. adımda belirtilen Tablo 1:’deki sanal disk tiplerine göre seçim yaptık ve ‘Mode’ kısmında ise Independent(bağımsız disk) ve Persistent(sürekli disk) seçeneklerini seçtik.

27-Bundan sonraki diskleri oluşturmak için 20. adımdan 26. adıma kadarki aşamaları 20. adımdaki Tablo 1:’de belirtildiği gibi yaptım.
28-Bu aşamada oluşturduğumuz diskleri, VMware Konfigürasyon dosyasını (F:\My Virtual Machines\RAC\rac10g\rac1\Red Hat Enterprise Linux 4.vmx) notepad ile açarak ekledim fakat bu arada ayarların kaydedilmesi için Virtual Machine Settings ekranını kapattım. Kuracağımız Linux sistemleri tarafından disklerin ortak olarak kullanılması için aşağıda mavi renkle belirtilen kısımları ekledim;

config.version = “8”
virtualHW.version = “4”
scsi0.present = “TRUE”
scsi0.virtualDev = “lsilogic”
memsize = “1024”
scsi0:0.present = “TRUE”
scsi0:0.fileName = “localdisk.vmdk”
ide1:0.present = “TRUE”
ide1:0.fileName = “E:”
ide1:0.deviceType = “cdrom-raw”
floppy0.present = “FALSE”
Ethernet0.present = “TRUE”
displayName = “EL4_10gRAC1”
guestOS = “rhel4”
priority.grabbed = “normal”
priority.ungrabbed = “normal”
disk.locking=”FALSE”
diskLib.dataCacheMaxSize=”0”
diskLib.dataCacheMaxReadAheadSize=”0”
diskLib.dataCacheMinReadAheadSize=”0”
diskLib.dataCachePageSize=”0”
scsi1.sharedBus=”virtual”
ide1:0.autodetect = “FALSE”
Ethernet1.present = “TRUE”
Ethernet1.connectionType = “hostonly”
scsi1.present = “TRUE”
scsi1:0.present = “TRUE”
scsi1:0.fileName = “D:\My Virtual Machines\RAC\rac10g\share\datadisk1.vmdk”
scsi1:0.mode = “independent-persistent”
scsi1:0.deviceType=”disk”
scsi1.virtualDev = “lsilogic”
scsi1:1.present = “TRUE”
scsi1:1.fileName = “D:\My Virtual Machines\RAC\rac10g\share\datadisk2.vmdk”
scsi1:1.mode = “independent-persistent”
scsi1:1.deviceType=”disk”
scsi1:2.present = “TRUE”
scsi1:2.fileName = “D:\My Virtual Machines\RAC\rac10g\share\datadisk3.vmdk”
scsi1:2.mode = “independent-persistent”
scsi1:2.deviceType=”disk”
scsi1:3.present = “TRUE”
scsi1:3.fileName = “D:\My Virtual Machines\RAC\rac10g\share\ocrdisk.vmdk”
scsi1:3.mode = “independent-persistent”
scsi1:3.deviceType=”disk”
scsi1:4.present = “TRUE”
scsi1:4.fileName = “D:\My Virtual Machines\RAC\rac10g\share\votingdisk.vmdk”
scsi1:4.mode = “independent-persistent”
scsi1:4.deviceType=”disk”
scsi0:0.redo = “”
scsi1:0.redo = “”
scsi1:1.redo = “”
scsi1:2.redo = “”
scsi1:3.redo = “”
scsi1:4.redo = “”
ide1:0.startConnected = “TRUE”
ethernet0.addressType = “generated”
ethernet1.addressType = “generated”
uuid.location = “56 4d 1e e8 75 ea 01 bd-54 29 71 28 ab 78 9e 31”
uuid.bios = “56 4d 1e e8 75 ea 01 bd-54 29 71 28 ab 78 9e 31”
checkpoint.vmState = “”
ethernet0.generatedAddress = “00:0c:29:78:9e:31”
ethernet0.generatedAddressOffset = “0”
ethernet1.generatedAddress = “00:0c:29:78:9e:3b”
ethernet1.generatedAddressOffset = “10”
tools.syncTime = “TRUE”

Şuana kadar sanal linux makinemizin konfigürasyonlarını başarılı bir şekilde tamamlamış olduk. Şimdi ise sıra Enterprise Linux sistemini kurmaya geldi! İleriki aşamalarda kurduğumuz bu ‘EL4_10gRAC1’ birinci linux sistemimizi kolonlayıp ‘EL4_10gRAC2’ Linux sistemimizi kuracağız.

Artık birinci sanal makinemize Linux işletim sistemini kurabiliriz. Bunun için öncelikle http://edelivery.oracle.com/linux web adresinden (Oracle’ın ürünlerinin sergilendiği resmi web sitesi, download edebilmek için öncelikle www.oracle.com ‘dan üye olmak gerekiyor.) Enterprise Linux 4 update 5 ‘i indirdik ve winrar ile 4 tane ’.iso’ uzantılı image dosyalarını açtık;

Enterprise-R4-U5-I386-disc1.iso
Enterprise-R4-U5-I386-disc2.iso
Enterprise-R4-U5-I386-disc3.iso
Enterprise-R4-U5-I386-disc4.iso

29-Kuruluma başlamak için Vmware Server Console’dan ‘Edit virtual machine settings’ linkini tıkladık ve CD-ROM sürücüyü seçtik. ’Connection’ kısmından ‘Use ISO image’ bölümünü işaretledik.

30-‘Browse...’ ile linux image dosyalarından 1. Diski (Enterprise-R4-U5-I386-disc1.iso) bulunduğu dizinden seçtik.

31-‘Start this virtual machine’ butonuna basarak Linux kurulumuna başladık.

32-Grafik mod’da kurulum için Enter’a bastık.

33-Kurulum CD’lerini test etmesine gerek duymadan ‘Skip’ butonuna tıkladık.

34-‘Welcome to Enterprise Linux’ açılış ekranından sonraki adıma geçtik.

35-Dil seçiminde İngilizceyi seçtik ve sonraki adıma geçtik.

36-Disk bölümleme bölümünde ‘Manually partition with Disk Druid’ seçeneği ile diski manuel olarak bölümlemeyi seçtik ve karşımıza çıkan ‘Warning’ ekranında ‘Yes’ butonuna tıkladık.

37-Lokal diskimizi (/dev/sda) aşağıdaki Tablo 5. 1’deki gibi disk alan tiplerine göre bölümledik.

Disk alanı tipi Size

/swap 2048 Mb
/tmp 1024 Mb
/ 4096 Mb
/u01 13312 Mb

Tablo 2: Oracle Enterprise Linux Disk Alanı Tipleri ve Boyutları

Lokal diski bölümlemek için /dev/sda üzerinde iken boş yeri seçip ‘Edit’ ile disk bölümlerini ekledik. Tüm disk bölümlerini Tablo 2:’deki gibi ayırdık. Bu aşamada diğer diskleri (/dev/sdb , /dev/sdc…vb.) bölümlemedik. ’Next’ ile sonraki aşamaya geçtik.

38-Varsayılan boot loader konfigürasyonunu geçip ’Next’ ile sonraki aşamaya geçtik.

39-Network konfigürasyonunu aşağıdaki Tablo 3:’deki şekilde yapık.

Hostname Network device Network type IP address
rac1.oracle.com eth0 Public 192.0.60.166
eth1 Private 10.10.10.50

Tablo 3: ‘rac1’ Sanal Makinesi Network Konfigürasyonu

Burada public IP adresini kendi domain’imdeki bilgisayarımın IP adresi 192.0.60.53’e göre 192.0.60.166 olarak belirledim. Kendi domain IP adresinize göre bunu belirleyebilirsiniz. Birinci sanal Linux makinemizin hostname’i olarak ‘rac1.oracle.com’ adını belirledim tabi siz istediğiniz şekilde adlandırabilirsiniz.
‘Network Devices’ kısmında ‘eth0’ ve ‘eth1’ network aygıtlarını tıklayarak aktif ettim.

‘eth0’ köprülü network bağlantısı aygıtıdır,’eth1’ ise sadece host makinemizle olan bağlantı aygıtıdır.
‘eth0’ seçili iken ‘Edit’ butonunu tıkladığımızda karşımıza gelen ‘Edit interface eth0’ ekranında ‘Configure using DHCP’ yi seçmedik, ’Activate on boot’ u seçtik.
Burada;
IP Adresi 192.0.60.166 olarak,
Netmask adresi de 255.255.0.0 olarak belirledik.
‘Edit interface eth1’ ekranında ise;
IP Adresi 10.10.10.50 olarak,
Netmask adresi de 255.255.0.0 olarak belirledik.
Hostname’i; ‘rac1.oracle.com’ olarak,
Gateway Adresi; 192.0.192.192 olarak,
Primary DNS Adresini de; 192.168.206.1 olarak belirledik ve ’Next’ ile sonraki aşamaya geçtik.

40-Firewall ve SELinux’ü disable ettik ve ’Next’ ile sonraki aşamaya geçtik.

41-Ek dil desteği olarak da ‘English(USA)’ yı seçip ’Next’ ile sonraki aşamaya geçtik.

42-Sistemimizin yerel ayarları için ‘Europe/Istanbul’ bölgemizi seçtik ve ’Next’ ile sonraki aşamaya geçtik.

43-Sistemimizdeki en yetkili kullanıcı Root’un şifresini belirledik ve ’Next’ ile sonraki aşamaya geçtik.

44-Bazı ek paketleri kurmak için ‘Customize Software packages to be installed’ i seçtik.

45-Tüm default seçili paketleri de alarak aşağıdaki grupları da ekledik;
– Legacy Software Development
– Graphical Internet
– Development Tools
– System Tools.

46-Kurulum esnasında diğer CD’ler de istendiğinde Vmware Server Console penceresinin en altında yer alan CD-ROM ikonundan ‘Edit’ seçeneğini tıkladığımızda karşımıza gelen ekrandan aşağıda da görüldüğü gibi diğer istenilen CD’leri seçtik ve kuruluma devam ettik.

47-Kurulum bittikten sonra sistemi restart etmemiz istenecektir ve ‘Reboot’ butonuna basıp sistemi resetledik.

48-Restart’tan sonra karşımıza Welcome ekranı geldi, ’Next’ ile sonraki aşamaya geçtik.

49-Lisans Sözleşmesini de okuduktan sonra ’Next’ ile sonraki aşamaya geçtik.

50-Tarih ve Zaman ayarlarını güncelleyip ’Next’ ile sonraki aşamaya geçtik.

51-Ekran çözünürlüğünü de ayarladıktan sonra ’Next’ ile sonraki aşamaya geçtik.

52-Sistem kullanıcısı oluşturabiliriz fakat buna ihtiyaç duymadık, burayı atladık.

53-Ek paket ya da uygulamalara ihtiyacımız yok bu aşamadan sonra, bu kısmı da atladık.

54-Nihayetinde ‘Next’ butonunu tıklayıp kurulumu bitirdik.

55-Username’e root girdik ve ardından şifresini de girerek işletim sistemimizi açtık.

56-Bu noktada sanal makinemizi bir süre için durdurduk (‘suspend’ butonuna tıkladık). Sanal makinemizin otomatikman kendi Windows XP sistemimizin CD’lerini görebilmesi için ‘Virtual Machine Settings’ penceresinden ‘Use physical drive’ ve ‘Auto detect’ kısımlarını seçtik ve ardından sanal makinemizi resetledik.

57-Şimdi sıra Vmware tools paketini sanal makinemize kurmaya geldi. Bunun amacı host makinemizle sanal makinemiz arasındaki zamanı senkronize etmek. ’Vmware Server Console’ penceresindeki ‘VM’ menüsünden ‘Install Vmware Tools…’ seçeneğini tıkladık.

58-Vmware Tools paketini kurmayı onayladım ve ‘Install’ butonuna tıkladım.

59-Sanal makinemizin masaüstüne ‘Vmware Tools’ cd ikonu gelecektir, bunu çift tıklayıp açtığımızda göreceğimiz ‘VmwareTools-1.0.6.91891.i386.rpm’ paketini kurduk.

60-Root kullanıcısı ile terminal pencereyi açtık ve ‘/usr/bin/vmware-config-tools.pl’ dosyasını çalıştırarak Vmware Tools paketinin konfigürasyonunu yaptık. Kendi istediğimiz ekran çözünürlüğünü seçtik. Ben genellikle ‘1280x1024’ çözünürlüğünü kullandığımdan 7 ‘yazıp enter ile seçimimi yaptım.

61-Vmware Tools ayarları her sanal makinemizi açtığımızda(login olduğumuzda) başlatılacaktır.’Application’ menüsünden ‘Preferences’,’More Preferences’ ve ‘Launch Sessions’ penceresini açtık. Bu penceredeki ‘Startup Programs’ tabından ‘Add’ butonu ile /usr/bin/vmware-toolbox dizinini ekledik.

62-Sanal makinemizden Logo ut olup tekrar root ile sistemimizi açtık ve ‘Vmware Tools Properties’ penceresinin açılıp ‘Time synchronization between the virtual machine and the host operating system’ tikinin işaretli olup olmadığının kontrolünü yaptık, işaretli olması gerekiyor. Bu seçeneğin işaretli olması ‘Virtual Machine configuration file’ ın ‘tools.syncTime = “TRUE” satırını eklemesi demektir.

SELECT SQL ON JAVA CODE

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 31 Mar 2009 00:24:00 PDT

package orhan;

//import javax.swing.*;
//import java.awt.*;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.ResultSet;
import java.sql.Statement;
import java.sql.SQLException;

public class mainClass {

static String userid = "ORHAN", password = "PASSWORD";
static String url = "jdbc:odbc:DB_CONN";
static Connection con = null;

public static void main(String[] args) throws Exception {
Connection con = getOracleJDBCConnection();
if (con != null) {
System.out.println("Connected.");
Statement stmt = con.createStatement();
ResultSet rset = stmt.executeQuery("select * from orhan.tablespace_size_daily");
while (rset.next()) {
System.out.printf("%20s %20s %15s %15s %15s %10s \n" ,rset.getString(1), rset.getString(2),rset.getString(3),rset.getString(4),rset.getString(5), rset.getString(6));
}
rset.close();
stmt.close();
con.close();

} else {
System.out.println("Not Connection");
}
}

public static Connection getOracleJDBCConnection() {

try {
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
} catch (java.lang.ClassNotFoundException e) {
System.err.print("ClassNotFoundException: ");
System.err.println(e.getMessage());
}

try {
con = DriverManager.getConnection(url, userid, password);
} catch (SQLException ex) {
System.err.println("SQLException: " + ex.getMessage());
}

return con;
}
}

my simple job

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 31 Mar 2009 00:15:00 PDT

DECLARE
X NUMBER;
BEGIN
SYS.DBMS_JOB.SUBMIT
( job => X
,what => 'ORHAN.SIZE_TABLESPACES;'
,next_date => to_date('24.02.2009 00:00:00','dd/mm/yyyy hh24:mi:ss')
,interval => 'TRUNC(SYSDATE+1)'
,no_parse => FALSE
);
SYS.DBMS_OUTPUT.PUT_LINE('Job Number is: ' || to_char(x));
COMMIT;
END;
/

SPOOL TO HTML

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 31 Mar 2009 00:11:00 PDT

-------------------------------------------
#!/usr/bin/ksh
. $HOME/.profile

sqlplus -s /nolog << EOF > /dev/null
connect user/password@db

SET NEWPAGE 0
SET SPACE 0
SET PAGESIZE 0
SET ECHO OFF
SET TERMOUT OFF
SET FEEDBACK OFF
SET TRIMSPOOL ON
SET HEADING ON
set feed off markup html on spool on

SPOOL /tmp/orhan/a.html

select tarih||chr(9)||plan||chr(9)||procedure||chr(9)||end_date||chr(9)||job_order from tablo where status='COMPLETED'
and tarih between to_date('29.03.2009','DD.MM.YYYY HH24:MI:SS') and to_date('30.03.2009','DD.MM.YYYY HH24:MI:SS') and procedure like 'PLAN_A%'
group by tarih,plan,procedure,end_date,job_order order by plan;

SPOOL OFF
set markup html off spool off
EXIT SQL.SQLCODE;
EOF
------------------------------------------

SPOOL TO EXCEL

noreply@blogger.com (ordba-Orhan Eripek) — Tue, 31 Mar 2009 00:05:00 PDT

Aşağıdaki spool.sh dosyası içeriğinde görüldüğü gibi
sorgu sonucu belirli bi formatta excel dosyasına(a.xls)
aktarılır.

--------------------------------------------------
#!/usr/bin/ksh
. $HOME/.profile

sqlplus -s /nolog << EOF > /dev/null
connect user/password@db

SET LINESIZE 1024;
SET HEADING OFF;
SET PAGESIZE 0;
SET FEEDBACK OFF;
SET TRIMSPOOL ON;
alter session set nls_date_format='DD.MM.YYYY';
SPOOL /tmp/orhan/a.xls

select tarih||chr(9)||plan||chr(9)||procedure||chr(9)||end_date||chr(9)||job_order from tablo where status='COMPLETED'
and tarih between to_date('29.03.2009','DD.MM.YYYY HH24:MI:SS') and to_date('30.03.2009','DD.MM.YYYY HH24:MI:SS') and procedure like 'PLAN_A%'
group by tarih,plan,procedure,end_date,job_order order by plan;

SPOOL OFF
set markup html off spool off
EXIT SQL.SQLCODE;
EOF
------------------------------------------------

SQL TO OUTPUT

noreply@blogger.com (ordba-Orhan Eripek) — Mon, 30 Mar 2009 23:44:00 PDT

aşağıdaki plsql bloğunda; utl_file.fopen ile excel dosyasını açar,
utl_file.get_line ile okunan veri alınır ve dbms_output.put_line
ile de çıktı sonucu ekrana yazılır.

DECLARE
vInHandle utl_file.file_type;
vNewLine VARCHAR2(250);
BEGIN
vInHandle := utl_file.fopen('ORHAN_DIR', 'a.xls', 'R');
LOOP
BEGIN
utl_file.get_line(vInHandle, vNewLine);
dbms_output.put_line(vNewLine);
EXCEPTION
WHEN OTHERS THEN
EXIT;
END;
END LOOP;
utl_file.fclose(vInHandle);
END fopen;
/

-------------------------------------------
directory name : ORHAN_DIR
file name: a.xls

İlk ve Son satırları ekrana çıkartmak için ise;
----------------------------------------
DECLARE
v_read_file UTL_FILE.file_type;
l_text VARCHAR2(1000);
BEGIN
v_read_file :=
UTL_FILE.fopen ('ORHAN_DIR', 'deneme.txt', 'r', '1000');
UTL_FILE.get_line(v_read_file, l_text, 1000);
DBMS_OUTPUT.put_line('İlk Satır: ' || l_text);
begin
loop
UTL_FILE.get_line(v_read_file, l_text, 1000);
end loop;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;
DBMS_OUTPUT.put_line('Son Satır: ' || l_text);
UTL_FILE.fclose(v_read_file);
END;
-------------------------------------------------

BETWEEN TWO DATES (END_DATE AND START_DATE)

noreply@blogger.com (ordba-Orhan Eripek) — Sun, 29 Mar 2009 23:21:00 PDT

select
TO_CHAR(start_date,'DD.MM.YYYY HH24:MI:SS') start_date,
TO_CHAR(end_date,'DD.MM.YYYY HH24:MI:SS') end_date,
trunc(86400*(end_date-start_date))-
60*(trunc((86400*(end_date-start_date))/60)) seconds,
trunc((86400*(end_date-start_date))/60)-
60*(trunc(((86400*(end_date-start_date))/60)/60)) minutes,
trunc(((86400*(end_date-start_date))/60)/60)-
24*(trunc((((86400*(end_date-start_date))/60)/60)/24)) hours,
trunc((((86400*(end_date-start_date))/60)/60)/24) days,
trunc(((((86400*(end_date-start_date))/60)/60)/24)/7) weeks
from tablo

main_spool.sh

noreply@blogger.com (ordba-Orhan Eripek) — Fri, 27 Mar 2009 00:59:00 PDT

spool kullanımına bir örnek >>>>
unixte /tmp/orhan/ dizininde 'main_spool.sh' adındaki dosyanın
içeriği de aşağıdaki gibidir.
------------------------------------
#!/usr/bin/ksh
. $HOME/.profile

sqlplus -s /nolog << EOF > /dev/null
connect user/password@orcl

SET LINESIZE 1024;
SET HEADING OFF;
SET PAGESIZE 0;
SET FEEDBACK OFF;
SET TRIMSPOOL ON;

SPOOL /tmp/orhan/tmp_sonuc.txt

select a.a||','||a.b||','||a.c
from tablo a
where a.a="orhan";

SPOOL OFF
EXIT SQL.SQLCODE;
EOF
-----------------------------------

bu main_spool.sh dosyasını unix komut satırında
çalıştırdığımızda ilgili sql sorgusu sonucunu,
kolonları birbirinden ',' ile ayırarak 'tmp_sonuc.txt'
dosyasına aktaracaktır.

last_ddl_created_time

noreply@blogger.com (ordba-Orhan Eripek) — Fri, 27 Mar 2009 00:48:00 PDT

select a.owner,a.object_name,a.object_type,a.created,a.last_ddl_time,a.status,
b.osuser,b.machine,b.terminal,b.program from DBA_OBJECTS a, v$session b where (a.owner=b.username) and b.osuser='oeripek'
and a.last_ddl_time between to_date('25.03.2009 00:00:00','dd.mm.yyyy HH24:MI:SS') and to_date('25.03.2009 23:59:59','dd.mm.yyyy HH24:MI:SS')
order by a.last_ddl_time desc

RENAME PARTITION AND SUBPARTITION TABLE

noreply@blogger.com (ordba-Orhan Eripek) — Thu, 12 Mar 2009 06:25:00 PDT

select 'alter table '||table_owner||'.'||table_name||' rename partition '||partition_name||' to '||'PART_'||substr(partition_name,-8)||';'
from dba_tab_partitions
where table_name in ('TABLO1','TABLO2')

select 'alter table '||table_owner||'.'||table_name||' rename subpartition '||subpartition_name||' to '||'SPART_'||substr(partition_name,-8)||'_'||trim(to_char(subpartition_position,'000'))||';'
from dba_tab_subpartitions
where table_name in ('TABLO1','TABLO2')