Parallel cursor method
LOOP AT gt_mara ASSIGNING <gt_mara>.
CLEAR g_alv.
PERFORM alv_data_mara USING <gt_mara>
CHANGING g_alv.
* Loop at equipments (Mould id)
READ TABLE gt_equz TRANSPORTING NO FIELDS WITH KEY submt = <gt_mara>-c_matnr.
IF sy-subrc = 0.
l_equz_tabix = sy-tabix.
LOOP AT gt_equz ASSIGNING <gt_equz> FROM l_equz_tabix.
IF <gt_equz>-submt <> <gt_mara>-c_matnr.
EXIT. "Exit EQUZ LOOP.
ENDIF.
CLEAR g_alv.
PERFORM alv_data_mara USING <gt_mara>
CHANGING g_alv.
* Loop at equipments (Mould id)
READ TABLE gt_equz TRANSPORTING NO FIELDS WITH KEY submt = <gt_mara>-c_matnr.
IF sy-subrc = 0.
l_equz_tabix = sy-tabix.
LOOP AT gt_equz ASSIGNING <gt_equz> FROM l_equz_tabix.
IF <gt_equz>-submt <> <gt_mara>-c_matnr.
EXIT. "Exit EQUZ LOOP.
ENDIF.
Comments
Post a Comment