Objective |
|
Transaction Code |
|
Tables |
|
Support |
|
Program Name : YEXAMPLES_04
Title : Complex Types (Tables)
2.Declare Global Variable
*----------------------------------------------------------------------*
*GLOBAL VARIABLE DECRALATION
*----------------------------------------------------------------------*
*First Style
TYPES : BEGIN OF ty_wa,
a TYPE i,
b TYPE i,
hasil TYPE p DECIMALS 2,
END OF ty_wa.
*Internal Table Declaration
DATA : gi_itab TYPE STANDARD TABLE OF ty_wa WITH HEADER LINE.
*----------------------------------------------------------------------*
DATA : lv_counter TYPE i,
lv_puluhan TYPE i.
3.Create Input Screen/Selection
*----------------------------------------------------------------------*
*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.Create Main Program
*======================================================================*
*MAIN PROGRAM
*Execute after Input Screen
*======================================================================*
START-OF-SELECTION.
* insert Into 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.
*Display itab data
LOOP AT gi_itab.
WRITE : / gi_itab-a, gi_itab-b, gi_itab-hasil.
ENDLOOP.
5.Activated and run
6.Finished
▪Input Selection
▪Output
*&---------------------------------------------------------------------* *& Report YEXAMPLES_04 * *& * *&---------------------------------------------------------------------* *& * *& * *&---------------------------------------------------------------------*
REPORT yexamples_04 .
*----------------------------------------------------------------------* *GLOBAL VARIABLE DECRALATION *----------------------------------------------------------------------* *First Style TYPES : BEGIN OF ty_wa, a TYPE i, b TYPE i, hasil TYPE p DECIMALS 2, END OF ty_wa.
* Internal Table Declaration 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. * Insert data to 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.
*Display itab data LOOP AT gi_itab. WRITE : / gi_itab-a, gi_itab-b, gi_itab-hasil. ENDLOOP. |