Reg editing alv in output mode

Question

Hi,
Cud any one let me know how to edit alv ?
im using fcat-edit = 'x' option in function module approach....but even then im not able to edit columns/fields....?
how to edit columns/rows using function modules and OOPs methos in alv????
Thanks
Jay

Answer 1

Hi
i am sending you a code where the output field is edtable in the ALV oop
you can understand very easily
reward if usefull
*& Report  ZAMIT_ALV_OOP_EDITABLE
REPORT  ZAMIT_ALV_OOP_EDITABLE.
*data declaration
DATA: G_CONTROL TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      G_ALV     TYPE REF TO CL_GUI_ALV_GRID.
DATA: T_FCAT TYPE LVC_T_FCAT,
      WA_FCAT TYPE LVC_S_FCAT.
DATA: I_ZAMIT TYPE TABLE OF ZAMIT_SHIP_TAB WITH HEADER LINE.
DATA: I_INDEX TYPE I.
DATA: G_OK_CODE TYPE SY-UCOMM.
DATA: G_OK_CODE1 TYPE SY-UCOMM.
SELECT * FROM ZAMIT_SHIP_TAB INTO TABLE I_ZAMIT.
CALL SCREEN 9000.
SCREEN FORMS>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
*&      Module  STATUS_9000  OUTPUT
      text
MODULE STATUS_9000 OUTPUT.
  SET PF-STATUS 'PF9001'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9000  OUTPUT
*&      Module  CREATE_CONTROL  OUTPUT
      text
MODULE CREATE_CONTROL OUTPUT.
  CREATE OBJECT G_CONTROL
    EXPORTING
   PARENT                      =
      CONTAINER_NAME               = 'G_CUSTOM_CONTROL'
   STYLE                       =
   LIFETIME                    = lifetime_default
   REPID                       =
   DYNNR                       =
   NO_AUTODEF_PROGID_DYNNR     =
EXCEPTIONS
   CNTL_ERROR                  = 1
   CNTL_SYSTEM_ERROR           = 2
   CREATE_ERROR                = 3
   LIFETIME_ERROR              = 4
   LIFETIME_DYNPRO_DYNPRO_LINK = 5
   others                      = 6
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " CREATE_CONTROL  OUTPUT
*&      Module  CREATE_ALV  OUTPUT
      text
MODULE CREATE_ALV OUTPUT.
  CREATE OBJECT G_ALV
    EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
      I_PARENT          = G_CONTROL
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT  =
   I_NAME            =
   I_FCAT_COMPLETE   = SPACE
EXCEPTIONS
   ERROR_CNTL_CREATE = 1
   ERROR_CNTL_INIT   = 2
   ERROR_CNTL_LINK   = 3
   ERROR_DP_CREATE   = 4
   others            = 5
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " CREATE_ALV  OUTPUT
*&      Module  DISPLAY_ALV  OUTPUT
      text
MODULE DISPLAY_ALV OUTPUT.
  PERFORM PREPARE_FIELD_CATALOG.
  CALL METHOD G_ALV->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
   I_BUFFER_ACTIVE               =
   I_BYPASSING_BUFFER            =
   I_CONSISTENCY_CHECK           =
   I_STRUCTURE_NAME              = 'SFLIGHT'
   IS_VARIANT                    =
      I_SAVE                        = 'X'
   I_DEFAULT                     = 'X'
   IS_LAYOUT                     =
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
   IT_TOOLBAR_EXCLUDING          = T_TOOLBAR[]
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
   IR_SALV_ADAPTER               =
      CHANGING
        IT_OUTTAB                     = I_ZAMIT[]
        IT_FIELDCATALOG               = T_FCAT
   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.
ENDMODULE.                 " DISPLAY_ALV  OUTPUT
*&      Form  PREPARE_FIELD_CATALOG
      text
-->  p1        text
<--  p2        text
FORM PREPARE_FIELD_CATALOG .
  REFRESH T_FCAT.
  CLEAR WA_FCAT.
<b>  WA_FCAT-COL_POS = 1.
  WA_FCAT-COLTEXT = 'SHIPMENT NO.'.
  WA_FCAT-FIELDNAME = 'ZSHIP_NO'.
  WA_FCAT-REF_TABLE = 'I_ZAMIT'.
  WA_FCAT-edit       = 'X'.</b>
  APPEND WA_FCAT TO T_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-COL_POS = 2.
  WA_FCAT-COLTEXT = 'DOC TYPE'.
  WA_FCAT-FIELDNAME = 'ZDOC_TYP'.
  WA_FCAT-REF_TABLE = 'I_ZAMIT'.
WA_FCAT-KEY       = 'X'.
  APPEND WA_FCAT TO T_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-COL_POS = 3.
  WA_FCAT-COLTEXT = 'NAME_CR'.
  WA_FCAT-FIELDNAME = 'ZNAME_CR'.
  WA_FCAT-REF_TABLE = 'I_ZAMIT'.
WA_FCAT-KEY       = 'X'.
  APPEND WA_FCAT TO T_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-COL_POS = 4.
  WA_FCAT-COLTEXT = 'SHIP_TYP'.
  WA_FCAT-FIELDNAME = 'ZSHIP_TYP'.
  WA_FCAT-REF_TABLE = 'I_ZAMIT'.
WA_FCAT-KEY       = 'X'.
  APPEND WA_FCAT TO T_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-COL_POS = 5.
  WA_FCAT-COLTEXT = 'LEG_IND'.
  WA_FCAT-FIELDNAME = 'ZLEG_IND'.
  WA_FCAT-REF_TABLE = 'I_ZAMIT'.
WA_FCAT-KEY       = 'X'.
  APPEND WA_FCAT TO T_FCAT.
  CLEAR WA_FCAT.
ENDFORM.                    " PREPARE_FIELD_CATALOG
*&      Module  LEAVE  INPUT
      text
MODULE LEAVE INPUT.
  LEAVE PROGRAM.
ENDMODULE.                 " LEAVE  INPUT
*&      Module  USER_COMMAND_9000  INPUT
      text
MODULE USER_COMMAND_9000 INPUT.
  IF G_OK_CODE = 'CHANGE'.
    DATA: VALUE TYPE C,
          COL TYPE I ,
          ROW TYPE LVC_S_ROW,
          COLNO TYPE LVC_S_COL,
          ROWNO TYPE LVC_S_ROID.
    CALL METHOD G_ALV->GET_CURRENT_CELL
     IMPORTING
          E_ROW = I_INDEX
     CALL METHOD G_ALV->GET_CURRENT_CELL
       IMPORTING
         E_ROW     =
              E_VALUE   = VALUE
              E_COL     = COL
              ES_ROW_ID = ROW
              ES_COL_ID = COLNO
              ES_ROW_NO = ROWNO.
    READ TABLE I_ZAMIT  INDEX I_INDEX.
    CALL SCREEN 9001 STARTING AT 10 10 .
  ENDIF.
ENDMODULE.                 " USER_COMMAND_9000  INPUT
*&      Module  STATUS_9001  OUTPUT
      text
MODULE STATUS_9001 OUTPUT.
  SET PF-STATUS 'PF9002'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9001  OUTPUT
*&      Module  USER_COMMAND_9001  INPUT
      text
MODULE USER_COMMAND_9001 INPUT.
  IF G_OK_CODE1 = 'SAVE'.
    MODIFY ZAMIT_SHIP_TAB FROM I_ZAMIT.
    SELECT * FROM ZAMIT_SHIP_TAB INTO TABLE I_ZAMIT.
    CALL METHOD G_ALV->REFRESH_TABLE_DISPLAY.
    CALL SCREEN 9000.
  ENDIF.
ENDMODULE.                 " USER_COMMAND_9001  INPUT