PARAMETERS: pac type i OBLIGATORY DEFAULT 100.
data: lt_product TYPE STANDARD TABLE OF comm_product,lt_name1 TYPE STANDARD TABLE OF comm_product-upname,lt_name2 TYPE STANDARD TABLE OF comm_product-upname,lv_start TYPE i,lv_end type i.data: ll type SORTED TABLE OF string WITH UNIQUE KEY table_line.FORM solution1.GET RUN TIME FIELD lv_start.SELECT * INTO TABLE lt_product FROM comm_product.LOOP AT lt_product ASSIGNING FIELD-SYMBOL(<product>).INSERT <product>-upname INTO TABLE lt_name1.ENDLOOP.GET RUN TIME FIELD lv_end.lv_end = lv_end - lv_start.WRITE: / 'Solution1: ' , lv_end COLOR COL_NEGATIVE.
ENDFORM.FORM solution2.DATA:lv_cursor TYPE cursor,lt_selection TYPE STANDARD TABLE OF comm_product.GET RUN TIME FIELD lv_start.OPEN CURSOR lv_cursor FORSELECT *FROM comm_product.DO.FETCH NEXT CURSOR lv_cursorINTO TABLE lt_selectionPACKAGE SIZE pac.IF sy-subrc NE 0.CLOSE CURSOR lv_cursor.EXIT.ENDIF.LOOP AT lt_selection ASSIGNING FIELD-SYMBOL(<product2>).INSERT <product2>-upname INTO TABLE lt_name2.ENDLOOP.CLEAR: lt_selection.FREE: lt_selection. ENDDO.GET RUN TIME FIELD lv_end.lv_end = lv_end - lv_start.WRITE: / 'Solution2: ' , lv_end COLOR COL_NEGATIVE.
ENDFORM.START-OF-SELECTION.PERFORM solution1.PERFORM solution2.ASSERT lt_name1 = lt_name2.