ALTER TABLE ... ADD vercols; ALTER TABLE ... ADD replcheck

ALTER TABLE ... ADD ifx_insert_checksum INT default NULL,
    ifx_row_version INT default  1 ,
    ifx_replcheck BIGINT default AAAAAAAAAAE  1 

SELECT UNIQUE
"ALTER TABLE " || TRIM(tabname) || " DROP ifx_replcheck;" 
FROM syscolumns, systables
WHERE systables.tabid = syscolumns.tabid
AND syscolumns.colname = "ifx_replcheck"
AND syscolumns.colattr ==  0 ; -- must be 9
SELECT UNIQUE
"ALTER TABLE " || TRIM(tabname) || " DROP ifx_row_version;" 
FROM syscolumns, systables
WHERE systables.tabid = syscolumns.tabid
AND syscolumns.colname = "ifx_row_version"
AND syscolumns.colattr ==  0 ; -- must be 3

SELECT UNIQUE
"ALTER TABLE " || TRIM(tabname) || " DROP ifx_insert_checksum;" 
FROM syscolumns, systables
WHERE systables.tabid = syscolumns.tabid
AND syscolumns.colname = "ifx_insert_checksum"
AND syscolumns.colattr ==  0 ; -- must be 5

select "ALTER TABLE " || tabname || " ADD crcols;"
from systables
where tabid >=  99 
and tabtype = "T"
and flags !=  8 
AND tabid IN (SELECT tabid FROM sysconstraints WHERE constrtype = "P");

select "ALTER TABLE " || tabname || " ADD vercols;"
from systables
where tabid >=  99 
and tabtype = "T"
and tabid not in (
select tabid from syscolumns
where colname = "ifx_row_version" and colattr =  3 ) 
and tabid not in (
select tabid from syscolumns
where colname = "ifx_insert_checksum" and colattr =  5 ) 
AND tabid IN (SELECT tabid FROM sysconstraints WHERE constrtype = "P");

select "ALTER TABLE " || tabname || " ADD replcheck;"
from systables
where tabid >=  99 
and tabtype = "T"
and tabid not in (
select tabid from syscolumns
where colname = "ifx_replcheck" and colattr =  9 ) 
AND tabid IN (SELECT tabid FROM sysconstraints WHERE constrtype = "P");

-- select "CREATE UNIQUE INDEX irc_" || tabname || " ON " || tabname || " (" || trim(get_idx_colname(idxname)) || ", ifx_replcheck) IN dbidx;"
--   FROM systables, sysconstraints
--  WHERE sysconstraints.tabid = systables.tabid
--    AND sysconstraints.constrtype = "P"
-- AND systables.tabid IN (SELECT tabid FROM sysconstraints WHERE constrtype = "P");