Message type 'E' - пропадает GUI-status

Mystic_you

Добрый день.

Прошу помочь разрешить такую ситуацию.

Code:

...

START-OF-SELECTION.

...

  CALL FUNCTION 'RH_STRUC_GET'
...

  IF sy-subrc EQ 2.
    MESSAGE 'Орг.единица в плане 1 не существует.' TYPE 'E'.
  ENDIF.

....

Когда это отрабатывает, гуистатус исчезает и пользователь не знает чего ему делать. Собственно, я свой GUI-status и не присваивал, но думал что будет от селекшен скрина. Вопрос - как, сохраняя логику (выводя ошибку при помощи MESSAGE), вернуться на селекшен скрин?

XXX_:)

Code:

PARAMETERS: p TYPE werks_d.

START-OF-SELECTION.

  MESSAGE  'Error' TYPE 'S' DISPLAY LIKE 'E'.
  STOP.

END-OF-SELECTION.

Будет сообщение типа S, но на экране будет выглядеть как E. STOP передаст управление оператору выполняющимося после END-OF-SELECTION. Если после него ничего нет, то сразу попадете на селекционный экран

sy-uname

Mystic_you написал(а):

Добрый день.

Прошу помочь разрешить такую ситуацию.

Code:

...

START-OF-SELECTION.

...

  CALL FUNCTION 'RH_STRUC_GET'
...

  IF sy-subrc EQ 2.
    MESSAGE 'Орг.единица в плане 1 не существует.' TYPE 'E'.
  ENDIF.

....

Когда это отрабатывает, гуистатус исчезает и пользователь не знает чего ему делать. Собственно, я свой GUI-status и не присваивал, но думал что будет от селекшен скрина. Вопрос - как, сохраняя логику (выводя ошибку при помощи MESSAGE), вернуться на селекшен скрин?

Messages Without Screens - не используйте тип 'E', испольуйте например 'S' с дополнением DISPLAY LIKE 'E' и завершайте выполнение программы через EXIT\RETURN

Mystic_you

Спасибо ответившим, все верно!

я знал про дополнение DISPLAY LIKE ... , но почему то не догадался про STOP/EXIT/RETURN , вместо этого пытался вызвать экран, вроде CALL SELECTION-SCREEN 1000 и результаты были конечно ужасающие =)

P.S. Правда, пришлось поставить флаг о том что выполнение прервано, и потом флаг анализировать, чтобы потом не выводить WRITE "Данных не найдено" (этим райтом мы уходим с селекшен-скрина)

Code:

START-OF-SELECTION.

....

IF sy-subrc NE 0.
    MESSAGE 'Орг.единица в плане 1 не существует.'
      TYPE 'S' DISPLAY LIKE 'E'.
    gv_stay_at_sel_screen = 'X'.
    EXIT.
  ENDIF.

....

END-OF-SELECTION.
  CHECK gv_stay_at_sel_screen IS INITIAL.
...

Как-то не очень красиво получилось, но ведь в формах же, кажется, нельзя использовать исключения?

Правила форума

Message type 'E' - пропадает GUI-status

Кто сейчас на конференции