Re: commit in SQL*Forms (problems)

set the :system.message_level variable to shut off the messages, do the commit, then reset the :system.message_level. I use two referenced procedures as follows:

procedure set_msg_ignore is   

• procedure to shut off the annoying No changes to commit bleep
• when I do a commit inside a dummy parameter form

begin    

  :global.smi_old_message_level := :system.message_level;  

  :system.message_level := 5;                                          
     end;       

 procedure set_msg_restore is                                          
     
  begin                                                                
      
    default_value('global.smi_old_message_level','NULL');              
      
    if :global.smi_old_message_level = 'NULL' then                     
      
      :system.message_level := 20;                                     
      
    else                                                               
      
      :system.message_level :=
to_number(:global.smi_old_message_level);      
    end if;                                                            
      
    erase('global.smi_old_message_level');                             
     

  end; Received on Wed Apr 06 1994 - 20:48:30 CEST