Поймать исключение

saynt

Есть саповская FORM, которая вызывает FM:

Code:

  CALL FUNCTION 'ME_REL_SET'
       EXPORTING
            I_TITLE  = ' '
            I_DIALOG = ' '
            I_FRGRL  = FEKKO-FRGRL
            I_FRGCO  = XFRGCO
            I_FRGKZ  = FEKKO-FRGKE
            I_FRGGR  = FEKKO-FRGGR
            I_FRGST  = FEKKO-FRGSX
            I_FRGZU  = FEKKO-FRGZU
            I_FRGOT  = '2'
       IMPORTING
            E_FRGKZ  = FEKKO-FRGKE
            E_FRGZU  = FEKKO-FRGZU
            E_FRGRL  = FEKKO-FRGRL.
*    EXCEPTIONS
*         PREREQUISITE_FAIL      = 01
*         RELEASE_ALREADY_POSTED = 02
*         RESPONSIBILITY_FAIL    = 03.

Как можно сделать так, чтобы при вызове формы, если в FM возникает исключение, то его обработала моя программа, вызвавшая FORM. Т.е. не было показано ошибки функциональным модулем.

KVL

Если FORM вызывающая FM - твоя, - анализируй EXCEPTIONS, т.е. смотри SY-SUBRC.

Jelena

saynt написал:

Есть саповская FORM, которая вызывает FM

Если саповская, то скорее всего никак. Там надо код менять. На всякий случай - когда-то давным давно делала заметку для себя, может прояснит ситуацию:

Here the function containing MESSAGE ... RAISING ... statements receives an invalid input.

Option A. SY-SUBRC = 0, a message displayed by the function.

Code:

W_DATE = '20050199'.

CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
  EXPORTING
    date                            = W_DATE
* EXCEPTIONS
*   PLAUSIBILITY_CHECK_FAILED       = 1
*   OTHERS                          = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Option B. SY-SUBRC = <exception number>, no message displayed

Code:

W_DATE = '20050199'.

CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
  EXPORTING
    date                            = W_DATE
 EXCEPTIONS
   PLAUSIBILITY_CHECK_FAILED       = 1
   OTHERS                          = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

sy-uname

saynt написал:

Есть саповская FORM, которая вызывает FM:

Code:

  CALL FUNCTION 'ME_REL_SET'
       EXPORTING
            I_TITLE  = ' '
            I_DIALOG = ' '
            I_FRGRL  = FEKKO-FRGRL
            I_FRGCO  = XFRGCO
            I_FRGKZ  = FEKKO-FRGKE
            I_FRGGR  = FEKKO-FRGGR
            I_FRGST  = FEKKO-FRGSX
            I_FRGZU  = FEKKO-FRGZU
            I_FRGOT  = '2'
       IMPORTING
            E_FRGKZ  = FEKKO-FRGKE
            E_FRGZU  = FEKKO-FRGZU
            E_FRGRL  = FEKKO-FRGRL.
*    EXCEPTIONS
*         PREREQUISITE_FAIL      = 01
*         RELEASE_ALREADY_POSTED = 02
*         RESPONSIBILITY_FAIL    = 03.

Как можно сделать так, чтобы при вызове формы, если в FM возникает исключение, то его обработала моя программа, вызвавшая FORM. Т.е. не было показано ошибки функциональным модулем.

Поискать ноты или выставить сообщение в SAP с тем, чтобы была реализована обработка ошибок.
Других вариантов нет, так как

help(F1) написал(а):

If the caller of an exception raised by RAISE has not assigned a return value, the program terminates with a runtime error.

Удав

sy-uname написал(а):

Поискать ноты или выставить сообщение в SAP с тем, чтобы была реализована обработка ошибок.

Нота 1039231 решает данную проблему.

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

Поймать исключение

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