How to create an interactive alv report in which some parameters

Question

hi all,
i want to create an interactive alv report in which some parameters in selection screen
& when fill those & press f8 then an alv list display will show & when user double click on
any row then those contents get shown in header details of module pool program  which call by
  tcode mentioned in same alv .And same an interactive alv report used for change & display.
please help me give me some code same as  required above.
ketan
abap consultant.
Edited by: ketan pande on Feb 14, 2009 6:09 AM

Answer 1

Hi Ketan,
Please find Sample Code.
TYPE-POOLS:slis.
DATA:
  w_carrid TYPE scarr-carrid,
  it_fieldcat TYPE slis_t_fieldcat_alv,
  fs_fieldcat LIKE LINE OF it_fieldcat,
  it_eventcat TYPE slis_t_event,
  fs_eventcat LIKE LINE OF it_fieldcat.
DATA:
  t_spfli LIKE STANDARD TABLE OF spfli,
  fs_spfli LIKE LINE OF t_spfli,
  t_sflight LIKE STANDARD TABLE OF sflight,
  fs_sflight LIKE LINE OF t_sflight.
SELECT-OPTIONS:
  s_carrid FOR w_carrid.
START-OF-SELECTION.
  SELECT * FROM spfli INTO TABLE t_spfli WHERE carrid IN s_carrid.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program      = sy-repid
      i_callback_user_command = 'PICK'
      i_structure_name        = 'SPFLI'
    TABLES
      t_outtab                = t_spfli
    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.
*&      Form  PICK
FORM pick USING command LIKE sy-ucomm
                selfield TYPE slis_selfield.
  READ TABLE t_spfli INTO fs_spfli INDEX selfield-tabindex.
  CASE command.
    WHEN '&IC1'.
      SELECT * FROM sflight
      INTO TABLE t_sflight
     WHERE carrid = fs_spfli-carrid
       and connid = fs_spfli-connid.
      CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
         i_program_name               = sy-repid
       I_INTERNAL_TABNAME           =
         i_structure_name             = 'SFLIGHT'
       I_CLIENT_NEVER_DISPLAY       = 'X'
       I_INCLNAME                   =
       I_BYPASSING_BUFFER           =
       I_BUFFER_ACTIVE              =
        CHANGING
          ct_fieldcat                  = it_fieldcat
       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.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
       I_INTERFACE_CHECK              = ' '
       I_BYPASSING_BUFFER             =
       I_BUFFER_ACTIVE                = ' '
         i_callback_program             = sy-repid
       I_CALLBACK_PF_STATUS_SET       = ' '
       I_CALLBACK_USER_COMMAND        = ' '
       I_STRUCTURE_NAME               =
       IS_LAYOUT                      =
         it_fieldcat                    = it_fieldcat
       IT_EXCLUDING                   =
       IT_SPECIAL_GROUPS              =
       IT_SORT                        =
       IT_FILTER                      =
       IS_SEL_HIDE                    =
       I_DEFAULT                      = 'X'
       I_SAVE                         = ' '
       IS_VARIANT                     =
        it_events                      = it_eventcat
       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                       = t_sflight
      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.
  ENDCASE.
ENDFORM.                    "pick
Hope this will Be Helpful
Thanks
Kalyan