ALV Update With REUSE_ALV

Question

Hi All...
This is my first post to SAP Developer Network.I have a problem with ALV Update.
I searched in ABAP Forums but couldn't find any info with usage of ALV with Updating Cells.
I have an internal table which has a checkbox field.Im trying to make users will select some data on the ALV and Update ITAB according to this...
How can I do this with <b>REUSE_ALV</b>? Should I use Get_Cell_Value, Modify_Cell Methods? <b>An example will be greatly appreciated.</b>
Thank You so much from now.
Umut Karabay

Answer 1

Hi,
You need to use register_edit_event to update.In PBO you need to write that coding.I have worked in similar situation.
The following is part of the coding.
INCLUDE <icon>.
DATA : o_alvgrid          TYPE REF TO cl_gui_alv_grid,
       o_dockingcontainer TYPE REF TO cl_gui_docking_container,
       i_exclude TYPE ui_functions,
       i_groups  TYPE lvc_t_sgrp,
       i_fieldcat TYPE lvc_t_fcat,
       w_layout  TYPE lvc_s_layo,
       w_variant TYPE disvariant.
CONSTANTS: c_a(1)    TYPE c VALUE 'A',     "All Layouts
      c_handle  TYPE slis_handl VALUE 'V001'. "ALV Handle
module STATUS_9001 output.
if lv_flg1 is initial.
    perform f9000_objects_create.
    call method o_alvgrid->register_edit_event
     exporting
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.
Here zzvr_pod_cp is my output table structure
    perform f9200_build_field_cat tables i_fieldcat
                             using 'zzzvr_pod_cp'.
    PERFORM f9400_layout using sy-title 'X' 'B' 'X' p_layout.
    perform f9500_display_data tables i_OUTPUT
                                i_GROUPS
                                i_EXCLUDE
                                i_FIELDCAT
                          using w_layout.
endif.
endmodule.                 " STATUS_9001  OUTPUT
In PAI,code like this.
module USER_COMMAND_9001 input.
  CASE sy-ucomm.
    when 'SALL'.
      LV_FLG1 = 'Y'.
      PERFORM USER_COMMAND_9002.
      perform f9500_display_data tables i_OUTPUT
                              i_GROUPS
                              i_EXCLUDE
                              i_FIELDCAT
                        using w_layout.
    when 'DALL'.
      LV_FLG1 = 'Y'.
      PERFORM USER_COMMAND_9003.
      ...displaying the data
     ENDCASE.
endmodule.                 " USER_COMMAND_9001  INPUT.
&----&      Form  USER_COMMAND_9002
&----   This form is used if the user press select all button
form USER_COMMAND_9002.
*Here X is my checkbox filed in output table
I_output is my output table and w-output is my
workarea for output
LOOP AT I_OUTPUT INTO W_OUTPUT.
       W_OUTPUT-X = 'X'.
       MODIFY I_OUTPUT FROM W_OUTPUT.
ENDLOOP.
endform.                    " USER_COMMAND_9002
&----&      Form  USER_COMMAND_9003
&----   This form is used if the user press deselect all *button
form USER_COMMAND_9003.
  LOOP AT I_OUTPUT INTO W_OUTPUT.
       W_OUTPUT-X = ' '.
       MODIFY I_OUTPUT FROM W_OUTPUT.
  ENDLOOP.
endform.                    " USER_COMMAND_9003
FORM f9000_objects_create.
IF cl_gui_alv_grid=>offline( ) IS INITIAL.
    CREATE OBJECT o_dockingcontainer
      EXPORTING
        ratio                       = '95'
     EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      others                      = 6.
    IF sy-subrc NE 0.
      MESSAGE i004."Error in object creation
      LEAVE LIST-PROCESSING.
    ENDIF."sy-subrc
ENDIF."cl_gui_alv_grid=>offline( )
CREATE OBJECT o_alvgrid
     EXPORTING
       i_parent = o_dockingcontainer.
ENDFORM.                    " f9000_objects_create
FORM f9200_build_field_cat TABLES p_fieldcat STRUCTURE lvc_s_fcat
                      USING value(p_structure).
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
       EXPORTING
            i_structure_name       = p_structure
       CHANGING
            ct_fieldcat            = p_fieldcat[]
       EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
IF sy-subrc <> 0.
    MESSAGE i003."Error in building the field catalogue
    LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.                    " f9200_build_field_cat
FORM f9400_layout USING    value(ptitle)
                     value(pzebra)
                     value(pmode)
                     value(pwidth)
                     value(pvariant).
w_layout-grid_title = ptitle.
w_layout-zebra      = pzebra.
w_layout-sel_mode   = pmode.
w_layout-cwidth_opt = pwidth.
w_variant-handle    = pvariant.
w_variant-report    = sy-repid.
ENDFORM.                    " f9400_layout
FORM f9500_display_data TABLES p_output
                         p_groups
                         p_exclude
                         p_fieldcat
                  USING value(p_layout).
CALL METHOD o_alvgrid->set_table_for_first_display
     EXPORTING
       is_variant                    = w_variant
       i_save                        =  c_a
       is_layout                     = p_layout
       it_special_groups             = p_groups[]
       it_toolbar_excluding          = p_exclude[]
    CHANGING
       it_outtab                     = p_output[]
       it_fieldcatalog               = p_fieldcat[]
    EXCEPTIONS
       invalid_parameter_combination = 1
       program_error                 = 2
       too_many_lines                = 3
       OTHERS                        = 4.
IF sy-subrc <> 0.
    MESSAGE i002 ."Error in Displaying
    LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.                    " f9500_display_data
FORM f9600_free_objects USING pobject
                    value(ptype)
                    value(ptext).
DATA: l_objectalv TYPE REF TO cl_gui_alv_grid.
CASE ptype.
    WHEN 'ALV'.
      l_objectalv = pobject.
      IF NOT ( l_objectalv IS INITIAL ).
        CALL METHOD l_objectalv->free
          EXCEPTIONS
            cntl_error        = 1
           cntl_system_error = 2
            OTHERS            = 3.
        CLEAR: pobject, l_objectalv.
        PERFORM f9700_error_handle USING ptext.
      ENDIF.
    WHEN 'DOCKING'.
      DATA: lobjectdock TYPE REF TO cl_gui_docking_container.
      lobjectdock = pobject.
      IF NOT ( lobjectdock IS INITIAL ).
        CALL METHOD lobjectdock->free
          EXCEPTIONS
            cntl_error        = 1
           cntl_system_error = 2
            OTHERS            = 3.
        CLEAR: pobject, lobjectdock.
        PERFORM f9700_error_handle USING ptext.
      ENDIF.
    WHEN 'CONTAINER'.
      DATA: lobjectcontainer TYPE REF TO cl_gui_container.
      lobjectcontainer = pobject.
      IF NOT ( lobjectcontainer IS INITIAL ).
        CALL METHOD lobjectcontainer->free
          EXCEPTIONS
            cntl_error        = 1
           cntl_system_error = 2
            OTHERS            = 3.
        CLEAR: pobject, lobjectcontainer.
        PERFORM f9700_error_handle USING ptext.
      ENDIF.
    WHEN OTHERS.
      sy-subrc = 1.
      PERFORM f9700_error_handle USING
                                text-e04.
ENDCASE.
ENDFORM.                    " f9600_free_objects
FORM f9700_error_handle USING    value(ptext).
IF sy-subrc NE 0.
    CALL FUNCTION 'POPUP_TO_INFORM'
         EXPORTING
              titel = text-e03
              txt2  = sy-subrc
              txt1  = ptext.
ENDIF.
endform.                  " f9700_error_handle
Hope this is useful.
Regards,
J.Jayanthi