Add a New line to ALV Grid control

Question

Hi experts,
   My requirement is after filling ALV grid, user will select a + button from the menu, I need to add a new line next to the selected ALV line (Like in a table control).  Does it posible to do this? If can any body tell me how I can do this.
Regards,
Venkat.

Answer 1

Hi Venkat...
I have tried this and it worked...
Just copy paste this program...
Note : U will have to create a new PF status for this... and give the Function code as given in my program... then only it will work...
*& Report  Z_ALV_TRAINING_LIST_EVENTS
REPORT  Z_ALV_TRAINING_LIST_EVENTS.
Tables  *************
TABLES : T001.
Type Pools Used  **********
TYPE-POOLS : SLIS.
Types Declared  **********
Internal Tables Declare  ************
DATA : IT_company    TYPE STANDARD TABLE OF T001 INITIAL SIZE 0 WITH HEADER LINE,
       IT_FIELD_CAT  TYPE SLIS_T_FIELDCAT_ALV,
       it_alv_event  type SLIS_T_EVENT.
Select Data  ***********
start-of-selection.
SELECT * FROM T001 INTO TABLE IT_company.
Make Field Catalog  ******
PERFORM MAKE_FIELD_CATALOG.
get evente  *****
perform get_alv_events.
Display ALV  *********
end-of-selection.
PERFORM DISPLAY_ALV_LIST.
*&      Form  make_field_catalog
      text
-->  p1        text
<--  p2        text
FORM MAKE_FIELD_CATALOG .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
  I_PROGRAM_NAME               =
  I_INTERNAL_TABNAME           =
   I_STRUCTURE_NAME             = 'T001'
  I_CLIENT_NEVER_DISPLAY       = 'X'
  I_INCLNAME                   =
  I_BYPASSING_BUFFER           =
  I_BUFFER_ACTIVE              =
  CHANGING
    CT_FIELDCAT                  = it_field_cat
EXCEPTIONS
  INCONSISTENT_INTERFACE       = 1
  PROGRAM_ERROR                = 2
  OTHERS                       = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " make_field_catalog
*&      Form  display_alv_list
      text
-->  p1        text
<--  p2        text
FORM DISPLAY_ALV_LIST .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                = ' '
   I_CALLBACK_PROGRAM             = sy-repid
    I_CALLBACK_PF_STATUS_SET       = 'SET_MY_PF_STATUS'
  I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME               =
  IS_LAYOUT                      = fl_layout
   IT_FIELDCAT                    = it_field_cat[]
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
   I_SAVE                         = 'X'
  IS_VARIANT                     = '/TEST_VV'
    IT_EVENTS                      = it_alv_event
  IT_EVENT_EXIT                  =
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  IR_SALV_LIST_ADAPTER           =
  IT_EXCEPT_QINFO                =
  I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
  TABLES
    T_OUTTAB                       = it_company
EXCEPTIONS
  PROGRAM_ERROR                  = 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.
ENDFORM.                    " display_alv_list
*&      Form  get_alv_events
      text
-->  p1        text
<--  p2        text
FORM get_alv_events .
data : wa type slis_alv_event.
  wa-name = 'USER_COMMAND'.
  wa-form = 'SUB_MY_PF_EVENT'.
  append wa to it_alv_event.
ENDFORM.                    " get_alv_events
*&      Form  sub_my_pf_event
      text
-->  p1        text
<--  p2        text
FORM sub_my_pf_event using p_comm type sy-ucomm p_sEL_FIELD TYPE SLIS_SELFIELD.
  data : wa type t001.
  case p_comm.
    when 'BACK'.
      leave program.
    when 'EXIT'.
      leave program.
    when 'NEW'.
      clear wa.
      insert wa into it_company[] index p_sel_field-tabindex.
      PERFORM DISPLAY_ALV_LIST.
  endcase.
ENDFORM.                    " sub_my_pf_event
*&      Form  SET_MY_PF_STATUS
      text
-->  p1        text
<--  p2        text
FORM SET_MY_PF_STATUS USING    p_rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZALV_STATUS'.
ENDFORM.                    " SET_MY_PF_STATUS
Plz award points if this was helpful....