SAP ABAP Creating Extract Dataset

Requirement:

Write a program that lists the Vendors and their Accounting documents. Create extract dataset from KDF logical database. Loop through the dataset to create the required report. Don't list those vendors which has no documents

Solution:

report zfwr0001 no standard page heading.
tables: lfa1, bsik.
field-groups: header, item1, item2.
insert lfa1-lifnr bsik-belnr into header.
insert lfa1-land1 lfa1-name1 into item1.
insert bsik-belnr bsik-budat into item2.
start-of-selection.
get lfa1.
extract item1.
get bsik.
extract item2.
end-of-selection.
loop.
at item1 with item2.
skip.
write:/ 'Vendor number:', 28 'Name:', 56 'City:'.
write: 16 lfa1-lifnr, 33(20) lfa1-name1, 62(20) lfa1-ort01.
write:/ 'Document no.', 15 'Date'.
endat.
at item2.
write:/ bsik-belnr, 13 bsik-budat.
endat.
endloop.

Additional task:

Don't forget to set the Logical database to KDF on the "Program Attributes"

screenResult:

Vendor number: 10024 Name:New Jersey: New York
Document no. Date
1200000426 01/08/1999
Vendor number: 100126 Name: Universal Studios City: Los Angeles
Document no. Date
1800000109 12/02/1996
1800000341 01/10/1997
1800000321 01/14/1997