Employee list program using macros in HR ABAP

*-- Declaration
tables: pernr.
infotypes: 0002.                       "Personal Data
select-options: language for p0002-sprsl.

*-- Selection screen
initialization.
  pnptimed = 'D'.

*-- Processing
get pernr.
  provide * from p0002 between pn-begda and pn-endda.
    check language.
    write: / p0002-pernr,
             sy-vline,
             pernr-ename,
             sy-vline,
             p0002-sprsl,
             sy-vline,
             p0002-gbdat.
  endprovide.