Objektif

Transaction Code

SE38 - ABAP Editor

Tabel

Support

*&---------------------------------------------------------------------*

*& Report  YEXAMPLES_04                                                *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  yexamples_04                            .

*----------------------------------------------------------------------*

*GLOBAL VARIABLE DECRALATION

*----------------------------------------------------------------------*

*Cara Pertama

TYPES : BEGIN OF ty_wa,

          a TYPE i,

          b TYPE i,

          hasil TYPE p DECIMALS 2,

        END OF ty_wa.

* Deklarasi Internal Table

DATA : gi_itab TYPE STANDARD TABLE OF ty_wa WITH HEADER LINE.

*----------------------------------------------------------------------*

DATA : lv_counter TYPE i,

       lv_puluhan TYPE i.

*----------------------------------------------------------------------*

*Input Screen/Selection

*----------------------------------------------------------------------*

PARAMETER p_a LIKE gi_itab-a DEFAULT 12.

PARAMETER p_b LIKE gi_itab-b DEFAULT 14.

PARAMETER p_n TYPE i DEFAULT 100.

*======================================================================*

*MAIN PROGRAM

*Execute after Input Screen

*======================================================================*

START-OF-SELECTION.

* Memasukan data ke itab

CLEAR lv_counter.

DO p_n TIMES.

  lv_counter = lv_counter + 1.

  gi_itab-a = p_a + lv_counter.

  lv_puluhan = gi_itab-a MOD 10.

  IF lv_puluhan <> 0.

    gi_itab-b = p_b + lv_counter.

    gi_itab-hasil = p_a + p_b.

    APPEND gi_itab.

  ENDIF.

ENDDO.

*Menampilkan data itab

LOOP AT gi_itab.

  WRITE : / gi_itab-a, gi_itab-b, gi_itab-hasil.

ENDLOOP.