Objektif |
|
Transaction Code |
|
Tabel |
|
Support |
|
Nama Program : YEXAMPLES_04
Judul : Tipe komplek (Tabel)
2.Deklarasikan Variabel Global
*----------------------------------------------------------------------*
*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.
3.Buat Input Screen / Seleksi
*----------------------------------------------------------------------*
*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.
4.Buat Program Utama
*======================================================================*
*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.
5.Aktivasi (Aktivasi) dan Jalankan (Run)
6.Selesai
▪Input Seleksi
▪Output
*&---------------------------------------------------------------------* *& 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. |