Conference orarep::nomahs::repository

1070.0. "CDD pathname versions truncated on alter table" by M5::JHAYTER () Tue Mar 18 1997 10:07

Cdd 5.3 and 6.1-03,  Rdb 6.1A and V7.0-01

CDD pathname versions are not properly updated (truncated) on alter table.

This is getting bugged..

Create table via pathname, show table get:
CDD Pathname:   DISK$USR1:[JHAYTER.CDD_RDB.CDD70]ALTER_IT;1

alter table to add a new column, show table get:
CDD Pathname:   DISK$USR1:[JHAYTER.CDD_RDB.CDD70]ALTER_IT;

alter table some more until version 10 shows up, show table get:
CDD Pathname:   DISK$USR1:[JHAYTER.CDD_RDB.CDD70]ALTER_IT;1
CDO> says alter_it(10) is used by the DB.

alter some more until version 20 shows up, show table get:
CDD Pathname:   DISK$USR1:[JHAYTER.CDD_RDB.CDD70]ALTER_IT;2
CDO> says alter_it(20) is used by the DB.

Com file to repro the problem.

Define cdd$default first.

$ def sys$output trace_file.out
$ set verify
$ repository
define repository cdd$default.
define field a datatype is real.
define field b datatype is real.
define field c datatype is real.
define field d datatype is real.
define field e datatype is real.
define field f datatype is real.
define field g datatype is real.
define field h datatype is real.
define field i datatype is real.
define field j datatype is real.
define field k datatype is real.
define field l datatype is real.
define field m datatype is real.
define field n datatype is real.
define field o datatype is real.
define field p datatype is real.
define field q datatype is real.
define field r datatype is real.
define field s datatype is real.
define field t datatype is real.
define field u datatype is real.
define field v datatype is real.
define field w datatype is real.
define field x datatype is real.
define field y datatype is real.
define field z datatype is real.

define record all_fields. a. b. c. d. e. f. g. h. i. j. k. l. m. n. o. p.
q. r. s. t. u. v. w. x. y. z. end.

define record alter_it.
a.
end.
exit
$!
$ sql
show version
create datab path cdd$default.adb file adb;
create table from cdd$default.all_fields;
create table from cdd$default.alter_it;
commit;
show table (col) alter_it
alter table alter_it add column b b;
commit;
show table (col) alter_it
alter table alter_it add column c c;
commit;
show table (col) alter_it
alter table alter_it add column d d;
commit;
show table (col) alter_it
alter table alter_it add column e e;
commit;
show table (col) alter_it
alter table alter_it add column f f;
commit;
show table (col) alter_it
alter table alter_it add column g g;
commit;
show table (col) alter_it
alter table alter_it add column h h;
commit;
show table (col) alter_it
alter table alter_it add column i i;
commit;
show table (col) alter_it
alter table alter_it add column j j;
commit;
show table (col) alter_it
alter table alter_it add column k k;
commit;
show table (col) alter_it
alter table alter_it add column l l;
commit;
show table (col) alter_it
alter table alter_it add column m m;
commit;
show table (col) alter_it
alter table alter_it add column n n;
commit;
show table (col) alter_it
alter table alter_it add column o o;
commit;
show table (col) alter_it
alter table alter_it add column p p;
commit;
show table (col) alter_it
alter table alter_it add column q q;
commit;
show table (col) alter_it
alter table alter_it add column r r;
commit;
show table (col) alter_it
alter table alter_it add column s s;
commit;
show table (col) alter_it
sho table (col) alter_it
alter table alter_it add column t t;
commit;
sho table (col) alter_it
alter table alter_it add column u u;
commit;
sho table (col) alter_it
declare x cursor for select rdb$cdd_name from rdb$relations
where rdb$relation_name = 'ALTER_IT';
declare xl list cursor for select rdb$cdd_name where current of x;
open x;
fetch x;
open xl;
fetch xl;
exit
$!
$ repository
dir alter_it
show uses alter_it
exit
$ set noverify
$ deassign sys$output