form fu(ave.
  DATA: lt_51av_p TYPE TABLE OF t51av_p,
        lv_begda  TYPE d.
  DATA: av_it LIKE it OCCURS 0 WITH HEADER LINE.
  DATA: avrules LIKE t51av_a OCCURS 0 WITH HEADER LINE.
  DATA: ruave_relev_key LIKE indx-srtfd VALUE 'RUAVE_RELEV_KEY'.

  FIELD-SYMBOLS: <ls_it>      TYPE pc207,
                 <ls_average> TYPE pc2avera,
                 <ls_51av_p>  TYPE t51av_p.

*  IMPORT i51av_p TO lt_51av_p FROM MEMORY ID ruave_relev_key.
    PERFORM read_it_for_averages TABLES it
                                        av_it
                                        avrules
                                        lt_51av_p.


  LOOP AT it ASSIGNING <ls_it>.
    PERFORM pos-wpbpznr USING <ls_it>-apznr.
    lv_begda = wpbp-begda.
    IF <ls_it>-abznr IS NOT INITIAL.
      PERFORM pos_abznr   USING <ls_it>-abznr.
      lv_begda = ab-obegd.
    ENDIF.
    LOOP AT lt_51av_p ASSIGNING <ls_51av_p> WHERE molga =  calcmolga
                                              AND lgart =  <ls_it>-lgart
                                              AND begda LE lv_begda
                                              AND endda GE lv_begda.
      EXIT.
    ENDLOOP.
    IF sy-subrc NE 0.
      CONTINUE.
    ENDIF.
    LOOP AT average ASSIGNING <ls_average>
                              WHERE avrule = <ls_51av_p>-avrule
                                             AND begda LE lv_begda
                                             AND endda GE lv_begda.
      IF <ls_average>-anzhl IS INITIAL.
        <ls_it>-betpe = <ls_average>-betpe.
        IF it-anzhl NE 0.
          <ls_it>-betrg = <ls_it>-betpe * <ls_it>-anzhl.
        ENDIF.
      ELSE.
        <ls_it>-anzhl = <ls_average>-anzhl.
        <ls_it>-betrg = <ls_it>-betpe * <ls_it>-anzhl.
      ENDIF.
    ENDLOOP.
  ENDLOOP.
endform.