code
:system.message_level:='25';
message('before commit'); pause;
commit_form;
message('after commit'); pause;
:system.message_level:='0';

/*
** Built-in: COMMIT_FORM
** Example: If there are records in the form to be
** committed, then do so. Raise an error if the
** commit was not successful.
*/

BEGIN
   /*
   ** Force validation to happen first
   */
   Enter;

   IF NOT Form_Success THEN
      RAISE Form_Trigger_Failure;
   END IF;

   /*
   ** Commit if anything is changed
   */
   IF :System.Form_Status = 'CHANGED' THEN
      Commit_Form;

      /*
      ** A successful commit operation sets Form_Status back
      ** to 'QUERY'.
      */
      IF :System.Form_Status <> 'QUERY' THEN
         Message ('An error prevented your changes from being committed.');
         Bell;
         RAISE Form_Trigger_Failure;
      END IF;
   END IF;
END;