Module pool transfer of data from one table control to another

Question

Hi all,
I have been assigned to module pool object wherein i have to display table control on screen and that table control contains only 10 rows on screen for display. Now my internal table it_out has 15 rows
Describe table it_out
line v_l.     " v_l  = 15.
There is a pushbutton below table control and when i select multiple rows and click on that pushbutton it will navigate me to the next screen containing another table control on which i need to display those selected records.
Now the problem is that when i select first record and move cursor down to select last record then i am seeing only last record on next screen table control. why is it happening? please provide me with solution. For rest of cases it is working fine for example if i select first record and second record then i am seeing both these selected records on next screen table control . Only the problem arises when i tried to select first and lets say last record when scrolling down on table control.
I think the problem is with scrolling but when i loop on next screen with moved records i am seeing that 2 records are their but it is transferring only one record to next screen not the last one.
Your response is highly appreciated.
Thanks
Parag

Answer 1

Hi Parag,
Screen 8002 (with table control) --> select records --> press a button --> move to screen 8003 --> display selected records in screen 8002.
First problem that if you select first record in table control and scroll to end to select the last record, the first record in deselected.
Next problem, that if you select say 3 records in table control you want the to be displayed in another table control, the use this code.
Also take another internal table and work area same as the initial internal table and work area used in screen 8002.
On screen 8002, take a button with function code 'PROCESS', on which user clicks the screen 8003 should display selected records.
Now, use this code, its working:-
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 must have passed 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.
Remember to change the LINE SEL option in attributes of table control as MULTIPLE.
At Screen Logic:-
PROCESS BEFORE OUTPUT.
  MODULE status_8002. "for pf-status
  LOOP WITH CONTROL po_tab. "po_tab is name of table control
    MODULE pass_data. "to pass data into table control from internal table
  ENDLOOP.
PROCESS AFTER INPUT.
  MODULE user_command_8002. "to handle other user commands (back and exit)
  LOOP WITH CONTROL po_tab. "po_tab is name of table control
    MODULE modify_data. "to modify data from table control into internal table
    MODULE process_data. "to display selected records on another screen
  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
*&      Module  PROCESS_DATA  INPUT
MODULE PROCESS_DATA INPUT.
  CASE sy-ucomm.
    WHEN 'PROCESS'.
      IF wa_ekpo-flag = 'X'.
        wa_ekpo1 = wa_ekpo.
        APPEND wa_ekpo1 TO it_ekpo1. "if record selected move to another internal table
      ENDIF.
  ENDCASE.
  "modify records from table control into the internal table
ENDMODULE.                 " PROCESS_DATA  INPUT
Now if you select some records in this table control the values will retain in internal table.
Screen 8003 with selected records to be displayed in another table control.
At Screen Logic:-
PROCESS BEFORE OUTPUT.
  MODULE status_8003. "for pf-status
  LOOP WITH CONTROL po_tb. "po_tb is name of table control
    MODULE pass_data1. "to pass data into table control from internal table
  ENDLOOP.
PROCESS AFTER INPUT.
  MODULE user_command_8003. "to handle other user commands (back and exit)
  LOOP WITH CONTROL po_tb. "po_tb is name of table control
    MODULE modify_data1. "to modify data from table control into internal table
  ENDLOOP.
In PBO,
*&      Module  STATUS_8003 OUTPUT
MODULE status_8003 OUTPUT.
  SET pf-status 'ZAB_PFSTA'. " pf-status
  DATA : line_count1 TYPE i.
  DESCIRBE TABLE it_ekpo1
  LINES line_count1.
  po_tb-lines = line_count1 + 10.
  " to make table control scrollable
ENDMODULE.                 " STATUS_8003  OUTPUT
*&      Module  PASS_DATA1  OUTPUT
MODULE pass_data1 OUTPUT.
  READ TABLE it_ekpo1 into wa_ekpo1 INDEX po_tb-current_line.
ENDMODULE.                 " PASS_DATA1  OUTPUT
"it_ekpo is internal table and wa_ekpo is the work area
In PAI,
*&      Module  MODIFY_DATA1  INPUT
MODULE MODIFY_DATA1 INPUT.
  MODIFY IT_EKPO1 INDEX PO_TB-CURRENT_LINE FROM WA_EKPO1.
  "modify records from table control into the internal table
ENDMODULE.                 " MODIFY_DATA1  INPUT
Hope this solves your problem.
Thanks & Regards,
Tarun Gambhir