Ver Mensaje Individual
  #12  
Viejo 23/10/20, 08:25:54
Dhdez Dhdez is offline
Junior Member
 
Fecha de Ingreso: oct 2020
Mensajes: 4
Re: Como NO sobreescribir un fichero

Hola, pues depende de lo que quieras hacer. Si no quieres salir de la pantalla , dándole solo a enter, una solución sería:

Parameters: P_uno type i,
p_dos type i,
p_result type i.

at SELECTION-SCREEN OUTPUT.

p_result = p_dos + P_uno.

if p_result = 20.
MESSAGE 'Resultado correcto' Type 'I'.
ENDIF.

Si por el contrario quieres ejecutar el programa podría volver a llamar al programa:

PARAMETERS: p_uno TYPE i,
p_dos TYPE i,
p_result TYPE i.


END-OF-SELECTION.
p_result = p_dos + p_uno.

IF p_result NE 10.

SUBMIT zmispruebas with p_uno EQ p_uno
with p_dos EQ p_dos
with p_result EQ p_result
VIA SELECTION-SCREEN.
ELSE.

WRITE ' Resultado correcto'.

ENDIF.

Espero haberte ayudado
Responder Con Cita