REPORT zco_gercek_maliyet_listele.

TABLES: coep.

TYPES: BEGIN OF ty_maliyet,
gjahr TYPE coep-gjahr, " Mali yıl
belnr TYPE coep-belnr, " Belge numarası
kostl TYPE coep-kostl, " Maliyet yeri
bukrs TYPE coep-bukrs, " Şirket kodu
wrbtr TYPE coep-wrbtr, " Tutar
END OF ty_maliyet.

DATA: lt_maliyet TYPE TABLE OF ty_maliyet,
ls_maliyet TYPE ty_maliyet.

SELECT-OPTIONS: s_kostl FOR coep-kostl,
s_gjahr FOR coep-gjahr.

START-OF-SELECTION.

SELECT gjahr belnr kostl bukrs wrbtr
FROM coep
INTO TABLE lt_maliyet
WHERE kostl IN @s_kostl
AND gjahr IN @s_gjahr.

IF sy-subrc <> 0.
WRITE: / 'Kayıt bulunamadı.'.
RETURN.
ENDIF.

LOOP AT lt_maliyet INTO ls_maliyet.
WRITE: / 'Yıl:', ls_maliyet-gjahr,
' Belge:', ls_maliyet-belnr,
' M.Yeri:', ls_maliyet-kostl,
' Şirket:', ls_maliyet-bukrs,
' Tutar:', ls_maliyet-wrbtr.
ENDLOOP.