INCLUDE: rpc2rx00,                     "Definition cluster RX (I)
               PC2RXRU0,                     "Definition cluster RX (II)
              rpppxd00.                     "Buffer definition (I)


  CALL FUNCTION 'CU_READ_RGDIR'
       EXPORTING
            persnr          = pernr
       TABLES
            in_rgdir        = rgdir
       EXCEPTIONS
            no_record_found = 1
            OTHERS          = 2.
  IF sy-subrc = 0.
    CALL FUNCTION 'CD_EVALUATION_PERIODS'
         EXPORTING
              inper_modif     = '01'
              inper           = fromper
         TABLES
              rgdir           = rgdir
              evpdir          = evpdir
         EXCEPTIONS
              no_record_found = 1
              OTHERS          = 2.
    IF sy-subrc = 0.
* loop оганичить по периоду.
      LOOP AT evpdir
        WHERE ( srtza = 'A' OR srtza = 'P' ).
        rx-key-pernr = pernr.
        rx-key-seqno = evpdir-seqnr.
        rp-imp-c2-ur.
        subrc = rp-imp-ur-subrc.
        IF subrc = 0.
*        читаешь таблицу RT
        ENDIF.
     ENDIF.
  ENDIF.