En este caso, la solución sería la propuesta en un post anterior, y si es posible, hacer el chequeo en el at selectión screen, y desde ahi dar el mensaje... Lo malo, es que por el código que has puesto, supongo que será dificil adaptarlo para hacer la selección y el chequeo en el el bloque de at selection screen....

La verdad es que ahora mismo, no se me ocurre otra cosa...

bueno, alfinal lo e tenido que dejar asi:

IF sy-subrc <> 0.
MESSAGE s398(00) WITH text-001.
LEAVE TO TRANSACTION ZSPR.
ENDIF.

Lo unico q no saca el mensaje en rojo , pero bueno, por lo que me an dicho, si en esta version no se puede, que lo deje asi.

Asi que muchas gracias a todos.

LEAVE TO SCREEN 0. tmb podria ser

Puedes colocar un flag, aver si sirve :D

IF sy-subrc NE 0.
g_flag = 'X'.
ENDIF.

y dentro del START_OF_SELECTION.
IF g_glag IS INITIAL.
"Continuo con mis rutinas
ELSE.
MESSAGE S000 WITH text-t01.
ENDIF.

regresa al mismo programa...
 

Estimado Tate, yo trabajo con una versión R/3 4.0B, yo utilice esta sentencia y me funcionó al tiro:

message s398(00) raising exception with text-001.
:D