ZAKPRO3.abap

SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETERS: operator TYPE c.
SELECTION-SCREEN END OF BLOCK a.

DATA: inta TYPE i, intb TYPE i,
      counter TYPE i VALUE 1,
      result TYPE i,
      INDEX TYPE SY-INDEX.

AT SELECTION-SCREEN.
  IF operator = '+' OR operator = '-' OR operator = '*' OR operator ='/'.

  ELSE.
    MESSAGE 'invalid operator' TYPE 'E'.
  ENDIF.


START-OF-SELECTION.

  WRITE : 11 operator, sy-vline.

IF OPERATOR = '+'.
  DO 8 TIMES.
    WRITE : sy-index.
  ENDDO.
  ULINE.

  DO 8 TIMES.
    WRITE : / sy-index.
    WRITE sy-vline.
    index = sy-index.

    DO 8 TIMES.
      result = index + counter.
      WRITE result.
      counter = counter + 1.
    ENDDO.
    CLEAR : result.
    counter = 1.

  ENDDO.
ELSEIF OPERATOR = '-'.
   DO 8 TIMES.
    WRITE : sy-index.
  ENDDO.
  ULINE.

  DO 8 TIMES.
    WRITE : / sy-index.
    WRITE sy-vline.
    index = sy-index.

    DO 8 TIMES.
      result = index - counter.
      WRITE result.
      counter = counter + 1.
    ENDDO.
    CLEAR : result.
    counter = 1.

  ENDDO.
 ELSEIF OPERATOR = '*'.
   DO 8 TIMES.
    WRITE : sy-index.
  ENDDO.
  ULINE.

  DO 8 TIMES.
    WRITE : / sy-index.
    WRITE sy-vline.
    index = sy-index.

    DO 8 TIMES.
      result = index * counter.
      WRITE result.
      counter = counter + 1.
    ENDDO.
    CLEAR : result.
    counter = 1.

  ENDDO.
ELSEIF OPERATOR = '/'.
  DO 8 TIMES.
    WRITE : sy-index.
  ENDDO.
  ULINE.

  DO 8 TIMES.
    WRITE : / sy-index.
    WRITE sy-vline.
    index = sy-index.

    DO 8 TIMES.
      result = index / counter.
      WRITE result.
      counter = counter + 1.
    ENDDO.
    CLEAR : result.
    counter = 1.

  ENDDO.
 ENDIF.