Russian Progress User Group

Динамически что ли?

procedure change-table:
define input parameter ip-table-name as character no-undo.

define variable qh as handle no-undo.
define variable bh as handle no-undo.
define variable fh as handle no-undo.
define variable cquery as char no-undo.

create query qh.
create buffer bh for table ip-table-name.
qh:set-buffers(bh).

cquery = "FOR EACH " + ip-table-name + " WHERE " +
ip-table-name + ".field_name = ""value"".

qh:query-prepare(cquery).
qh:query-open.
qh:get-first.
repeat while not (qh:query-off-end):
fh = bh:buffer-field("wh_num").
if fh:buffer-value = {&old_wh_num} then do TRANSACTION:
qh:get-current(exclusive-lock).
assign fh:buffer-value = {&new_wh_num}.
end.
qh:get-next.
end.
qh:query-close.

end. /* change-table */

Информативно. Спасибо всем