Hola Floren!
Muchas gracias por tu idea, no funcionaba como yo quería pero haciéndole unos cambios ya me funciona bien:
IMPORT l_mem = g_memoria FROM MEMORY ID '9112'.
IF ( g_memoria NE 'X' ) AND ( sy-tcode EQ 'PA30' ).
MESSAGE i043(clase) DISPLAY LIKE 'E'.
LEAVE TO SCREEN 0.
ENDIF.
Un saludo!
__________________
Yo misma 
Úlima edición por playa82 fecha: 05/04/11 a las 06:04:59.
|