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-dar01  FROM p0041-dar01  NEXT p0041-dar02
  VARYING wa_dates-dat01  FROM p0041-dat01  NEXT p0041-dat02.
    IF wa_dates-dat01 IS INITIAL.
      EXIT.
    ELSEIF wa_dates-dat01 IN s_date.
      WRITE: / wa_dates-dat01, wa_dates-dar01.
    ENDIF.
  ENDDO.