Exception Handling in IFS

PROCEDURE Test_Exception_Handling
IS
BEGIN
   -- TODO: Pre Logic
   Dbms_Output.Put_Line('Pre Logic');
   
   BEGIN
      @ApproveTransactionStatement(2024-11-21, RMAX)
      SAVEPOINT A;
      
      -- TODO: Main Logic
      Dbms_Output.Put_Line('Main Logic');
      
      -- Error Demo
      Error_SYS.Record_General(lu_name_, 'TEMPERROR: RMAX DUMMY 101');
   EXCEPTION
      WHEN OTHERS THEN
         @ApproveTransactionStatement(2024-11-21, RMAX)
         ROLLBACK TO A;
         
         -- TODO: Error Handling Logic
         Dbms_Output.Put_Line('Error Handling Logic');
   END;   
END Test_Exception_Handling;