Capturando error en try catch

Es muy importante manejar el try-catch como parte estándar de un desarrollo. Se utiliza para capturar un error, que no se genere un dump y los usuarios no salgan corriendo, creyendo que el programa exploto (es mi parte irónica).... en fin, una forma de arreglar este problemilla es capturar dichos errores y mostrarlos como mensajes.

El código es el siguiente:


TRY.

     SELECT *
     INTO TABLE g_ti_marc
     FROM           marc
     FOR ALL ENTRIES IN g_ti_mara    
     WHERE matnr EQ g_ti_mara-matnr.

*.Capturamos el error y lo llevamos a la instancia lr_cx_root.
   CATCH CX_ROOT INTO lr_cx_root.

*.....Luego extraemos el mensaje de error que arroja el sistema accediendo al metodo *.....if_message~get_longtext( ).

       l_c_message = lr_cx_root->if_message~get_longtext( ).

*.....Por ultimo podremos realizar ya lo que queramos con el mensaje de error por ejemplo *.....imprimirlo.

       MESSAGE l_c_message TYPE 'E'.

  END TRY.