Objektif |
|
Kode Transaksi |
|
Tabel |
|
Support |
|
Nama Program : YEXAMPLES_03
Judul : tipe kompleks (Struktur)
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.
Data : l_wa1 type ty_wa. " Sturcture (Workarea)
*Cara Kedua
data: begin of l_wa2,
a type i,
b type i,
hasil type p decimals 2,
end of l_wa2. " Sturcture (Workarea)
3.Buat Input Screen / Seleksi
*----------------------------------------------------------------------*
*Input Screen/Selection
*----------------------------------------------------------------------*
parameter p_a like l_wa1-a default 12.
parameter p_b like l_wa1-b default 14.
4.Buat Program Utama
*======================================================================*
*MAIN PROGRAM
*Execute after Input Screen
*======================================================================*
START-OF-SELECTION.
l_wa1-a = p_a.
l_wa1-b = p_b.
l_wa1-hasil = l_wa1-a / l_wa1-b.
write : / 'WA dari variabel A = ', l_wa1-a,
/ 'WA dari variabel B = ', l_wa1-b,
/ 'WA dari variabel Hasil = ', l_wa1-hasil.
5.Aktivasi (Aktivasi) dan Jalankan (Run)
6.Selesai
▪Input Seleksi
▪Output
*&---------------------------------------------------------------------* *& Report YEXAMPLES_03 * *& * *&---------------------------------------------------------------------* *& * *& * *&---------------------------------------------------------------------*
REPORT yexamples_03 .
*----------------------------------------------------------------------* *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.
Data : l_wa1 type ty_wa. " Sturcture (Workarea)
*Cara Kedua data: begin of l_wa2, a type i, b type i, hasil type p decimals 2, end of l_wa2. " Sturcture (Workarea)
*----------------------------------------------------------------------* *Input Screen/Selection *----------------------------------------------------------------------* parameter p_a like l_wa1-a default 12. parameter p_b like l_wa1-b default 14.
*======================================================================* *MAIN PROGRAM *Execute after Input Screen *======================================================================* START-OF-SELECTION. l_wa1-a = p_a. l_wa1-b = p_b.
l_wa1-hasil = l_wa1-a / l_wa1-b.
write : / 'WA dari variabel A = ', l_wa1-a, / 'WA dari variabel B = ', l_wa1-b, / 'WA dari variabel Hasil = ', l_wa1-hasil. |