enterqry
declare
item_id item;

begin
  item_id := find_item ('TOOLBAR.OPENB');
  if :System.Mode = 'ENTER-QUERY' then
     set_item_property (item_id, ICON_NAME, 'entquery');
     do_key ('execute_query');
  else
     set_item_property (item_id, ICON_NAME, 'exequery');
     do_key ('enter_query');
  end if;
end;

save
do_key('commit_form');

printer
execute_trigger('print_doc');

exit
declare
item_id item;

begin
   if :System.Mode = 'ENTER-QUERY' then
      item_id := find_item ('TOOLBAR.OPENB');
      set_item_property (item_id, ICON_NAME, 'entquery');
   end if;
   do_key('exit_form');
end;

cut
cut_region;

copy
copy_region;

paste
paste_region;

insert
do_key('create_record');

drow
do_key('delete_record');

first
first_record;

prec
do_key ('previous_record');

ppage
do_key('scroll_up');

nrec
do_key('next_record');

npage
do_key('scroll_down');

last
last_record;

help
help;