Learn ABAP with Real Code Examples

DATA: count TYPE i VALUE 0.
DATA: isDark TYPE abap_bool VALUE abap_false.

FORM update_ui.
    WRITE: / 'Counter:', count.
    WRITE: / 'Theme:', (IF isDark = abap_true THEN 'Dark' ELSE 'Light').
ENDFORM.

FORM increment.
    count = count + 1.
    PERFORM update_ui.
ENDFORM.

FORM decrement.
    count = count - 1.
    PERFORM update_ui.
ENDFORM.

FORM reset.
    count = 0.
    PERFORM update_ui.
ENDFORM.

FORM toggle_theme.
    isDark = abap_not isDark.
    PERFORM update_ui.
ENDFORM.

" Simulate actions
PERFORM update_ui.
PERFORM increment.
PERFORM increment.
PERFORM toggle_theme.
PERFORM decrement.
PERFORM reset.

Demonstrates a simple counter with theme toggling using ABAP variables and WRITE statements.

DATA: a TYPE i VALUE 0.
DATA: b TYPE i VALUE 1.
DATA: c TYPE i.
WRITE: / a, b.

DO 8 TIMES.
    c = a + b.
    WRITE: / c.
    a = b.
    b = c.
ENDDO.

Generates the first 10 Fibonacci numbers.

DATA: n TYPE i VALUE 5.
DATA: factorial TYPE i VALUE 1.

DO n TIMES.
    factorial = factorial * sy-index.
ENDDO.

WRITE: / 'Factorial:', factorial.

Calculates the factorial of a given number.

DATA: num TYPE i VALUE 7.
IF num MOD 2 = 0.
    WRITE: / 'Even'.
ELSE.
    WRITE: / 'Odd'.
ENDIF.

Checks if a number is even or odd.

DATA: it_numbers TYPE TABLE OF i WITH DEFAULT KEY.
DATA: sum TYPE i VALUE 0.

APPEND 1 TO it_numbers.
APPEND 2 TO it_numbers.
APPEND 3 TO it_numbers.
APPEND 4 TO it_numbers.
APPEND 5 TO it_numbers.

LOOP AT it_numbers INTO DATA(num).
    sum = sum + num.
ENDLOOP.

WRITE: / 'Sum:', sum.

Calculates the sum of an internal table.

DATA: text TYPE string VALUE 'Hello'.
DATA: reversed TYPE string.

DO STRLEN( text ) TIMES.
    reversed = text+sy-index(1) && reversed.
ENDDO.

WRITE: / 'Reversed:', reversed.

Reverses a given string.

DATA: num TYPE i VALUE 13.
DATA: isPrime TYPE abap_bool VALUE abap_true.

DO num - 2 TIMES.
    IF num MOD ( sy-index + 1 ) = 0.
        isPrime = abap_false.
        EXIT.
    ENDIF.
ENDDO.

IF isPrime = abap_true.
    WRITE: / 'Prime'.
ELSE.
    WRITE: / 'Not Prime'.
ENDIF.

Checks if a number is prime.

DATA: num TYPE i VALUE 5.
DO 10 TIMES.
    WRITE: / num, 'x', sy-index, '=', num * sy-index.
ENDDO.

Displays multiplication table of a number.

DATA: celsius TYPE f VALUE 25.
DATA: fahrenheit TYPE f.

fahrenheit = ( celsius * 9 / 5 ) + 32.
WRITE: / celsius, 'C =', fahrenheit, 'F'.

Converts Celsius to Fahrenheit.

DATA: temperature TYPE i VALUE 80.
DATA: threshold TYPE i VALUE 75.

IF temperature > threshold.
    WRITE: / 'Alarm: Temperature Too High!'.
ELSE.
    WRITE: / 'Temperature Normal'.
ENDIF.

Simulates an alarm when a threshold is reached.