Copy as icon on Application Tool bar

Question

Hi Friends,
My requirement is like this. There is an button as COPY on application tool bar. when u select a row and click tht button the same record is copied and inserted into a new row at the end of all the records.
Can any one explain me hw to solve this or if any one has does this can u post the code.
Thanks and I appreciate u r help.
with regards,
chaithanya.

Answer 1

Hi Chaithanya,
Please check my sample code from other thread.
WHEN 'COPY'.
      READ TABLE TC-COLS INTO COL WITH KEY SCREEN-INPUT = '1'.
      IF SY-SUBRC = 0.
        CALL SCREEN 200 STARTING AT 03 01 ENDING AT 32 4.
        IF COPY_OK = 'ENTER'.
          LOOP AT I_BINLOC INTO ZMBINLOC WHERE ZMARK = 'X'.
            ZMBINLOC-WERKS = COPY_WERKS.
            ZMBINLOC-LGORT = COPY_LGORT.
            ZMBINLOC-ZMARK = ' '.
            INSERT ZMBINLOC INTO I_BINLOC INDEX SY-TABIX.
          ENDLOOP.
          SORT I_BINLOC ASCENDING BY WERKS LGORT ZBINLOC.
          DELETE ADJACENT DUPLICATES FROM I_BINLOC.
          DESCRIBE TABLE I_BINLOC LINES TC-LINES.
        ENDIF.
      ENDIF.
Regards,
Ferry Lianto