2026-03-12 20:23:15

vg/sourcecode.sql

@@ -0,0 +1,63 @@
+@@header
+
+/*
+*
+*  Author     : Vishal Gupta
+*  Purpose    : Display view's query
+*  Parameters : 1 - OWNER, this could also be passed as OWNER.object_name
+*               2 - OBJECT_NAME
+*               
+*
+*  Revision History:
+*  ===================
+*  Date       Author        Description
+*  ---------  ------------  -----------------------------------------
+*  25-Feb-13  Vishal Gupta  Created
+*
+*
+*/
+
+/************************************
+*  INPUT PARAMETERS
+************************************/
+UNDEFINE OWNER
+UNDEFINE OBJECT_NAME
+
+DEFINE OWNER="&&1"
+DEFINE OBJECT_NAME="&&2"
+
+
+
+COLUMN  _owner       NEW_VALUE owner          NOPRINT
+COLUMN  _object_name   NEW_VALUE object_name      NOPRINT
+
+set term off
+SELECT SUBSTR(UPPER('&&owner'), 1 , CASE INSTR('&&owner','.') WHEN 0 THEN LENGTH ('&&owner') ELSE INSTR('&&owner','.') - 1 END ) "_owner"
+     , DECODE(UPPER('&&object_name'),'',SUBSTR(UPPER('&&owner'),INSTR('&&owner','.')+1),UPPER('&&object_name')) "_object_name"
+FROM DUAL;
+set term on
+
+
+Prompt 
+Prompt   ************************************************************
+Prompt   ** Object &&OWNER..&&OBJECT_NAME's Source Code
+Prompt   ************************************************************
+
+
+COLUMN text              HEADING "S O U R C E    C O D E"          FORMAT a150
+
+set long 400000
+set pages 50000
+
+SELECT s.TEXT
+  FROM dba_source s
+WHERE s.owner     = '&&OWNER' 
+  AND s.name = '&&OBJECT_NAME' 
+  ORDER BY s.owner
+         , s.name
+         , s.type
+         , s.line
+;
+
+
+@@footer