{"id":522,"date":"2023-11-15T21:48:53","date_gmt":"2023-11-15T21:48:53","guid":{"rendered":"https:\/\/test.samplewebsitelink.com\/ordba\/?p=522"},"modified":"2023-11-15T21:48:55","modified_gmt":"2023-11-15T21:48:55","slug":"source-save","status":"publish","type":"post","link":"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/","title":{"rendered":"SOURCE SAVE"},"content":{"rendered":"\n
\"\"\/<\/figure>\n\n\n\n

SOURCE SAVE<\/p>\n\n\n\n

Save the Source Code and Table and Index Structures using PL\/SQL<\/p>\n\n\n\n

After having gone through some papers on this subject, the need for a robust system has to be developed plugging all the holes, is felt and the result is this.<\/p>\n\n\n\n

The basic idea and the first paper that has been seen is that of TOM, the great.<\/p>\n\n\n\n

I also have consulted him on some aspects of this small database I have in my mind and he gave valuable suggestions. I am proud to acknowledge them.<\/p>\n\n\n\n

Schema Owners
(1) SOURCE_SAFE owns the tables that hold the data.
(2) SECUITY owns the stored procedures and triggers that generate and insert data into those tables.<\/p>\n\n\n\n


create table source_code_versions (
username varchar2 (30),
os_user varchar2 (50),
terminal varchar2 (16),
version number,
date_of_change date,
line number,
name varchar2 (30),
owner varchar2 (30),
text varchar2 (4000),
type varchar2 (12))
tablespace users
pctfree 10
initrans 1
maxtrans 255
storage (
initial 65536
minextents 1
maxextents 2147483645
)
nocache;<\/p>\n\n\n\n

grant delete on source_code_versions to security;
grant insert on source_code_versions to security;
grant select on source_code_versions to security;
grant update on source_code_versions to security;<\/p>\n\n\n\n

create table all_views_code_versions (
username varchar2 (30) default user,
os_user varchar2 (30),
terminal varchar2 (16),
version number,
date_of_change date default sysdate,
owner varchar2 (30) not null,
view_name varchar2 (30) not null,
text_length number,
text varchar2 (4000))
tablespace users
pctfree 10
initrans 1
maxtrans 255
storage (
initial 65536
minextents 1
maxextents 2147483645
)
nocache;<\/p>\n\n\n\n

grant delete on all_views_code_versions to security;
grant insert on all_views_code_versions to security;
grant select on all_views_code_versions to security;
grant update on all_views_code_versions to security;<\/p>\n\n\n\n

create table all_tab_col_verions (
username varchar2 (30),
os_user varchar2 (30),
terminal varchar2 (16),
version number,
date_of_change date,
owner varchar2 (30),
table_name varchar2 (30),
column_name varchar2 (30),
data_type varchar2 (106),
data_length number,
data_precision number,
data_scale number,
nullable varchar2 (1),
column_id number,
tablespace_name varchar2 (32))
tablespace system
pctfree 10
pctused 40
initrans 1
maxtrans 255
storage (
initial 65536
minextents 1
maxextents 2147483645
freelists 1 freelist groups 1 )
nocache;<\/p>\n\n\n\n

grant delete on all_tab_col_verions to security;
grant insert on all_tab_col_verions to security;
grant select on all_tab_col_verions to security;
grant update on all_tab_col_verions to security<\/p>\n\n\n\n

create table all_ind_col_vesrions (
username varchar2 (30) default user,
os_user varchar2 (30),
terminal varchar2 (16),
version number,
date_of_change date default sysdate,
index_owner varchar2 (30),
index_name varchar2 (30),
table_owner varchar2 (30),
table_name varchar2 (30),
column_name varchar2 (30),
column_position number,
tablespace_name varchar2 (32))
tablespace users
pctfree 10
initrans 1
maxtrans 255
storage (
initial 65536
minextents 1
maxextents 2147483645
)
nocache;<\/p>\n\n\n\n

grant delete on all_ind_col_vesrions to security;
grant insert on all_ind_col_vesrions to security;
grant select on all_ind_col_vesrions to security;
grant update on all_ind_col_vesrions to security;<\/p>\n\n\n\n

CREATE OR REPLACE procedure SECURITY.sp_all_ind_col as<\/p>\n\n\n\n

v_version number;
v_tablespace_name dba_segments.tablespace_name%type;<\/p>\n\n\n\n

begin<\/p>\n\n\n\n

select nvl(max(version),0)
into v_version
from source_safe.ALL_ind_col_vesrions
;<\/p>\n\n\n\n

v_version:=v_version+1;<\/p>\n\n\n\n


if ora_dict_obj_type = ‘INDEX’ then<\/p>\n\n\n\n

select tablespace_name
into v_tablespace_name
from dba_segments
where segment_name=ora_dict_obj_name
and segment_type=’INDEX’
and owner=ora_dict_obj_owner;<\/p>\n\n\n\n

insert into source_safe.ALL_ind_col_vesrions
select USER,
a.OSUSER,
TERMINAL,
v_VERSION,
sysdate ,
INDEX_OWNER ,
INDEX_NAME ,
TABLE_OWNER ,
TABLE_NAME ,
COLUMN_NAME ,
COLUMN_POSITION,
v_tablespace_name
from v$session a,
sys.dba_ind_columns b
where b.index_NAME=ora_dict_obj_name
and b.index_OWNER=ora_dict_obj_owner
and a.sid=(select sid from v$mystat where rownum=1);
end if;<\/p>\n\n\n\n

end;
\/<\/p>\n\n\n\n

CREATE OR REPLACE procedure SECURITY.sp_all_tab_col as
v_version number;
v_tablespace_name dba_segments.tablespace_name%type;<\/p>\n\n\n\n

begin<\/p>\n\n\n\n

select nvl(max(version),0)
into v_version
from source_safe.ALL_TAB_COL_VERIONS
;<\/p>\n\n\n\n

v_version:=v_version+1;<\/p>\n\n\n\n

if ora_dict_obj_type = ‘TABLE’ then<\/p>\n\n\n\n

select tablespace_name
into v_tablespace_name
from dba_segments
where segment_name=ora_dict_obj_name
and segment_type=’TABLE’
and owner=ora_dict_obj_owner;<\/p>\n\n\n\n

insert into source_safe.ALL_TAB_COL_VERIONS
select username,
osuser,
terminal,
v_version,
sysdate,
OWNER,
TABLE_NAME,
COLUMN_NAME,
DATA_TYPE,
DATA_LENGTH,
DATA_PRECISION,
DATA_SCALE,
NULLABLE,
COLUMN_ID,
v_tablespace_name
from v$session a,
sys.dba_tab_cols b
where b.TABLE_NAME=ora_dict_obj_name
and b.OWNER=ora_dict_obj_owner
and a.sid=(select sid from v$mystat where rownum=1);
end if;<\/p>\n\n\n\n

end;
\/
CREATE OR REPLACE procedure SECURITY.sp_create_all_view_version as
v_version number;
v_text dba_views.TEXT%type;<\/p>\n\n\n\n

begin<\/p>\n\n\n\n

select nvl(max(version),0)
into v_version
from source_safe.all_views_code_versions
;<\/p>\n\n\n\n

v_version:=v_version+1;<\/p>\n\n\n\n

if ora_dict_obj_type = ‘VIEW’
THEN<\/p>\n\n\n\n

SELECT text
INTO v_text
FROM dba_views
WHERE view_name = ora_dict_obj_name
and owner=ora_dict_obj_owner;<\/p>\n\n\n\n

insert into source_safe.all_views_code_versions
( USERNAME,
OS_USER,
TERMINAL,
VERSION,
DATE_OF_CHANGE,
OWNER,
VIEW_NAME,
TEXT_LENGTH,
TEXT
)
select user,
a.osuser,
a.terminal,
v_version,
sysdate,
b.OWNER,
b.VIEW_NAME,
b.TEXT_LENGTH,
v_text
from v$session a,
dba_views b
where a.sid = (select sid from v$mystat where rownum=1)
and b.owner = ora_dict_obj_owner
and b.view_name = ora_dict_obj_name;
end if;
end;
\/<\/p>\n\n\n\n

CREATE OR REPLACE procedure SECURITY.sp_source_safe_all_source as<\/p>\n\n\n\n

v_version number;<\/p>\n\n\n\n

begin<\/p>\n\n\n\n

select nvl(max(version),0)
into v_version
from source_safe.ALL_TAB_COL_VERIONS
;<\/p>\n\n\n\n

v_version:=v_version+1;<\/p>\n\n\n\n

if (ora_dict_obj_type in
(‘PCKAGE’,’PACKEGE BODY’,’PROCEDURE’,’FUNCTION’)) THEN
insert into source_safe.source_code_versions
select s.USERNAME,
s.OSUSER,
s.TERMINAL,
v_version,
sysdate,
so.LINE,
so.NAME,
so.OWNER,
so.TEXT,
so.TYPE
from sys.dba_source so,
sys.V_$SESSION s
where so.name=ora_dict_obj_name
and so.type=ora_dict_obj_type
and s.sid = (select sid from v$mystat where rownum=1);
end if;<\/p>\n\n\n\n

end;
\/
CREATE OR REPLACE TRIGGER security.after_create_index_trg
after create on database
begin
begin
sp_all_ind_col;
end;
end;
\/
CREATE OR REPLACE TRIGGER security.after_create_tab_trg
after create on database
begin
begin
sp_all_tab_col;
end;
end;
\/
CREATE OR REPLACE TRIGGER security.all_ind_col_trg
before alter or drop on database
begin
begin
sp_all_ind_col;
end;
end;
\/
CREATE OR REPLACE TRIGGER security.all_tab_col_trg
before alter or drop on database
begin
begin
sp_all_tab_col;
end;
end;
\/
CREATE OR REPLACE TRIGGER security.create_all_source_code_trigger
before create or drop on database
declare
begin
security.sp_source_safe_all_source;
end;
\/
CREATE OR REPLACE TRIGGER SECURITY.create_all_view_trigger
before create or drop on database
begin
begin
SECURITY.sp_create_all_view_version;
end;
end;<\/p>\n","protected":false},"excerpt":{"rendered":"

SOURCE SAVE Save the Source Code and Table and Index Structures using PL\/SQL After having gone through some papers on this subject, the need for a robust system has to be developed plugging all the holes, is felt and the result is this. The basic idea and the first paper that has been seen is …<\/p>\n

SOURCE SAVE<\/span> Read More »<\/a><\/p>\n","protected":false},"author":1,"featured_media":504,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""}},"footnotes":""},"categories":[20],"tags":[],"class_list":["post-522","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-pl-sql-tutorials"],"yoast_head":"\nSOURCE SAVE - Ordba<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"SOURCE SAVE - Ordba\" \/>\n<meta property=\"og:description\" content=\"SOURCE SAVE Save the Source Code and Table and Index Structures using PL\/SQL After having gone through some papers on this subject, the need for a robust system has to be developed plugging all the holes, is felt and the result is this. The basic idea and the first paper that has been seen is … SOURCE SAVE Read More »\" \/>\n<meta property=\"og:url\" content=\"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/\" \/>\n<meta property=\"og:site_name\" content=\"Ordba\" \/>\n<meta property=\"article:published_time\" content=\"2023-11-15T21:48:53+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2023-11-15T21:48:55+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/test.samplewebsitelink.com\/ordba\/wp-content\/uploads\/2023\/11\/article-3-1.jpg\" \/>\n\t<meta property=\"og:image:width\" content=\"700\" \/>\n\t<meta property=\"og:image:height\" content=\"700\" \/>\n\t<meta property=\"og:image:type\" content=\"image\/jpeg\" \/>\n<meta name=\"author\" content=\"ordba\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"ordba\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"4 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/\",\"url\":\"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/\",\"name\":\"SOURCE SAVE - Ordba\",\"isPartOf\":{\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/#website\"},\"datePublished\":\"2023-11-15T21:48:53+00:00\",\"dateModified\":\"2023-11-15T21:48:55+00:00\",\"author\":{\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/#\/schema\/person\/7365beabb32b7aa77cf0e890ee90ea0f\"},\"breadcrumb\":{\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/test.samplewebsitelink.com\/ordba\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"SOURCE SAVE\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/#website\",\"url\":\"https:\/\/test.samplewebsitelink.com\/ordba\/\",\"name\":\"Ordba\",\"description\":\"\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/test.samplewebsitelink.com\/ordba\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"en-US\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/#\/schema\/person\/7365beabb32b7aa77cf0e890ee90ea0f\",\"name\":\"ordba\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/test.samplewebsitelink.com\/ordba\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/dd4335bb4e225c36ce7c56a0aff84bb202ebb523ebdc5d1e1a11cc3f3e6085f3?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/dd4335bb4e225c36ce7c56a0aff84bb202ebb523ebdc5d1e1a11cc3f3e6085f3?s=96&d=mm&r=g\",\"caption\":\"ordba\"},\"sameAs\":[\"https:\/\/test.samplewebsitelink.com\/ordba\"],\"url\":\"https:\/\/test.samplewebsitelink.com\/ordba\/author\/ordba\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"SOURCE SAVE - Ordba","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/","og_locale":"en_US","og_type":"article","og_title":"SOURCE SAVE - Ordba","og_description":"SOURCE SAVE Save the Source Code and Table and Index Structures using PL\/SQL After having gone through some papers on this subject, the need for a robust system has to be developed plugging all the holes, is felt and the result is this. The basic idea and the first paper that has been seen is … SOURCE SAVE Read More »","og_url":"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/","og_site_name":"Ordba","article_published_time":"2023-11-15T21:48:53+00:00","article_modified_time":"2023-11-15T21:48:55+00:00","og_image":[{"width":700,"height":700,"url":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-content\/uploads\/2023\/11\/article-3-1.jpg","type":"image\/jpeg"}],"author":"ordba","twitter_card":"summary_large_image","twitter_misc":{"Written by":"ordba","Est. reading time":"4 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/","url":"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/","name":"SOURCE SAVE - Ordba","isPartOf":{"@id":"https:\/\/test.samplewebsitelink.com\/ordba\/#website"},"datePublished":"2023-11-15T21:48:53+00:00","dateModified":"2023-11-15T21:48:55+00:00","author":{"@id":"https:\/\/test.samplewebsitelink.com\/ordba\/#\/schema\/person\/7365beabb32b7aa77cf0e890ee90ea0f"},"breadcrumb":{"@id":"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/test.samplewebsitelink.com\/ordba\/2023\/11\/15\/source-save\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/test.samplewebsitelink.com\/ordba\/"},{"@type":"ListItem","position":2,"name":"SOURCE SAVE"}]},{"@type":"WebSite","@id":"https:\/\/test.samplewebsitelink.com\/ordba\/#website","url":"https:\/\/test.samplewebsitelink.com\/ordba\/","name":"Ordba","description":"","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/test.samplewebsitelink.com\/ordba\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"en-US"},{"@type":"Person","@id":"https:\/\/test.samplewebsitelink.com\/ordba\/#\/schema\/person\/7365beabb32b7aa77cf0e890ee90ea0f","name":"ordba","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/test.samplewebsitelink.com\/ordba\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/dd4335bb4e225c36ce7c56a0aff84bb202ebb523ebdc5d1e1a11cc3f3e6085f3?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/dd4335bb4e225c36ce7c56a0aff84bb202ebb523ebdc5d1e1a11cc3f3e6085f3?s=96&d=mm&r=g","caption":"ordba"},"sameAs":["https:\/\/test.samplewebsitelink.com\/ordba"],"url":"https:\/\/test.samplewebsitelink.com\/ordba\/author\/ordba\/"}]}},"_links":{"self":[{"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/posts\/522","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/comments?post=522"}],"version-history":[{"count":1,"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/posts\/522\/revisions"}],"predecessor-version":[{"id":523,"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/posts\/522\/revisions\/523"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/media\/504"}],"wp:attachment":[{"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/media?parent=522"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/categories?post=522"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/test.samplewebsitelink.com\/ordba\/wp-json\/wp\/v2\/tags?post=522"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}