Oracle Table info in detail like pk fk trigger privikeges object

set showmode off echo off
set heading off pagesize 0 timing off feedback off linesize 80
set serveroutput on
rem
rem Script: tabinfo.sql
rem Purpose: Report information about a table, including sizes,
rem columns, primary key, foreign keys, indexes, constraints,
rem triggers, and references.
rem Note: This script must now be run from a DBA account or the
rem user must have access to dba_tables, dba_tab_privs, and
rem dba_segments.
rem
rem Author: Biju Thomas
rem Updates by Stephen Rea:
rem 10/22/98: Added table name and owner prompts, fixed row and
rem block count calculations and added number of extents and bytes,
rem added statistics like table's and tablespace name to indexes,
rem fixed privileges to use dba_tab_privs instead of all_tab_privs,
rem added table and column comments output, added references to this
rem table, made foreign key columns output similar to references
rem columns output, blanked out spacer dots, turned off sql output,
rem added view and/or print options, made several format changes.
rem 1/28/99: Added file name prompt, if not tabinfo.lst. Changed
rem dbms_output limit to 1,000,000 bytes (the maximum allowed).
rem 1/31/00: Allow system-owned tables to be entered.
rem 2/21/03: Moved file name prompt to be last prompt instead of first.
rem
accept tablename char prompt 'Enter table name (wildcards like % are allowed): '
set termout off verify off
define tableowner = 'DUMMY'
spool ti_do.sql
select 'define tableowner = ' || owner from dba_tables
where table_name = upper('&tablename') and rownum = 1;
spool off
@ti_do.sql
spool ti_do.sql
select 'define tableowner = ' || username from user_users
where '&tableowner' = 'DUMMY' and rownum = 1;
spool off
@ti_do.sql
set linesize 100
spool ti_do.sql
select 'set termout on verify on' from dual;
select 'accept tableowner2 char prompt ''Enter table owner, if not ' ||
'&tableowner' || ' (wildcards allowed): ''' from dual;
select 'set termout off verify off' from dual;
spool off
set linesize 80
@ti_do.sql
set termout on verify on
accept filename char prompt 'Enter output file name, if not tabinfo.lst: '
set termout off verify off
spool ti_do.sql
select 'define filename = ' || decode('&filename','','tabinfo.lst',
'&filename') from dual;
spool off
@ti_do.sql
spool ti_do.sql
select 'define tableowner = ' || decode('&tableowner2','','&tableowner',
'&tableowner2') from dual;
spool off
@ti_do.sql
!rm ti_do.sql
!rm &filename
spool &filename
declare
wuser varchar2 (15) := '&tableowner';
wtable varchar2 (30) := '&tablename';
/* Tables */
cursor ctabs is select table_name, owner, tablespace_name,
initial_extent, next_extent, pct_increase, num_rows, blocks
from dba_tables where
owner like upper(wuser)
and table_name like upper(wtable);
cursor ccoms (o in varchar2, t in varchar2) is
select comments from all_tab_comments
where owner = upper (o) and table_name = upper (t);
/* Columns */
cursor ccols (o in varchar2, t in varchar2)
is select rpad(column_name,49)
||rpad(data_type,10)
||rpad(
decode(data_type,'DATE' ,' '
,'LONG' ,' '
,'LONG RAW',' '
,'RAW' ,decode(data_length,null,null
,'('||data_length||')')
,'CHAR' ,decode(data_length,null,null
,'('||data_length||')')
,'VARCHAR' ,decode(data_length,null,null
,'('||data_length||')')
,'VARCHAR2',decode(data_length,null,null
,'('||data_length||')')
,'NUMBER' ,decode(data_precision,null,' '
,'('||data_precision||
decode(data_scale,null,null,','||data_scale)||')'),'unknown'),8,' ')
||decode(nullable,'Y','NULL','NOT NULL') cstr, column_name
from all_tab_columns
where table_name = upper(t)
and owner = upper(o)
order by column_id;
cursor cccoms (o in varchar2, t in varchar2, c in varchar2) is
select comments col_comments from all_col_comments
where table_name = upper(t)
and owner = upper(o)
and column_name = upper(c);
/* Indexes */
cursor cinds (o in varchar2, t in varchar2) is
select owner, index_name,uniqueness unq,
decode(status, 'VALID', ' ', '(INVALID)') status,
tablespace_name,initial_extent, next_extent, pct_increase
from all_indexes where
table_name = upper(t) and
table_owner = upper(o);
cursor cind_cols (o in varchar2, t in varchar2, i in varchar2) is
select column_name
from all_ind_columns where table_name = upper(t) and
index_name = upper(i) and
index_owner = upper(o)
order by column_position;
/* Primary and Unique Constraints */
cursor cpk (o in varchar2, t in varchar2) is
select constraint_name, decode(constraint_type,'U','UNIQUE','PRIMARY') typ,
status
from all_constraints
where table_name = upper(t)
and owner = upper(o)
and constraint_type in ('U','P');
cursor cpk_cols (o in varchar2, t in varchar2, c in varchar2) is
select column_name
from all_cons_columns
where table_name = upper(t)
and constraint_name = upper(c)
and owner = upper(o)
order by position;
/* Foreign Key */
cursor cfk (o in varchar2, t in varchar2) is
select acp.owner,acp.table_name,acp.constraint_name,acp.r_constraint_name,
acp.status,decode(acp.delete_rule,'CASCADE','ON CASCADE',' ') drule
from all_constraints acp,all_constraints acc
where acp.r_constraint_name = acc.constraint_name and
acp.r_owner = acc.owner and
acp.owner = upper (o) and
acp.table_name = upper (t)
order by 1,2,3;
cursor cfk_cols (o in varchar2, t in varchar2, c in varchar2) is
select accp.column_name || ' -> ' || accc.owner || '.' ||
accc.table_name || '.' || accc.column_name colref
from all_cons_columns accp,all_cons_columns accc,all_constraints ac
where ac.constraint_name = upper (c) and
ac.owner = upper (o) and
ac.table_name = upper (t) and
accp.constraint_name = ac.constraint_name and
accp.owner = ac.owner and
accc.constraint_name = ac.r_constraint_name and
accc.owner = ac.r_owner and
accp.position = accc.position
order by accp.position;
/* Other Constraints */
cursor coc (o in varchar2, t in varchar2) is
select constraint_name, search_condition, status
from all_constraints
where table_name = upper(t)
and owner = upper(o)
and constraint_type in ('C');
/* Trigger */
cursor ctrig (o in varchar2, t in varchar2) is
select owner, trigger_name, status, triggering_event event
from all_triggers
where table_name = upper(t) and
table_owner = upper(o);
/* Privileges on this table (sdr changed all_tab_privs to dba_tab_privs) */
cursor cpriv (o in varchar2, t in varchar2) is
select grantee, grantor, privilege, grantable
from dba_tab_privs
where table_name = upper(t) and
owner = upper(o);
/* Objects Dependency */
cursor cdep (o in varchar2, t in varchar2) is
select owner || '.' || name name, type
from all_dependencies
where referenced_owner = upper (o) and
referenced_name = upper (t) and
referenced_type = 'TABLE'
order by owner, name;
/* References to this table */
cursor cref (o in varchar2, t in varchar2) is
select acp.owner,acp.table_name,acp.constraint_name,acp.r_constraint_name
from all_constraints acp,all_constraints acc
where acp.r_constraint_name = acc.constraint_name and
acp.r_owner = acc.owner and
acc.owner = upper (o) and
acc.table_name = upper (t)
order by 1,2,3;
cursor cref_cols (o in varchar2, t in varchar2, c in varchar2) is
select accp.column_name || ' -> ' || accc.column_name colref
from all_cons_columns accp,all_cons_columns accc,all_constraints ac
where ac.constraint_name = upper (c) and
ac.owner = upper (o) and
ac.table_name = upper (t) and
accp.constraint_name = ac.constraint_name and
accp.owner = ac.owner and
accc.constraint_name = ac.r_constraint_name and
accc.owner = ac.r_owner and
accp.position = accc.position
order by accp.position;
wcount number := 0;
wdate varchar2 (25) := to_char(sysdate,'Mon DD, YYYY HH:MI AM');
w5space char(5) := '. ';
wdum1 varchar2 (255);
wdum2 varchar2 (255);
wdum3 varchar2 (255);
wdum4 varchar2 (255);
wdum5 varchar2 (255);
wdum6 varchar2 (255);
wdum7 varchar2 (255);
wdum8 varchar2 (255);
numextents varchar2 (15) := ' ';
numbytes varchar2 (15) := ' ';
numblocks varchar2 (15) := ' ';
numrows number;
cursor_handle integer;
dummy integer;
i1 integer;
i2 integer;
begin
dbms_output.enable(1000000);
for rtabs in ctabs loop
-- Put Form Feed between tables for printing (allow for in first put_line)
if ctabs%ROWCOUNT > 1 then
dbms_output.put(chr(12));
end if;
dbms_output.put_line('***** ' || rtabs.table_name || ' TABLE INFORMATION *****' || rpad(' ',27-length(rtabs.table_name)) || wdate);
dbms_output.put_line('*--------------*------------------------------*--------------------------------*');
dbms_output.put_line('Table Owner Table Name Tablespace Name');
dbms_output.put_line('Initial Next PctIncrease Extents Blocks Bytes Rows');
dbms_output.put_line('*--------------*------------------------------*--------------------------------*');
wcount := wcount + 1;
dbms_output.put_line(rpad(rtabs.owner,15) || rpad(rtabs.table_name,31) || rpad(rtabs.tablespace_name,30));
-- The following select only works for DBA users. Remove it or comment it
-- out to run tabinfo from non-dba users (those three values won't show).
select to_char(extents),to_char(blocks),to_char(bytes)
into numextents,numblocks,numbytes
from dba_segments where owner = upper(rtabs.owner)
and segment_name = upper(rtabs.table_name);
cursor_handle := dbms_sql.open_cursor;
dbms_sql.parse(cursor_handle,'select count(*) from ' || rtabs.owner || '.' || rtabs.table_name,DBMS_SQL.V7);
dbms_sql.define_column(cursor_handle,1,numrows);
dummy := dbms_sql.execute_and_fetch(cursor_handle, true);
dbms_sql.column_value(cursor_handle, 1, numrows);
dbms_sql.close_cursor(cursor_handle);
dbms_output.put_line(rpad(rtabs.initial_extent,10) || rpad(rtabs.next_extent,10) || rpad(rtabs.pct_increase,13) || rpad(numextents,10) || rpad(numblocks,10) || rpad(numbytes,12) || rpad(numrows,11));
for rcoms in ccoms (rtabs.owner, rtabs.table_name) loop
if length(rcoms.comments) > 0 then
dbms_output.put_line(rcoms.comments);
end if;
end loop;
dbms_output.put_line(w5space);
dbms_output.put_line(w5space || '*------------------------------------------------*---------*-------*------*');
dbms_output.put_line(w5space || 'Column Name Datatype Null?');
dbms_output.put_line(w5space || '*------------------------------------------------*---------*-------*------*');
for rcols in ccols (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rcols.cstr);
for rccoms in cccoms (rtabs.owner, rtabs.table_name, rcols.column_name) loop
i1 := 1;
while i1 <= length(rccoms.col_comments) loop
i2 := greatest(i1 + 69,length(rccoms.col_comments));
if i2 - i1 + 1 > 70 then
i2 := instr(substr(rccoms.col_comments,i1,70),' ',-1) + i1 - 1;
end if;
wdum1 := ltrim(rtrim(replace(substr(rccoms.col_comments,i1,i2-i1+1),' ',' ')));
while instr(wdum1,' ') > 1 loop
wdum1 := ltrim(rtrim(replace(wdum1,' ',' ')));
end loop;
dbms_output.put_line(w5space || ' ' || wdum1);
i1 := i2 + 1;
end loop;
end loop;
end loop;
dbms_output.put_line(w5space);
open cinds (rtabs.owner, rtabs.table_name);
fetch cinds into wdum1, wdum2, wdum3, wdum4, wdum5, wdum6, wdum7, wdum8;
if cinds%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO INDEXES *********');
close cinds;
else
close cinds;
dbms_output.put_line('********** ' || rtabs.table_name || ' - INDEXES **********');
dbms_output.put_line(w5space || '*--------------*----------------------------------*-----------*-----------*');
dbms_output.put_line(w5space || 'Index Owner Index Name Unique Index Columns');
dbms_output.put_line(w5space || 'Initial Next PctIncrease Extents Blocks Bytes');
dbms_output.put_line(w5space || '*--------------*----------------------------------*-----------*-----------*');
for rinds in cinds (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rpad(rinds.owner,15) || rpad(rinds.index_name,35) || rinds.unq || ' ' || rinds.status);
-- The following select only works for DBA users. Remove it or
-- comment it out to run tabinfo from non-dba users (those three
-- values won't show).
select to_char(extents),to_char(blocks),to_char(bytes)
into numextents,numblocks,numbytes
from dba_segments where owner = upper(rinds.owner)
and segment_name = upper(rinds.index_name);
dbms_output.put_line(w5space || rpad(rinds.initial_extent,10) || rpad(rinds.next_extent,10) || rpad(rinds.pct_increase,13) || rpad(numextents,10) || rpad(numblocks,10) || rpad(numbytes,12));
for rind_cols in cind_cols (rinds.owner, rtabs.table_name, rinds.index_name) loop
if cind_cols%ROWCOUNT = 1 then
wdum1 := 'Tablespace: ' || rinds.tablespace_name;
else
wdum1 := ' ';
end if;
dbms_output.put_line(w5space || wdum1 || lpad(rind_cols.column_name,75-length(wdum1), ' '));
end loop;
end loop;
end if;
dbms_output.put_line(w5space);
open cpk (rtabs.owner, rtabs.table_name);
fetch cpk into wdum1, wdum2, wdum3;
if cpk%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO PRIMARY/UNIQUE KEY CONSTRAINTS **********');
close cpk;
else
close cpk;
dbms_output.put_line('********** ' || rtabs.table_name || ' - PRIMARY/UNIQUE KEY CONSTRAINTS **********');
dbms_output.put_line(w5space || '*-----------------------------------------*---------*-----------*---------*');
dbms_output.put_line(w5space || 'Primary/Unique Key Type Status Key Columns');
dbms_output.put_line(w5space || '*-----------------------------------------*---------*-----------*---------*');
for rpk in cpk (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || Rpad(rpk.constraint_name,42) || rpad(rpk.typ,10) || rpk.status);
for rpk_cols in cpk_cols (rtabs.owner, rtabs.table_name, rpk.constraint_name) loop
dbms_output.put_line(w5space || lpad(rpk_cols.column_name,75, ' '));
end loop;
end loop;
end if;
dbms_output.put_line(w5space);
open cfk (rtabs.owner, rtabs.table_name);
fetch cfk into wdum1, wdum2, wdum3, wdum4, wdum5, wdum6;
if cfk%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO FOREIGN KEY CONSTRAINTS **********');
close cfk;
else
close cfk;
dbms_output.put_line('********** ' || rtabs.table_name || ' - FOREIGN KEY CONSTRAINTS **********');
dbms_output.put_line(w5space || '*---------------------------------*--------*----------*-------------------*');
dbms_output.put_line(w5space || 'Foreign Key Status Delete References Constraint');
dbms_output.put_line(w5space || '*---------------------------------*--------*----------*-------------------*');
for rfk in cfk (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rpad(rfk.constraint_name,34) || rpad(rfk.status,9) || rpad(rfk.drule,11) || rpad(rfk.r_constraint_name,21));
for rfk_cols in cfk_cols (rfk.owner, rfk.table_name, rfk.constraint_name) loop
dbms_output.put_line(w5space || rpad(' ',5) || rfk_cols.colref);
end loop;
end loop;
end if;
dbms_output.put_line(w5space);
open coc (rtabs.owner, rtabs.table_name);
fetch coc into wdum1, wdum2, wdum3;
if coc%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO OTHER CONSTRAINTS **********');
close coc;
else
close coc;
dbms_output.put_line('********** ' || rtabs.table_name || ' - OTHER CONSTRAINTS **********');
dbms_output.put_line(w5space || '*-------------------------*--------*--------------------------------------*');
dbms_output.put_line(w5space || 'Constraint Name Status Condition');
dbms_output.put_line(w5space || '*-------------------------*--------*--------------------------------------*');
for roc in coc (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rpad(roc.constraint_name,26) || rpad(roc.status,9) || roc.search_condition);
end loop;
end if;
dbms_output.put_line(w5space);
open ctrig (rtabs.owner, rtabs.table_name);
fetch ctrig into wdum1, wdum2, wdum3, wdum4;
if ctrig%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO TRIGGERS **********');
close ctrig;
else
close ctrig;
dbms_output.put_line('********** ' || rtabs.table_name || ' - TRIGGERS **********');
dbms_output.put_line(w5space || '*--------------*-------------------------------------------------*--------*');
dbms_output.put_line(w5space || 'Owner Trigger Name Status');
dbms_output.put_line(w5space || '*--------------*-------------------------------------------------*--------*');
for rtrig in ctrig (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rpad(rtrig.owner,15) || rpad(rtrig.trigger_name,50) || rtrig.status);
end loop;
end if;
dbms_output.put_line(w5space);
open cpriv (rtabs.owner, rtabs.table_name);
fetch cpriv into wdum1, wdum2, wdum3, wdum4;
if cpriv%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO PRIVILEGES GRANTED **********');
close cpriv;
else
close cpriv;
dbms_output.put_line('********** ' || rtabs.table_name || ' - PRIVILEGES GRANTED **********');
dbms_output.put_line(w5space || '*--------------------*--------------*-----------------------------*-------*');
dbms_output.put_line(w5space || 'Granted To Granted By Privilege Grantable');
dbms_output.put_line(w5space || '*--------------------*--------------*-----------------------------*-------*');
for rpriv in cpriv (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rpad(rpriv.grantee,21) || rpad(rpriv.grantor,15) || rpad(rpriv.privilege,30) || rpriv.grantable);
end loop;
end if;
dbms_output.put_line(w5space);
open cdep (rtabs.owner, rtabs.table_name);
fetch cdep into wdum1, wdum2;
if cdep%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO DEPENDENT OBJECTS **********');
close cdep;
else
close cdep;
dbms_output.put_line('********** ' || rtabs.table_name || ' - DEPENDENT OBJECTS **********');
dbms_output.put_line(w5space || '*-------------------------------------------------------*-----------------*');
dbms_output.put_line(w5space || 'Object Name Type ');
dbms_output.put_line(w5space || '*-------------------------------------------------------*-----------------*');
for rdep in cdep (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rpad(rdep.name,56) || rdep.type);
end loop;
end if;
dbms_output.put_line(w5space);
open cref (rtabs.owner, rtabs.table_name);
fetch cref into wdum1, wdum2, wdum3, wdum4;
if cref%notfound then
dbms_output.put_line('********** ' || rtabs.table_name || ' - NO REFERENCING OBJECTS **********');
close cref;
else
close cref;
dbms_output.put_line('********** ' || rtabs.table_name || ' - REFERENCING OBJECTS **********');
dbms_output.put_line(w5space || '*-------------------*---------------------------------*-------------------*');
dbms_output.put_line(w5space || 'Object Name Constraint Name References Constraint');
dbms_output.put_line(w5space || '*-------------------*---------------------------------*-------------------*');
for rref in cref (rtabs.owner, rtabs.table_name) loop
dbms_output.put_line(w5space || rpad(rref.owner || '.' || rref.table_name,20) || rpad(rref.constraint_name,34) || rpad(rref.r_constraint_name,21));
for rcols in cref_cols (rref.owner, rref.table_name, rref.constraint_name) loop
dbms_output.put_line(w5space || rpad(' ',25) || rcols.colref);
end loop;
end loop;
end if;
dbms_output.put_line(w5space);
dbms_output.put_line('********** ' || rtabs.table_name || ' - END INFO **********');
end loop;
if wcount =0 then
dbms_output.put_line('******************************************************');
dbms_output.put_line('* *');
dbms_output.put_line('* Plese Verify Input Parameters... No Matches Found! *');
dbms_output.put_line('* *');
dbms_output.put_line('******************************************************');
end if;
end;
/
spool off
!sed 's/ *$//' &filename >&filename..trim
!rm &filename
!mv &filename..trim &filename
-- !/home/oracle/all_rights.shl &filename
-- !/home/oracle/view_or_print.shl &filename 'Table Information'
set serveroutput off pagesize 14
set heading on termout on
set timing on feedback 6 verify on echo on showmode both
!cat tabinfo.lst




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



SQL> !cat tabinfo.lst

***** EMP TABLE INFORMATION ***** Oct 24, 2011 01:23 PM
*--------------*------------------------------*--------------------------------*
Table Owner Table Name Tablespace Name
Initial Next PctIncrease Extents Blocks Bytes Rows
*--------------*------------------------------*--------------------------------*
SCOTT EMP USERS
65536 1048576 1 8 65536 14
.
. *------------------------------------------------*---------*-------*------*
. Column Name Datatype Null?
. *------------------------------------------------*---------*-------*------*
. EMPNO NUMBER (4,0) NOT NULL
. ENAME VARCHAR2 (10) NULL
. JOB VARCHAR2 (9) NULL
. MGR NUMBER (4,0) NULL
. HIREDATE DATE NULL
. SAL NUMBER (7,2) NULL
. COMM NUMBER (7,2) NULL
. DEPTNO NUMBER (2,0) NULL
.
********** EMP - INDEXES **********
. *--------------*----------------------------------*-----------*-----------*
. Index Owner Index Name Unique Index Columns
. Initial Next PctIncrease Extents Blocks Bytes
. *--------------*----------------------------------*-----------*-----------*
. SCOTT SYS_C0022543 UNIQUE
. 65536 1048576 1 8 65536
. Tablespace: USERS EMPNO
.
********** EMP - PRIMARY/UNIQUE KEY CONSTRAINTS **********
. *-----------------------------------------*---------*-----------*---------*
. Primary/Unique Key Type Status Key Columns
. *-----------------------------------------*---------*-----------*---------*
. SYS_C0022543 PRIMARY ENABLED
. EMPNO
.
********** EMP - NO FOREIGN KEY CONSTRAINTS **********
.
********** EMP - NO OTHER CONSTRAINTS **********
.
********** EMP - NO TRIGGERS **********
.
********** EMP - NO PRIVILEGES GRANTED **********
.
********** EMP - NO DEPENDENT OBJECTS **********
.
********** EMP - NO REFERENCING OBJECTS **********
.
********** EMP - END INFO **********

Oracle Sql plus report example

set pages 64
set lines 80
set newpage 0
set verify off
--set termout off
set feedback off

COLUMN div_cd NOPRINT NEW_VALUE div_cd1
COLUMN gt_ps_ty NOPRINT NEW_VALUE gt_ps_var
COLUMN today NOPRINT NEW_VALUE date_var
col cc_desc format a20
col x noprint
define 1= &1
define 2= &2
define 3= &3
define 4= &4
define 5= &5
break on div_cd skip page on cc_cd skip 1 on report skip page

--spo c:\gaterep.lst
--spo /arch/gaterep.lst


ttitle center 'XXXXXX Ltd.' RIGHT date_var skip 1 -
center 'Material Gate Pass Report ' RIGHT 'Page:' FORMAT 999 SQL.PNO skip 1 -
center '~~~~~~~~~~~~~~~~~~~~~~~~~~' skip 2 -
LEFT ' Div cd : ' div_cd1 ' Gate Pass Type : ' gt_ps_var skip 1 -
LEFT ' From Date : '&3' To Date : '&4


select div_cd,CC_CD,cc_desc,MAT_OUT_DATE,
to_number(substr(gate_pass_no,5,6)) x ,
GATE_PASS_NO,EXPECTED_DATE_OF_RTRN,extend_dt_of_return,
decode(status,'NP','Not Pending','PP','Pending') Status,
-- decode(del_flag,'Y','Deleted') Del_flg,
sysdate today,
decode(gate_pass_type,'RR','Returnable',
'NR','Non-returnable') gt_ps_ty
from se_mat_gate_pass_hdr a,f_cc_mst@fin b
where div_cd='&&1'
and gate_pass_type=upper('&&2')
and a.cc_cd=b.cc_no
and trunc(gate_pass_dt) between to_date('&3','dd/mm/yyyy') and to_date('&4','dd/mm/yyyy')
and expected_date_of_rtrn< to_date('&4','dd/mm/yyyy')
and status=upper('&&5')
and nvl(extend_dt_of_return,'01-JAN-70')--this case extend_dt_of_return is null so we have converted null to some fictitious ---- date which is not exist in this column
and del_flag='N'
order by 1,2,5
/
--spo off
clear breaks
set head on
set verify on
set termout on
undefine 1
undefine 2
undefine 3
undefine 4
undefine 5
-- exit


to run this report ....

@asmtgrep PA RR 12/03/2003 12/02/2004 PP

Oracle some,any ,all and in

some,any ,all and in



select 1
from dual
where 1 in (12,23,1,34);


1
----------
1


select 1
from dual
where 1 =any (12,23,1,34)

1
----------
1

select 1
from dual
where 1 > any (12,23,1,34)

no rows selected


"some" and "any" are same

select 1
from dual
where 1 > some (12,23,1,34)

no rows selected



select 1
from dual
where 1 < all (12,23,1,34)

no rows selected

SQL> ed
Wrote file afiedt.buf

select 1
from dual
where 1 < all (12,23,2,34)

1
----------
1

Oracle fuction CASE example

oracle case


in plsql ......

declare
grade varchar2(2):='A';
begin
IF grade = 'A' THEN
dbms_output.put_line('Excellent');
ELSIF grade = 'B' THEN
dbms_output.put_line('Very Good');
ELSIF grade = 'C' THEN
dbms_output.put_line('Good');
ELSIF grade = 'D' THEN
dbms_output. put_line('Fair');
ELSIF grade = 'F' THEN
dbms_output.put_line('Poor');
ELSE
dbms_output.put_line('No such grade');
END IF;
end;
/


Now using case

we can write above query like this also......................

declare

c1 varchar2(2):='B';

begin

CASE c1
WHEN 'A' THEN dbms_output.put_line('Excellent');
WHEN 'B' THEN dbms_output.put_line('Very Good');
WHEN 'C' THEN dbms_output.put_line('Good');
WHEN 'D' THEN dbms_output.put_line('Fair');
WHEN 'F' THEN dbms_output.put_line('Poor');
ELSE dbms_output.put_line('No such grade');
END CASE;
end;
/


select case 'A'
WHEN 'A' THEN 'Excellent'
WHEN 'B' THEN 'Very Good'
WHEN 'C' THEN 'Good'
WHEN 'D' THEN 'Fair'
WHEN 'F' THEN 'Poor'
ELSE 'No such grade'
end
from dual
/
select case deptno
WHEN 10 THEN 'Excellent'
WHEN 20 THEN 'Very Good'
WHEN 30 THEN 'Good'
ELSE 'No such grade'
end,ename
from emp
/



declare
v_job varchar2(9);
geh char(20);
begin
SELECT job INTO v_job FROM emp WHERE empno = 7521;
geh := CASE v_job
WHEN 'PRESIDENT' THEN 1
WHEN 'SALESMAN' THEN 1.07
WHEN 'MANAGER' THEN 1.05
WHEN 'CLERK ' THEN 1.1
WHEN 'ANALYST' THEN 1.04
ELSE 0
end ;
UPDATE emp SET sal = sal* geh;
END;