How to modify a row from a table?

Question

Hi experts!
I've a doubt, I need to modify a table with some information I've search, if I do the code below, my program works slowly because the tabla ITDATOS has 650 rows... so, the problem is, how can I modify this in another way?
FORM RELLENA_DATOS_GENERALES USING PERSONAL.
DATA: UNIDAD TYPE P0001-ORGEH.
DATA: TEXTO TYPE HRP1000-STEXT.
data: indice type sy-index.
  LOOP AT ITDATOS.
  indice = sy-index.
* Nombre, grupo de personal y área de personal.
    LOOP AT P0001 WHERE PERNR EQ ITDATOS-PERNR.
*      AND
*                                   BEGDA LT FECHA-HIGH AND
*                                   ENDDA GT FECHA-LOW.
* Nos quedamos con el último resgistro que existe en la fecha seleccionada por pantalla.
      ITDATOS-ENAME = P0001-ENAME.
      ITDATOS-PERSG = P0001-PERSG.
      ITDATOS-PERSK = P0001-PERSK.
    ENDLOOP.
* Dni.
    LOOP AT P0002 WHERE PERNR EQ ITDATOS-PERNR.
*      AND
*                                   BEGDA LT FECHA-HIGH AND
*                                   ENDDA GT FECHA-LOW.
* Nos quedamos con el último resgistro que existe en la fecha seleccionada por pantalla.
      ITDATOS-PERID = P0002-PERID(9).
    ENDLOOP.
    LOOP AT P0050 WHERE PERNR EQ ITDATOS-PERNR.
*      AND
*                                   BEGDA LT FECHA-HIGH AND
*                                   ENDDA GT FECHA-LOW.
* Nos quedamos con el último resgistro que existe en la fecha seleccionada por pantalla.
      ITDATOS-ZAUSW = P0050-ZAUSW.
    ENDLOOP.
* Recogemos el dato de departamento del infotipo 0001
    SELECT SINGLE ORGEH FROM PA0001 INTO UNIDAD WHERE PERNR EQ ITDATOS-PERNR.
    SELECT SINGLE STEXT FROM HRP1000 INTO TEXTO WHERE OBJID EQ UNIDAD AND
                                                      PLVAR EQ '01'   AND
                                                      LANGU EQ 'S'.
    ITDATOS-DEPART = TEXTO.
* Insertamos datos modificando tabla ITDATOS ya existente con la información específica.
    MODIFY ITDATOS index indice.
  ENDLOOP.
ENDFORM.                    " RELLENA_DATOS_GENERALES
Thanks a lot,
Regards,
Rebeca

Answer 1

Hi,
Take another internal table and work area same as the initial internal table and work area used in screen 8002 which is to be used to delete the selected data.
Take the names of the input/output fields as work_area-field_name and select column in table control as work_area-flag.
Also take a flag field of size 1 datatype character as the last field in the internal table and work area while declaration.
You have to pass a code in PBO of the screen for reading internal table into the table control.
So it reads the internal table into the table control whenever you perform any action on use command.
All you need to do is to write a code to modify the internal table form the table control while performing any user action.
At screen logic,
PROCESS BEFORE OUTPUT.
  MODULE status_8002. "for pf-status
  LOOP WITH CONTROL po_tab. "po_tab is table control
    MODULE pass_data. "to pass data into table control from internal table
  ENDLOOP.
PROCESS AFTER INPUT.
  MODULE user_command_8002. "for user command(back and exit)
  LOOP WITH CONTROL po_tab.
    MODULE modify_data. "to modify data from table control into table control
  ENDLOOP.
In PBO,
*&      Module  STATUS_8002 OUTPUT
MODULE status_8002 OUTPUT.
  SET pf-status 'ZAB_PFSTA'. " pf-status
  DATA : line_count TYPE i.
  DESCIRBE TABLE it_ekpo
  LINES line_count.
  po_tab-lines = line_count + 10.
  " to make table control scrollable
ENDMODULE.                 " STATUS_8002  OUTPUT
*&      Module  PASS_DATA  OUTPUT
MODULE pass_data OUTPUT.
  READ TABLE it_ekpo into wa_ekpo INDEX po_tab-current_line.
ENDMODULE.                 " PASS_DATA  OUTPUT
"it_ekpo is internal table and wa_ekpo is the work area
In PAI,
*&      Module  MODIFY_DATA  INPUT
MODULE MODIFY_DATA INPUT.
  MODIFY IT_EKPO INDEX PO_TAB-CURRENT_LINE FROM WA_EKPO.
  "modify records from table control into the internal table
ENDMODULE.                 " MODIFY_DATA  INPUT
Now at PAI, if you done any changes in the table control, then all these changes will be reflected to the internal table, and PBO will read the modified internal table.
Hope this solves your problem.
Thanks & Regards,
Tarun Gambhir