DO – ENDDO
DO 5 TIMES.
WRITE / sy-index.
DO 5 TIMES.
IF sy-index = 3.
CONTINUE.
WRITE / sy-index.
DO 5 TIMES.
IF sy-index = 3.
EXIT.
WRITE / sy-index.
WHILE – ENDWHILE
WHILE sy-index < 3.
WRITE / sy-index.
IF – ENDIF
DATA: sonbahar TYPE i VALUE 1,
kis TYPE i VALUE 2,
ilkbahar TYPE i VALUE 3,
yaz TYPE i VALUE 4,
mevsim TYPE i VALUE 3.
if mevsim = 1.
WRITE / 'Sonbahar'.
ELSEIF mevsim = 2.
WRITE / 'Kıs'.
ELSEIF mevsim = 3.
WRITE / 'Ilkbahar'.
ELSEIF mevsim = 4.
WRITE / 'Yaz'.
ELSE.
WRITE / 'Gecersiz.'.
ENDIF.
CASE – ENDCASE
DATA sabit TYPE p DECIMALS 2 VALUE '3.14'.
CASE sabit.
WHEN '3.14'.
WRITE :/ sabit, 'pi sayisidir'.
WHEN '2.718'.
WRITE :/ sabit, 'e sayisidir'.
WHEN OTHERS.
WRITE :/ 'Bilinmeyen sabit'.
ENDCASE.