ABAP - Simple Logical Database Report Program.

TABLES:PERNR.
INFOTYPES:0002,0008.
GET PERNR.
PROVIDE * FROM P0002 BETWEEN PN-BEGDA AND PN-ENDDA.
ENDPROVIDE.
PROVIDE * FROM P0008 BETWEEN PN-BEGDA AND PN-ENDDA.
ENDPROVIDE.

IF SY-SUBRC = 0.
WRITE:/ P0002-PERNR,
P0002-BEGDA,
P0002-ENDDA,
P0002-VORNA,
P0008-ANSAL,
P0008-lga01,
P0008-bet01,
P0008-PREAS.
ENDIF.