Estructura de control CLEANUP

Si una estructura TRY-ENDTRY contiene un bloque CLEANUP, este bloque se ejecuta cuando se retira la estructura TRY-ENDTRY, porque el sistema no puede encontrar un controlador dentro de la estructura TRY-ENDTRY, pero sí en una estructura TRY-ENDTRY circundante o en un programa de llamadas.
En la sentencia CLEANUP, igual que en la sentencia CATCH, se puede utilizar el añadido INTO para guardar en una referencia declarada la instancia del objeto de excepción que ha emitido la excepción.
Vamos a ampliar un programa ya desarrollado, utilizando INTO en la estructura de control CLEANUP y pintando en la pantalla el texto que devuelve el método GET_TEXT del objeto de excepción.