DATA lv_date TYPE sy-datum.

   DATA p_time TYPE T5A4A-DLYDY.
   DATA lt_plko TYPE STANDARD TABLE OF plko.
   DATA ls_plko LIKE LINE OF lt_plko.
   DATA ls_plko_mem LIKE LINE OF lt_plko.
   TYPES: BEGIN OF lty_chn_temp,
     plnnr TYPE plnnr,
     plnal TYPE plnal,
     aennr TYPE aennr,
     datuv TYPE datuv,
     datub TYPE datub,
     END OF lty_chn_temp.
   DATA lt_chn_temp TYPE STANDARD TABLE OF lty_chn_temp.
   DATA ls_chn_temp LIKE LINE OF lt_chn_temp.
   DATA lv_idat TYPE sy-datum.
   DATA lv_odat TYPE sy-datum.
   lv_date = sy-datum.
   p_time = 68.

   CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
     EXPORTING
       DATE            = sy-datum
       DAYS            = p_time
       MONTHS          = 0
*      SIGNUM          = '+'
       YEARS           = 0
     IMPORTING
       CALC_DATE       = lv_date
             .

    SELECT * FROM PLKO INTO TABLE LT_PLKO WHERE aennr NE ' ' AND datuv LE lv_date AND plnty = 2.

    SORT lt_plko BY PLNNR PLNAL DATUV.

    LOOP AT lt_plko INTO ls_plko.
      IF ls_plko_mem IS NOT INITIAL.
        IF ls_plko_mem-plnnr = ls_plko-plnnr AND ls_plko_mem-plnal = ls_plko-plnal.
          CLEAR ls_chn_temp.
          ls_chn_temp-plnnr = ls_plko_mem-plnnr.
          ls_chn_temp-plnal = ls_plko_mem-plnal.
          ls_chn_temp-aennr = ls_plko_mem-aennr.
          ls_chn_temp-datuv = ls_plko_mem-datuv.
          lv_odat = ls_plko-datuv - 1.
          ls_chn_temp-datub = lv_odat.
          APPEND ls_chn_temp TO lt_chn_temp.
        ELSE.
          CLEAR ls_chn_temp.
          ls_chn_temp-plnnr = ls_plko_mem-plnnr.
          ls_chn_temp-plnal = ls_plko_mem-plnal.
          ls_chn_temp-aennr = ls_plko_mem-aennr.
          ls_chn_temp-datuv = ls_plko_mem-datuv.
          ls_chn_temp-datub = '31.12.9999'.
          APPEND ls_chn_temp TO lt_chn_temp.
        ENDIF.
      ENDIF.
      CLEAR ls_plko_mem.
      ls_plko_mem = ls_plko.
    ENDLOOP.