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
|