ABAP - Logical Databse Without Macros.

REPORT ZTEST .

TABLES pernr.

INFOTYPES : 0001.

START-OF-SELECTION.

GET pernr.

WRITE : / 'Result from Macros'.

rp-provide-from-frst p0001 space pn-begda pn-endda.

IF pnp-sw-found = 1.

WRITE : / '-------------------------------------'.

WRITE : / 'Result from rp-provide-from-frst'.

WRITE : / '-------------------------------------'.

WRITE : / p0001-pernr, p0001-begda, p0001-endda.

ENDIF.

rp-provide-from-last p0001 space pn-begda pn-endda.

IF pnp-sw-found = 1.

WRITE : / '-------------------------------------'.

WRITE : / 'Result from rp-provide-from-last'.

WRITE : / '-------------------------------------'.

WRITE : / p0001-pernr, p0001-begda, p0001-endda.

ENDIF.

rp-read-infotype pernr-pernr 0001 p0001 pn-begda pn-endda.

IF pnp-sw-found = 1.

WRITE : / '-------------------------------------'.

WRITE : / 'Result from rp-read-infotype'.

WRITE : / '-------------------------------------'.

LOOP AT p0001.

WRITE : / p0001-pernr, p0001-begda, p0001-endda.

ENDLOOP.

ENDIF.

END-OF-SELECTION.