CREATE TABLE NEW_TABLE (
    FLD  BLOB SUB_TYPE 0 SEGMENT SIZE 80
);

execute block as
declare variable B blob;
declare variable i integer;
begin
    i = 0;
    while (i < 10000) do begin
        in AUTONOMOUS TRANSACTION do begin
            SELECT first 1 new_table.FLD from new_table into :b;
            B = b || 'w';
            update NEW_TABLE set fld = :b;
            i = i + 1;
        end
    end
end