*&---------------------------------------------------------------------*
*& Report  Z_PARAMETRELI
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_PARAMETRELI.
PARAMETERS :
         p_ad TYPE string,
         p_soyad TYPE string,
         p_tarih TYPE d DEFAULT sy-datum,
         p_meslek TYPE string.

TYPES: BEGIN OF kisi_bilgileri,

         ad TYPE string,
         soyad TYPE string,
         tarih TYPE d,
         meslek TYPE string,
       END OF kisi_bilgileri,

bilgiler TYPE STANDARD TABLE OF kisi_bilgileri.


DATA : kisi_listesi TYPE bilgiler,
      kisi TYPE kisi_bilgileri.

kisi-ad = p_ad.
kisi-soyad = p_soyad.
kisi-tarih = p_tarih.
kisi-meslek = p_meslek.

APPEND kisi to kisi_listesi.


LOOP AT kisi_listesi INTO kisi.
  WRITE:/ kisi-ad,
          kisi-soyad,
          kisi-tarih,
          kisi-meslek .
ENDLOOP.