CREATE PROCEDURE UPDATE_NEWS (
    USER_NAME VARCHAR(100))
RETURNS (
    ID VARCHAR(10),
    SHOW BLOB SUB_TYPE TEXT)
AS
begin
     for select id, show from news where show not like  :user_name  and UPPERUSERNAME <> :user_name into :id, :show
         do if (id<>0) then
          begin
            update news set show = :user_name  where id=:id ;
            suspend;
          end
end;

CREATE PROCEDURE UPDATE_NEWS (
    USER_NAME VARCHAR(100))
RETURNS (
    ID VARCHAR(10),
    SHOW BLOB SUB_TYPE TEXT)
AS
begin
     for select id, show from news where show not like ';;;' + :user_name + ';;;' and UPPERUSERNAME <> :user_name into :id, :show
         do if (id<>0) then
          begin
            update news set show = :show + ';;;' + :user_name + ';;;'  where id=:id ;
            suspend;
          end
end;