abap exception异常处理

Posted 2022-04-10 liyafei

1: 创建要给function module

FUNCTION ZFM_01.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(L_NUM1) TYPE  I
*"     REFERENCE(L_NUM2) TYPE  I
*"  EXPORTING
*"     REFERENCE(E_RESULT) TYPE  I
*"  EXCEPTIONS
*"      DV_ZERO
*"----------------------------------------------------------------------
IF L_NUM2 EQ 0.
  RAISE DV_ZERO.
  EXIT.
ENDIF.

E_RESULT = L_NUM1 / L_NUM2.

ENDFUNCTION.

 

异常

 

2: 调用上面的 方法

FUNCTION ZFM_02.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"----------------------------------------------------------------------

  DATA LV_RESULT TYPE i.

  CALL FUNCTION ‘ZFM_01‘
    EXPORTING
      L_NUM1   = 10
      L_NUM2   = 0
    IMPORTING
      E_RESULT = LV_RESULT
    EXCEPTIONS            "异常
      DV_ZERO  = 1
      OTHERS   = 2.

  IF SY-SUBRC = 1.
    WRITE ‘you must input L_NUM2 not equal 0‘.
    EXIT.
  ELSE.
    write LV_RESULT.
  ENDIF.

ENDFUNCTION.

 

 

function module 可以直接执行F8，会出现让输入 参数的画面：进行调试，debug等。