Archivo exceptionHandlingTest.egl completado después de la lección 7

Este código es la versión completada del archivo exceptionHandlingTest.egl después de la lección 7. Si ve muchos errores marcados por símbolos X rojos en el archivo, asegúrese de que su código coincida con este código:

Ejemplo

package programs;

import EGLDerbyDB.data.Customer;
import EGLDerbyDB.data.Orders;

program exceptionHandlingTest type BasicProgram {}
  
  function main()
    customer Customer;
    customer.FirstName = "John";
    customer.LastName = "Doe";
    customer.CustomerId = 1;
    
    customerOrder Orders;
    customerOrder.CustomerId = 1;
    customerOrder.OrderId = 50;
    customerOrder.OrderAmount = 0;
    customerOrder.OrderDetails = 
      "Este es mi primer pedido, ¡que salga bien!";
  
    try
      add customerOrder;
      SysLib.writeStdout("Pedido añadido satisfactoriamente.");
      add customer;
      SysLib.writeStdout("Cliente añadido satisfactoriamente.");
    onException(ex SQLException)
      SysLib.writeStdout("SQL exception "::ex.messageID);
      SysLib.writeStdout("message = "::ex.message);
      SysLib.writeStdout("Realizando retrotracción.");
      SysLib.rollback();      
    end
    
    
    tempOrder Orders;
    tempOrder.OrderId = 50;
    get tempOrder;
    
    if (tempOrder is noRecordFound)
      SysLib.writeStdout("El pedido se ha retrotraído satisfactoriamente.");
    else
      SysLib.writeStdout("El pedido sigue en la base de datos");
    end
    
  end

end

Volver a Lección 7: Manejo de excepciones y retrotracciones.