Begin
  FORMS_DDL('SAVEPOINT B');
  ...
  UPDATE_TABLE1; -- performing DML
  ...
  UPDATE_TABLE2; -- performing DML
  ...
  IF a_block.a_field = a_value THEN
     FORMS_DDL('ROLLBACK TO B'); -- Does not work. Why?
  END IF;
  ...
END;

DECLARE
  ...
  <snip>
  ...
BEGIN
   IF :B1.C1 IS NULL
   THEN
      WARNING_ALERT ('Please enter a new layout number.');
      RAISE Form_Trigger_Failure;
   ELSE
      /* check for any pending jobs on this
   layout */
      IF A_FUNCTION (:C1.A_FIELD) != 1
      THEN
         FORMS_DDL ('SAVEPOINT B');
         ...
         <snip>
         ...
      IF :B1.C2 = 'A_VALUE' THEN
         FORMS_DDL ('ROLLBACK to B');
         FORMS_DDL ('COMMIT');
      END IF;

      CLEAR_FORM (No_Validate);
      GO_BLOCK ('CLT');
      ...
      <snip>
      ...
      SET_BLOCK_PROPERTY ('C1', ONETIME_WHERE, 'C35=''2');
      EXECUTE_QUERY;
      ...
      <snip>
      ...
   END IF;
END;