Problem in placing checkboxes in output in grid display

Question

hi experts,
I not getting checkboxes when i am using the concept of dynamic internal table and oops concept.and i am not getting how to pass data from dynamic internal table to standard internal table and i have searched in forums i got some solutions but i tried out with those solution but i havent got the output with checkboxes. so i am pasting the below code.so kindly help me in this regard.
the functionality of below code is to copy tables across clients.for this i have created two containers in same layout i.e.one for source client details and other for target client details.
TYPE-POOLS *
TYPE-POOLS: slis.
*-- Tables Declaration
TABLES:  dd02l, t000.
*-- Constants Declaration
CONSTANTS: lc_z   TYPE char1  VALUE 'Z',
           lc_y   TYPE char1  VALUE 'Y'.
*--Internal table and Work Area Declaration
DATA: lines LIKE sy-dbcnt VALUE 0.
DATA: icursor TYPE cursor.
*DATA: icursor1 TYPE cursor.
DATA: lv_count TYPE i.
DATA: lv_table_var1  TYPE char1.
DATA: lv_ans TYPE char1.
DATA : gd_tabname  TYPE tabname.
*field catalog for source client
DATA: c_cont1 TYPE REF TO cl_gui_custom_container,
c_alv1 TYPE REF TO cl_gui_alv_grid,
it_fieldcat1 TYPE lvc_t_fcat ,
ty_fieldcat1 TYPE lvc_s_fcat ,
struc_desc1   TYPE REF TO cl_abap_structdescr,
ls_fieldcatalogue1 TYPE slis_fieldcat_alv,
lt_fieldcatalogue1 TYPE slis_t_fieldcat_alv,
l_structure1   TYPE REF TO data,
l_table1    TYPE REF TO data.
check boxes for source client.
for check boxes.
class lcl_event_receiver definition deferred.  "for event handling
DATA: ok_code LIKE sy-ucomm,
      save_ok LIKE sy-ucomm,
g_event_receiver TYPE REF TO lcl_event_receiver,
gs_layout TYPE lvc_s_layo,
      g_max TYPE i VALUE 100.
types: begin of gs_outtab.
types: checkbox type c,                "field for checkbox
t_name TYPE tabname,
t_ref TYPE REF TO data.
*include structure itab.
types: celltab type lvc_t_styl.        "field to switch editability
types: end of gs_outtab.
data: gt_outtab type gs_outtab occurs 0 with header line,
wa type gs_outtab.
LOCAL CLASSES
This local class only handles event DOUBLE_CLICK.
Wenn the user double clicks on a checkbox cell the status of
this cell is switched from editable to not editable and vice versa.
class lcl_event_receiver definition.
public section.
methods: catch_doubleclick
         for event double_click of cl_gui_alv_grid
         importing
            e_column
            es_row_no
            sender.
endclass.
class lcl_event_receiver implementation.
method catch_doubleclick.
  data: ls_outtab type gs_outtab,
         ls_celltab type lvc_s_styl.
           if e_column-fieldname ne 'CHECKBOX'.
    exit.
  endif.
  read table gt_outtab into ls_outtab index es_row_no-row_id.
The loop is only needed if there are other columns that
use checkboxes. At this point the loop could be
replaced by a READ of the first line of CELLTAB.
      loop at ls_outtab-celltab into ls_celltab.
        if ls_celltab-fieldname eq 'CHECKBOX'.
§B4.Switch the style to dis- or enable a cell for input
         if ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
          ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.
         else.
          ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
         endif.
         modify ls_outtab-celltab from ls_celltab.
        endif.
      endloop.
      modify gt_outtab from ls_outtab index es_row_no-row_id.
    call method sender->refresh_table_display.
endmethod.
endclass.
*field catalog for target client
DATA: c_cont2 TYPE REF TO cl_gui_custom_container,
c_alv2 TYPE REF TO cl_gui_alv_grid,
it_fieldcat2 TYPE lvc_t_fcat ,
ty_fieldcat2 TYPE lvc_s_fcat ,
struc_desc2   TYPE REF TO cl_abap_structdescr,
ls_fieldcatalogue2 TYPE slis_fieldcat_alv,
lt_fieldcatalogue2 TYPE slis_t_fieldcat_alv,
l_structure2   TYPE REF TO data,
l_table2    TYPE REF TO data.
*for source client
TYPES: BEGIN OF itab,
        t_name TYPE tabname,
        t_ref TYPE REF TO data,
END OF itab.
*for target client
TYPES: BEGIN OF itab1,
         t_name1 TYPE tabname,
         t_ref1 TYPE REF TO data,
END OF itab1.
*-- Field Symbol declaration for Dynamic Internal Table for source client
FIELD-SYMBOLS:  TYPE ANY.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_table    LIKE dd02l-tabname,
            p_mdt_fm LIKE t000-mandt DEFAULT sy-mandt,
            p_mdt_to LIKE t000-mandt DEFAULT '910'.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON p_table.
  lv_table_var1  = p_table+0(1).
*-- Validation for Standard tables
  IF ( lv_table_var1 NE lc_z ) AND ( lv_table_var1 NE lc_y ).
    MESSAGE e001(00)  WITH text-002.
  ENDIF.
*-- Start of Selection
START-OF-SELECTION.
for source client----
  DATA itab2 TYPE itab.
  DATA t_ref1 TYPE REF TO data.
  itab2-t_name = p_table.
for target client----
  DATA itab3 TYPE itab1.
  DATA t_ref2 TYPE REF TO data.
  itab3-t_name1 = p_table.
*-- Create Dynamic Internal table for source client
  CREATE DATA itab2-t_ref TYPE TABLE OF (itab2-t_name) .
  ASSIGN itab2-t_ref->* TO  0.
        CLOSE CURSOR icursor.
        EXIT.
      ENDIF.
*-- Close the cursor
      CALL FUNCTION 'DB_COMMIT'.
    ENDDO.
ENDIF.
  CALL SCREEN 3000.
*&      Module  STATUS_3000  OUTPUT
      text
MODULE status_3000 OUTPUT.
  SET PF-STATUS 'ZTESTMENU'.
SET TITLEBAR 'xxx'.
For Source client
*for check boxes.
if c_cont1 is initial.
    perform create_and_init_alv.
  endif.
IF c_alv2 IS INITIAL.
    CREATE OBJECT c_cont2
      EXPORTING
        container_name              = 'CONTAINER_TARGET'.
    IF sy-subrc = 0.
      CREATE OBJECT c_alv2
        EXPORTING
          i_parent          = c_cont2.
    ENDIF.
    IF sy-subrc EQ 0.
      PERFORM field_cat2.
    ENDIF.
    CALL METHOD c_alv2->set_table_for_first_display
EXPORTING
   i_buffer_active               =
   i_bypassing_buffer            =
   i_consistency_check           =
   i_structure_name              =
   is_variant                    =
   i_save                        =
   i_default                     = 'x'
   is_layout                     =
   is_print                      =
   it_special_groups             =
   it_toolbar_excluding          =
   it_hyperlink                  =
   it_alv_graphics               =
   it_except_qinfo               =
   ir_salv_adapter               =
      CHANGING
        it_outtab                     =
        it_fieldcatalog               = it_fieldcat2
   it_sort                       =
   it_filter                     =
EXCEPTIONS
   invalid_parameter_combination = 1
   program_error                 = 2
   too_many_lines                = 3
   others                        = 4
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
ENDMODULE.                 " STATUS_3000  OUTPUT
*&      Module  USER_COMMAND_3000  INPUT
      text
MODULE user_command_3000 INPUT.
save_ok = ok_code.
  clear ok_code.
  case save_ok.
    WHEN 'BACK'.
      LEAVE PROGRAM.
       when 'EXIT'.
     perform exit_program.
    when 'SELECT'.
      perform select_all_entries changing gt_outtab[].
    when 'DESELECT'.
      perform deselect_all_entries changing gt_outtab[].
    when 'RESET'.
      perform reset_selected_entries changing gt_outtab[].
   when 'SWITCH'.
     perform switch_activation changing gt_outtab[].
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_3000  INPUT
*&      Form  field_cat1
      text
-->  p1        text
<--  p2        text
FORM field_cat1 .
Dynamic creation of a structure
  CREATE DATA l_structure1 TYPE (p_table).
  ASSIGN l_structure1->* TO .
Fields Structure
  struc_desc1 ?= cl_abap_typedescr=>describe_by_data( .
  Build Fieldcatalog
    ty_fieldcat1-checkbox = 'X'.
    ty_fieldcat1-fieldname = -name.
    ty_fieldcat1-ref_table = p_table.
    APPEND ty_fieldcat1 TO it_fieldcat1.
  Build Fieldcatalog
    ls_fieldcatalogue1-fieldname = create_dynamic_table
    EXPORTING
   i_style_table             =
      it_fieldcatalog           = it_fieldcat1
   i_length_in_byte          =
    IMPORTING
      ep_table                  = l_table1
   e_style_fname             =
EXCEPTIONS
   generate_subpool_dir_full = 1
   others                    = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  ASSIGN l_table1->* TO  = gt_outtab[].
Read data from the table selected.
  SELECT * FROM (p_table)
     CLIENT SPECIFIED
     INTO CORRESPONDING FIELDS OF TABLE  TO wa.
  INSERT wa into table  gt_outtab.
ENDLOOP.
ENDFORM.                    " field_cat1
*&      Form  field_cat2
      text
-->  p1        text
<--  p2        text
FORM field_cat2 .
  CREATE DATA l_structure2 TYPE (p_table).
  ASSIGN l_structure2->* TO .
Fields Structure
  struc_desc2 ?= cl_abap_typedescr=>describe_by_data( .
  Build Fieldcatalog
    ty_fieldcat2-fieldname = -name.
    ty_fieldcat2-ref_table = p_table.
    APPEND ty_fieldcat2 TO it_fieldcat2.
  Build Fieldcatalog
    ls_fieldcatalogue2-fieldname = create_dynamic_table
    EXPORTING
   i_style_table             =
      it_fieldcatalog           = it_fieldcat2
   i_length_in_byte          =
    IMPORTING
      ep_table                  = l_table2
   e_style_fname             =
EXCEPTIONS
   generate_subpool_dir_full = 1
   others                    = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  ASSIGN l_table2->* TO .
Read data from the table selected.
  SELECT * FROM (p_table) CLIENT SPECIFIED
     INTO CORRESPONDING FIELDS OF TABLE
               WHERE mandt =  p_mdt_to.
ENDFORM.                    " field_cat2
*&      Form  create_and_init_alv
      text
-->  p1        text
<--  p2        text
form create_and_init_alv .
data: lt_exclude type ui_functions.
  create object c_cont1
         exporting container_name = 'CONTAINER_SOURCE'.
  create object c_alv1
         exporting i_parent = c_cont1.
PERFORM field_cat1.
perform exclude_tb_functions changing lt_exclude.
perform build_data.
gs_layout-stylefname = 'CELLTAB'.
  call method c_alv1->set_table_for_first_display
       exporting is_layout             = gs_layout
                 it_toolbar_excluding  = lt_exclude
       changing  it_fieldcatalog       = it_fieldcat1
                 it_outtab             = gt_outtab[].
  create object g_event_receiver.
  set handler g_event_receiver->catch_doubleclick for c_alv1.
Set editable cells to ready for input initially
  call method c_alv1->set_ready_for_input
   exporting
    i_ready_for_input = 1.
endform.                    " create_and_init_alv
*&      Form  exclude_tb_functions
      text
     <--P_LT_EXCLUDE  text
form exclude_tb_functions changing pt_exclude type ui_functions.
  data ls_exclude type ui_func.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
  append ls_exclude to pt_exclude.
endform.                    " exclude_tb_functions
*&      Form  build_data
      text
-->  p1        text
<--  p2        text
form build_data .
data:ls_celltab type lvc_s_styl,
        lt_celltab type lvc_t_styl,
        l_index type i.
*-- get the number of entries in table
  SELECT COUNT(*) FROM dd03l INTO lv_count
                            WHERE tabname   =  p_table
                              AND fieldname = 'MANDT'.
Check MANDT field the the table, if not exists through an error message
  IF lv_count = 0.
    MESSAGE i000(8i) WITH text-001 space space.
    EXIT.
  ELSE.
*-- Delete the Table Entries in the target system
    DELETE FROM (p_table) CLIENT SPECIFIED
          WHERE mandt = p_mdt_to.
    COMMIT WORK.
*-- Open cursor
    OPEN CURSOR WITH HOLD icursor FOR
      SELECT * FROM (p_table) CLIENT SPECIFIED
              WHERE mandt = p_mdt_fm.
    IF sy-subrc .
   move-corresponding <tab1> to gt_outtab.
  if gt_outtab-connid eq '400'.
    gt_outtab-checkbox = 'X'.
  endif.
   append gt_outtab.
endloop.
ls_celltab-fieldname = 'CHECKBOX'.
ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
loop at gt_outtab.
   l_index = sy-tabix.
   refresh lt_celltab.
   ls_celltab-fieldname = 'CHECKBOX'.
   ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
   insert ls_celltab into table lt_celltab.
   insert lines of lt_celltab into table gt_outtab-celltab.
   modify gt_outtab index l_index.
endloop.
endform.                    " build_data
*&      Form  select_all_entries
      text
     <--P_GT_OUTTAB  text
form select_all_entries changing pt_outtab type standard table.
  data: ls_outtab type gs_outtab.
  data: l_valid type c,
        l_locked type c.
*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
      you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
  call method c_alv1->check_changed_data
              importing
                 e_valid = l_valid.
  if l_valid eq 'X'.
    loop at pt_outtab into ls_outtab.
      perform check_lock using    ls_outtab
                         changing l_locked.
      if l_locked is initial
         and not ls_outtab-checkbox eq '-'.
        ls_outtab-checkbox = 'X'.
      endif.
      modify pt_outtab from ls_outtab.
    endloop.
    call method c_alv1->refresh_table_display.
  endif.
endform.                               " select_all_entries
*&      Form  deselect_all_entries
      text
     <--P_GT_OUTTAB[]  text
form deselect_all_entries changing pt_outtab type standard table.
  data: ls_outtab type gs_outtab.
  data: l_valid type c,
        l_locked type c.
*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
      you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
  call method c_alv1->check_changed_data
              importing
                 e_valid = l_valid.
  if l_valid eq 'X'.
    loop at pt_outtab into ls_outtab.
      perform check_lock using    ls_outtab
                       changing l_locked.
      if l_locked is initial
         and not ls_outtab-checkbox eq '-'.
        ls_outtab-checkbox = ' '.
      endif.
      modify pt_outtab from ls_outtab.
    endloop.
    call method c_alv1->refresh_table_display.
  endif.
endform.                               " deselect_all_entries
*&      Form  reset_selected_entries
      text
     <--P_GT_OUTTAB[]  text
form reset_selected_entries changing pt_outtab type standard table.
  data: ls_outtab type gs_outtab.
  data: l_valid type c.
*§A4b. Before you set, (b)reset or evaluate checkboxes,
     you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
  call method c_alv1->check_changed_data
              importing
                 e_valid = l_valid.
  if l_valid eq 'X'.
    loop at pt_outtab into ls_outtab.
      if     not ls_outtab-checkbox is initial
         and not ls_outtab-checkbox eq '-'.
        clear ls_outtab.
        modify pt_outtab from ls_outtab.
      endif.
    endloop.
    call method c_alv1->refresh_table_display.
  endif.
endform.                               " reset_selected_entries
*&      Form  check_lock
      text
     -->P_LS_OUTTAB  text
     <--P_L_LOCKED  text
form check_lock using    ps_outtab type gs_outtab
                changing p_locked.
  data ls_celltab type lvc_s_styl.
  loop at ps_outtab-celltab into ls_celltab.
    if ls_celltab-fieldname = 'CHECKBOX'.
      if ls_celltab-style eq cl_gui_alv_grid=>mc_style_disabled.
        p_locked = 'X'.
      else.
        p_locked = space.
      endif.
    endif.
  endloop.
endform.                               " check_lock
and when i am running this code its going for runtime.i know the cause also as the data from dynamic internal table is not properly moved to standard internal.but i am not getting how to do this.please can u help out in this regard with code.
thank u.
soham

Answer 1

hi experts,
I not getting checkboxes when i am using the concept of dynamic internal table and oops concept.and i am not getting how to pass data from dynamic internal table to standard internal table and i have searched in forums i got some solutions but i tried out with those solution but i havent got the output with checkboxes. so i am pasting the below code.so kindly help me in this regard.
the functionality of below code is to copy tables across clients.for this i have created two containers in same layout i.e.one for source client details and other for target client details.
TYPE-POOLS *
TYPE-POOLS: slis.
*-- Tables Declaration
TABLES:  dd02l, t000.
*-- Constants Declaration
CONSTANTS: lc_z   TYPE char1  VALUE 'Z',
           lc_y   TYPE char1  VALUE 'Y'.
*--Internal table and Work Area Declaration
DATA: lines LIKE sy-dbcnt VALUE 0.
DATA: icursor TYPE cursor.
*DATA: icursor1 TYPE cursor.
DATA: lv_count TYPE i.
DATA: lv_table_var1  TYPE char1.
DATA: lv_ans TYPE char1.
DATA : gd_tabname  TYPE tabname.
*field catalog for source client
DATA: c_cont1 TYPE REF TO cl_gui_custom_container,
c_alv1 TYPE REF TO cl_gui_alv_grid,
it_fieldcat1 TYPE lvc_t_fcat ,
ty_fieldcat1 TYPE lvc_s_fcat ,
struc_desc1   TYPE REF TO cl_abap_structdescr,
ls_fieldcatalogue1 TYPE slis_fieldcat_alv,
lt_fieldcatalogue1 TYPE slis_t_fieldcat_alv,
l_structure1   TYPE REF TO data,
l_table1    TYPE REF TO data.
check boxes for source client.
for check boxes.
class lcl_event_receiver definition deferred.  "for event handling
DATA: ok_code LIKE sy-ucomm,
      save_ok LIKE sy-ucomm,
g_event_receiver TYPE REF TO lcl_event_receiver,
gs_layout TYPE lvc_s_layo,
      g_max TYPE i VALUE 100.
types: begin of gs_outtab.
types: checkbox type c,                "field for checkbox
t_name TYPE tabname,
t_ref TYPE REF TO data.
*include structure itab.
types: celltab type lvc_t_styl.        "field to switch editability
types: end of gs_outtab.
data: gt_outtab type gs_outtab occurs 0 with header line,
wa type gs_outtab.
LOCAL CLASSES
This local class only handles event DOUBLE_CLICK.
Wenn the user double clicks on a checkbox cell the status of
this cell is switched from editable to not editable and vice versa.
class lcl_event_receiver definition.
public section.
methods: catch_doubleclick
         for event double_click of cl_gui_alv_grid
         importing
            e_column
            es_row_no
            sender.
endclass.
class lcl_event_receiver implementation.
method catch_doubleclick.
  data: ls_outtab type gs_outtab,
         ls_celltab type lvc_s_styl.
           if e_column-fieldname ne 'CHECKBOX'.
    exit.
  endif.
  read table gt_outtab into ls_outtab index es_row_no-row_id.
The loop is only needed if there are other columns that
use checkboxes. At this point the loop could be
replaced by a READ of the first line of CELLTAB.
      loop at ls_outtab-celltab into ls_celltab.
        if ls_celltab-fieldname eq 'CHECKBOX'.
§B4.Switch the style to dis- or enable a cell for input
         if ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
          ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.
         else.
          ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
         endif.
         modify ls_outtab-celltab from ls_celltab.
        endif.
      endloop.
      modify gt_outtab from ls_outtab index es_row_no-row_id.
    call method sender->refresh_table_display.
endmethod.
endclass.
*field catalog for target client
DATA: c_cont2 TYPE REF TO cl_gui_custom_container,
c_alv2 TYPE REF TO cl_gui_alv_grid,
it_fieldcat2 TYPE lvc_t_fcat ,
ty_fieldcat2 TYPE lvc_s_fcat ,
struc_desc2   TYPE REF TO cl_abap_structdescr,
ls_fieldcatalogue2 TYPE slis_fieldcat_alv,
lt_fieldcatalogue2 TYPE slis_t_fieldcat_alv,
l_structure2   TYPE REF TO data,
l_table2    TYPE REF TO data.
*for source client
TYPES: BEGIN OF itab,
        t_name TYPE tabname,
        t_ref TYPE REF TO data,
END OF itab.
*for target client
TYPES: BEGIN OF itab1,
         t_name1 TYPE tabname,
         t_ref1 TYPE REF TO data,
END OF itab1.
*-- Field Symbol declaration for Dynamic Internal Table for source client
FIELD-SYMBOLS:  TYPE ANY.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_table    LIKE dd02l-tabname,
            p_mdt_fm LIKE t000-mandt DEFAULT sy-mandt,
            p_mdt_to LIKE t000-mandt DEFAULT '910'.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON p_table.
  lv_table_var1  = p_table+0(1).
*-- Validation for Standard tables
  IF ( lv_table_var1 NE lc_z ) AND ( lv_table_var1 NE lc_y ).
    MESSAGE e001(00)  WITH text-002.
  ENDIF.
*-- Start of Selection
START-OF-SELECTION.
for source client----
  DATA itab2 TYPE itab.
  DATA t_ref1 TYPE REF TO data.
  itab2-t_name = p_table.
for target client----
  DATA itab3 TYPE itab1.
  DATA t_ref2 TYPE REF TO data.
  itab3-t_name1 = p_table.
*-- Create Dynamic Internal table for source client
  CREATE DATA itab2-t_ref TYPE TABLE OF (itab2-t_name) .
  ASSIGN itab2-t_ref->* TO  0.
        CLOSE CURSOR icursor.
        EXIT.
      ENDIF.
*-- Close the cursor
      CALL FUNCTION 'DB_COMMIT'.
    ENDDO.
ENDIF.
  CALL SCREEN 3000.
*&      Module  STATUS_3000  OUTPUT
      text
MODULE status_3000 OUTPUT.
  SET PF-STATUS 'ZTESTMENU'.
SET TITLEBAR 'xxx'.
For Source client
*for check boxes.
if c_cont1 is initial.
    perform create_and_init_alv.
  endif.
IF c_alv2 IS INITIAL.
    CREATE OBJECT c_cont2
      EXPORTING
        container_name              = 'CONTAINER_TARGET'.
    IF sy-subrc = 0.
      CREATE OBJECT c_alv2
        EXPORTING
          i_parent          = c_cont2.
    ENDIF.
    IF sy-subrc EQ 0.
      PERFORM field_cat2.
    ENDIF.
    CALL METHOD c_alv2->set_table_for_first_display
EXPORTING
   i_buffer_active               =
   i_bypassing_buffer            =
   i_consistency_check           =
   i_structure_name              =
   is_variant                    =
   i_save                        =
   i_default                     = 'x'
   is_layout                     =
   is_print                      =
   it_special_groups             =
   it_toolbar_excluding          =
   it_hyperlink                  =
   it_alv_graphics               =
   it_except_qinfo               =
   ir_salv_adapter               =
      CHANGING
        it_outtab                     =
        it_fieldcatalog               = it_fieldcat2
   it_sort                       =
   it_filter                     =
EXCEPTIONS
   invalid_parameter_combination = 1
   program_error                 = 2
   too_many_lines                = 3
   others                        = 4
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
ENDMODULE.                 " STATUS_3000  OUTPUT
*&      Module  USER_COMMAND_3000  INPUT
      text
MODULE user_command_3000 INPUT.
save_ok = ok_code.
  clear ok_code.
  case save_ok.
    WHEN 'BACK'.
      LEAVE PROGRAM.
       when 'EXIT'.
     perform exit_program.
    when 'SELECT'.
      perform select_all_entries changing gt_outtab[].
    when 'DESELECT'.
      perform deselect_all_entries changing gt_outtab[].
    when 'RESET'.
      perform reset_selected_entries changing gt_outtab[].
   when 'SWITCH'.
     perform switch_activation changing gt_outtab[].
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_3000  INPUT
*&      Form  field_cat1
      text
-->  p1        text
<--  p2        text
FORM field_cat1 .
Dynamic creation of a structure
  CREATE DATA l_structure1 TYPE (p_table).
  ASSIGN l_structure1->* TO .
Fields Structure
  struc_desc1 ?= cl_abap_typedescr=>describe_by_data( .
  Build Fieldcatalog
    ty_fieldcat1-checkbox = 'X'.
    ty_fieldcat1-fieldname = -name.
    ty_fieldcat1-ref_table = p_table.
    APPEND ty_fieldcat1 TO it_fieldcat1.
  Build Fieldcatalog
    ls_fieldcatalogue1-fieldname = create_dynamic_table
    EXPORTING
   i_style_table             =
      it_fieldcatalog           = it_fieldcat1
   i_length_in_byte          =
    IMPORTING
      ep_table                  = l_table1
   e_style_fname             =
EXCEPTIONS
   generate_subpool_dir_full = 1
   others                    = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  ASSIGN l_table1->* TO  = gt_outtab[].
Read data from the table selected.
  SELECT * FROM (p_table)
     CLIENT SPECIFIED
     INTO CORRESPONDING FIELDS OF TABLE  TO wa.
  INSERT wa into table  gt_outtab.
ENDLOOP.
ENDFORM.                    " field_cat1
*&      Form  field_cat2
      text
-->  p1        text
<--  p2        text
FORM field_cat2 .
  CREATE DATA l_structure2 TYPE (p_table).
  ASSIGN l_structure2->* TO .
Fields Structure
  struc_desc2 ?= cl_abap_typedescr=>describe_by_data( .
  Build Fieldcatalog
    ty_fieldcat2-fieldname = -name.
    ty_fieldcat2-ref_table = p_table.
    APPEND ty_fieldcat2 TO it_fieldcat2.
  Build Fieldcatalog
    ls_fieldcatalogue2-fieldname = create_dynamic_table
    EXPORTING
   i_style_table             =
      it_fieldcatalog           = it_fieldcat2
   i_length_in_byte          =
    IMPORTING
      ep_table                  = l_table2
   e_style_fname             =
EXCEPTIONS
   generate_subpool_dir_full = 1
   others                    = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  ASSIGN l_table2->* TO .
Read data from the table selected.
  SELECT * FROM (p_table) CLIENT SPECIFIED
     INTO CORRESPONDING FIELDS OF TABLE
               WHERE mandt =  p_mdt_to.
ENDFORM.                    " field_cat2
*&      Form  create_and_init_alv
      text
-->  p1        text
<--  p2        text
form create_and_init_alv .
data: lt_exclude type ui_functions.
  create object c_cont1
         exporting container_name = 'CONTAINER_SOURCE'.
  create object c_alv1
         exporting i_parent = c_cont1.
PERFORM field_cat1.
perform exclude_tb_functions changing lt_exclude.
perform build_data.
gs_layout-stylefname = 'CELLTAB'.
  call method c_alv1->set_table_for_first_display
       exporting is_layout             = gs_layout
                 it_toolbar_excluding  = lt_exclude
       changing  it_fieldcatalog       = it_fieldcat1
                 it_outtab             = gt_outtab[].
  create object g_event_receiver.
  set handler g_event_receiver->catch_doubleclick for c_alv1.
Set editable cells to ready for input initially
  call method c_alv1->set_ready_for_input
   exporting
    i_ready_for_input = 1.
endform.                    " create_and_init_alv
*&      Form  exclude_tb_functions
      text
     <--P_LT_EXCLUDE  text
form exclude_tb_functions changing pt_exclude type ui_functions.
  data ls_exclude type ui_func.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
  append ls_exclude to pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
  append ls_exclude to pt_exclude.
endform.                    " exclude_tb_functions
*&      Form  build_data
      text
-->  p1        text
<--  p2        text
form build_data .
data:ls_celltab type lvc_s_styl,
        lt_celltab type lvc_t_styl,
        l_index type i.
*-- get the number of entries in table
  SELECT COUNT(*) FROM dd03l INTO lv_count
                            WHERE tabname   =  p_table
                              AND fieldname = 'MANDT'.
Check MANDT field the the table, if not exists through an error message
  IF lv_count = 0.
    MESSAGE i000(8i) WITH text-001 space space.
    EXIT.
  ELSE.
*-- Delete the Table Entries in the target system
    DELETE FROM (p_table) CLIENT SPECIFIED
          WHERE mandt = p_mdt_to.
    COMMIT WORK.
*-- Open cursor
    OPEN CURSOR WITH HOLD icursor FOR
      SELECT * FROM (p_table) CLIENT SPECIFIED
              WHERE mandt = p_mdt_fm.
    IF sy-subrc .
   move-corresponding <tab1> to gt_outtab.
  if gt_outtab-connid eq '400'.
    gt_outtab-checkbox = 'X'.
  endif.
   append gt_outtab.
endloop.
ls_celltab-fieldname = 'CHECKBOX'.
ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
loop at gt_outtab.
   l_index = sy-tabix.
   refresh lt_celltab.
   ls_celltab-fieldname = 'CHECKBOX'.
   ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
   insert ls_celltab into table lt_celltab.
   insert lines of lt_celltab into table gt_outtab-celltab.
   modify gt_outtab index l_index.
endloop.
endform.                    " build_data
*&      Form  select_all_entries
      text
     <--P_GT_OUTTAB  text
form select_all_entries changing pt_outtab type standard table.
  data: ls_outtab type gs_outtab.
  data: l_valid type c,
        l_locked type c.
*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
      you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
  call method c_alv1->check_changed_data
              importing
                 e_valid = l_valid.
  if l_valid eq 'X'.
    loop at pt_outtab into ls_outtab.
      perform check_lock using    ls_outtab
                         changing l_locked.
      if l_locked is initial
         and not ls_outtab-checkbox eq '-'.
        ls_outtab-checkbox = 'X'.
      endif.
      modify pt_outtab from ls_outtab.
    endloop.
    call method c_alv1->refresh_table_display.
  endif.
endform.                               " select_all_entries
*&      Form  deselect_all_entries
      text
     <--P_GT_OUTTAB[]  text
form deselect_all_entries changing pt_outtab type standard table.
  data: ls_outtab type gs_outtab.
  data: l_valid type c,
        l_locked type c.
*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
      you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
  call method c_alv1->check_changed_data
              importing
                 e_valid = l_valid.
  if l_valid eq 'X'.
    loop at pt_outtab into ls_outtab.
      perform check_lock using    ls_outtab
                       changing l_locked.
      if l_locked is initial
         and not ls_outtab-checkbox eq '-'.
        ls_outtab-checkbox = ' '.
      endif.
      modify pt_outtab from ls_outtab.
    endloop.
    call method c_alv1->refresh_table_display.
  endif.
endform.                               " deselect_all_entries
*&      Form  reset_selected_entries
      text
     <--P_GT_OUTTAB[]  text
form reset_selected_entries changing pt_outtab type standard table.
  data: ls_outtab type gs_outtab.
  data: l_valid type c.
*§A4b. Before you set, (b)reset or evaluate checkboxes,
     you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
  call method c_alv1->check_changed_data
              importing
                 e_valid = l_valid.
  if l_valid eq 'X'.
    loop at pt_outtab into ls_outtab.
      if     not ls_outtab-checkbox is initial
         and not ls_outtab-checkbox eq '-'.
        clear ls_outtab.
        modify pt_outtab from ls_outtab.
      endif.
    endloop.
    call method c_alv1->refresh_table_display.
  endif.
endform.                               " reset_selected_entries
*&      Form  check_lock
      text
     -->P_LS_OUTTAB  text
     <--P_L_LOCKED  text
form check_lock using    ps_outtab type gs_outtab
                changing p_locked.
  data ls_celltab type lvc_s_styl.
  loop at ps_outtab-celltab into ls_celltab.
    if ls_celltab-fieldname = 'CHECKBOX'.
      if ls_celltab-style eq cl_gui_alv_grid=>mc_style_disabled.
        p_locked = 'X'.
      else.
        p_locked = space.
      endif.
    endif.
  endloop.
endform.                               " check_lock
and when i am running this code its going for runtime.i know the cause also as the data from dynamic internal table is not properly moved to standard internal.but i am not getting how to do this.please can u help out in this regard with code.
thank u.
soham