An SAP Consultant

REPORT ztest_program.
TABLES:pernr.
INFOTYPES: 0041.
DATA: BEGIN OF wa_dates,
 dar01 TYPE p0041-dar01,
 dat01 TYPE p0041-dat01,
END OF wa_dates.
SELECT-OPTIONS:s_date FOR p0041-dat01.

GET pernr.
rp_provide_from_last p0041 space pn-begda pn-endda.
DO 12 TIMES
      VARYING wa_dates  FROM p0041-dar01  NEXT p0041-dar02.
  IF wa_dates-dat01 IS INITIAL.
   EXIT.
  ELSEIF wa_dates-dat01 IN s_date.
    WRITE: / wa_dates-dat01, wa_dates-dar01.
  ENDIF.
ENDDO.