Quellcode vorher

*&---------------------------------------------------------------------*
*& Report ZLB_MATHE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zlb_mathe.

PARAMETERS p_oper1 TYPE i.
PARAMETERS p_oper2 TYPE i.
*PARAMETERS p_oper TYPE c.

DATA lv_result TYPE p DECIMALS 2.

*Arithmetische Operationen + - * /
lv_result = p_oper1 + p_oper2.

WRITE: / 'Ergebnis +:', lv_result.

lv_result = p_oper1 - p_oper2.

WRITE: / 'Ergebnis -:', lv_result.

lv_result = p_oper1 * p_oper2.

WRITE: / 'Ergebnis *:', lv_result.

lv_result = p_oper1 / p_oper2.

WRITE: / 'Ergebnis /:', lv_result.

Quellcode nachher

*&---------------------------------------------------------------------*
*& Report ZLB_MATHE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zlb_mathe.

PARAMETERS p_oper1 TYPE i.
PARAMETERS p_oper2 TYPE i.
PARAMETERS p_opert TYPE c.

DATA lv_result TYPE p DECIMALS 2.

*Arithmetische Operationen + - * /

CASE p_opert.
  WHEN '+'.
    lv_result = p_oper1 + p_oper2.
    WRITE: / 'Ergebnis +:', lv_result.
  WHEN '-'.
    lv_result = p_oper1 - p_oper2.
    WRITE: / 'Ergebnis -:', lv_result.
  WHEN '*'.
    lv_result = p_oper1 * p_oper2.
    WRITE: / 'Ergebnis *:', lv_result.
  WHEN '/'.
    CASE p_oper2.
      WHEN 0.
        WRITE / 'Division durch Null ist nicht erlaubt!'.
      WHEN OTHERS.
        lv_result = p_oper1 / p_oper2.
        WRITE: / 'Ergebnis /:', lv_result.
    ENDCASE.
  WHEN OTHERS.
    WRITE / 'Kein gültiger Operator eingetragen!'.
ENDCASE.