Objektif

Kode Transaksi

SE38 - ABAP Editor

Tabel

Support

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

*& 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.