CREATE TABLE H02_PERSADDRESSES (
    PERSON_ID     INTEGER NOT NULL,
    KLADR_ID      INTEGER NOT NULL,
    HOUSE         VARCHAR( 10 ),
    SECTION       VARCHAR( 10 ),
    APARTMENT     VARCHAR( 10 ),
    TPE_ID        VARCHAR( 8 ),
    ADD_DATE      DATE DEFAULT 'today' NOT NULL,
    ADD_TIME      TIME DEFAULT 'now' NOT NULL,
    INVAL_DATE    DATE,
    INVAL_TIME    TIME,
    INVAL_REASON  VARCHAR( 32 ),
    USR_NAME      VARCHAR( 16 ) DEFAULT user NOT NULL
);

CREATE PROCEDURE HZ 
as
declare variable house varchar( 10 );
declare variable section varchar( 10 );
declare variable apartment varchar( 10 );
declare variable kladr_id integer;
declare variable id_person integer;
declare variable inval_reason varchar( 32 );
declare variable inval_date date;
begin
for select house,section,apartment,kladr_id,id_person  ,inval_reas  ,inval_date
from badedres
into :house,:section,:apartment,:kladr_id,:id_person,:inval_reason,:inval_date
do
begin
update H02_PERSADDRESSES
set inval_date = :inval_date, inval_reason = :inval_reason
where person_id =  :id_person and kladr_id=:kladr_id   ;

end
end

CREATE TABLE BADEDRES (
    KLADR_ID    INTEGER,
    ID_PERSON   INTEGER,
    INVAL_DATE  DATE,
    INVAL_REAS  VARCHAR( 32 ),
    HOUSE       VARCHAR( 10 ),
    SECTION     VARCHAR( 10 ),
    APARTMENT   VARCHAR( 10 )
);