group_by_and_loop

group_by_and_loop.abap

  SORT t_vibdmeas BY intreno meas.

  DATA l_sum_measval TYPE rebdmeasvalue VALUE 0.
  DATA ls_vibd_sum   TYPE ty_vibdmeas_sum.
  LOOP AT t_vibdmeas INTO DATA(ls_vibdmeas)
                          GROUP BY ls_vibdmeas-intreno.
    LOOP AT GROUP ls_vibdmeas INTO DATA(ls_vibdmeas_unit).
      IF ls_vibdmeas_unit-meas EQ 'A001'.
        l_sum_measval = ls_vibdmeas_unit-measvalue.
      ELSE.
        SUBTRACT ls_vibdmeas_unit-measvalue FROM l_sum_measval.
      ENDIF.
    ENDLOOP.

    ls_vibd_sum-intreno   = ls_vibdmeas-intreno.
    ls_vibd_sum-measvalue = l_sum_measval.
    ls_vibd_sum-measunit  = ls_vibdmeas-measunit. "check
    APPEND ls_vibd_sum TO t_vibdmeas_sum.

  ENDLOOP.