Puedes hacer que el mensaje de error tipo E sea tipo I y luego de la instrucccion del mensaje colocas un exit. de esa manera te saldra el mensaje y volveras a la pantalla de seleccion.
*&---------------------------------------------------------------------*
*& S T A R T - O F - S E L E C T I O N
*&---------------------------------------------------------------------*
start-of-selection.
" Revisión de los campos obligatorios según la opción elegida
if di = 'X' and centro is initial.
message 'Para conocer la disponibilidad, es requerido indicar centro' type 'I'.
EXIT.
elseif pr = 'X' and ( org is initial or canal is initial ).
message 'Para conocer el precio, es requerido indicar organización y canal' type 'I'.
EXIT.
elseif pd = 'X' and ( centro is initial or org is initial or canal is initial ).
message 'Para conocer la disponibilidad y el precio, es requerido indicar centro, organización y canal' type 'I'.
EXIT.
endif.
y si quieres que se vea el icono del triangulo rojo en el mensaje agregale display like 'E'. asi:
message 'Para conocer la disponibilidad, es requerido indicar centro' type 'I' display like 'E'.
|