Simple ALV interactive list...

hi i am a fresh Learner in ABAP and i am doing a small program in simple ALV interactive report in SD module that gives me::
1. SALES and then the invoice details of one particular value i click ,when delivery document number is given.
2. Deivery and invoice details of one particular value i click ,when sales order number is given.
3. Sales and delivery details of one particular value i click , when invoice order details are given.
so i need a clear code for the above. i can input any one of the three inputs to get the correct solution.. please give me a valid solution and not useless ones..
.. please help me with the same at the earliest !!!!!!!!!!!
Message was edited by: ashokkumar ramkumar, please urgent replies...........

An Interactive ALV Report
*& Report ZZ_22038_22098_002 *
*& This is an Interactive ALV report, where on line slection we can see
*& the secondry list
REPORT ZZ_22038_22098_002 NO STANDARD PAGE HEADING LINE-SIZE 650
MESSAGE-ID ZZ_9838 .
TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
 EBELN LIKE EKKO-EBELN,
 AEDAT LIKE EKKO-AEDAT,
 BUKRS LIKE EKKO-BUKRS,
 BSART LIKE EKKO-BSART,
 LIFNR LIKE EKKO-LIFNR,
 END OF I_EKKO.
DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
 WA_EKKO TYPE I_EKKO.
*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 MATNR LIKE EKPO-MATNR,
 MENGE LIKE EKPO-MENGE,
 MEINS LIKE EKPO-MEINS,
 NETPR LIKE EKPO-NETPR,
 END OF I_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
 WA_EKPO TYPE I_EKPO .
*variable for Report ID
DATA: V_REPID LIKE SY-REPID .
*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
declaration for events table where user comand or set PF status will
be defined
DATA: V_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENT TYPE SLIS_ALV_EVENT.
declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
 I_VARIANT1 TYPE DISVARIANT,
 I_SAVE(1) TYPE C.
*PARAMETERS : p_var TYPE disvariant-variant.
*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.
INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_REPORT.
*& Form BUILD_FIELDCATLOG
 Fieldcatalog has all the field details from ekko
FORM BUILD_FIELDCATLOG.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_M = 'DATE.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-NO_OUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG
*& Form EVENT_CALL
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
EXCEPTIONS
 LIST_TYPE_WRONG = 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. "EVENT_CALL
*& Form POPULATE_EVENT
 Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'USER_COMMAND'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form data_retrieval
retreiving values from the database table ekko
FORM DATA_RETRIEVAL.
SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.
ENDFORM. "data_retrieval
*& Form bUild_listheader
 text
 -->I_LISTHEADEtext
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'.
ENDFORM. "build_listheader
*& Form display_alv_report
 text
FORM DISPLAY_ALV_REPORT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 I_GRID_TITLE = I_TITLE_EKKO
I_GRID_SETTINGS =
IS_LAYOUT = ALV_LAYOUT
 IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 i_default = 'ZLAY1'
 I_SAVE = 'A'
 is_variant = i_variant
 IT_EVENTS = V_EVENTS
 TABLES
 T_OUTTAB = IT_EKKO
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_report
*& Form TOP_OF_PAGE
 text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
 i_logo =
 I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
 text
 -->R_UCOMM text
 -->, text
 -->RS_SLEFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'.
 READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
 PERFORM BUILD_FIELDCATLOG_EKPO.
 PERFORM EVENT_CALL_EKPO.
 PERFORM POPULATE_EVENT_EKPO.
 PERFORM DATA_RETRIEVAL_EKPO.
 PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
 PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM. "user_command
*& Form BUILD_FIELDCATLOG_EKPO
 text
FORM BUILD_FIELDCATLOG_EKPO.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MENGE'.
WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_M = 'UOM'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'NETPR'.
WA_FIELDCAT-SELTEXT_M = 'PRICE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG_EKPO
*& Form event_call_ekpo
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL_EKPO.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 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. "event_call_ekpo
*& Form POPULATE_EVENT
 Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT_EKPO.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form TOP_OF_PAGE
 text
FORM F_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
 i_logo =
 I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
 text
 -->R_UCOMM text
 -->, text
 -->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.
FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.
FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
 I_GRID_TITLE = I_TITLE_EKPO
I_GRID_SETTINGS =
IS_LAYOUT =
 IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT =
 I_SAVE = 'A'
IS_VARIANT =
 IT_EVENTS = V_EVENTS
TABLES
 T_OUTTAB = IT_EKPO
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.

Similar Messages

What is the difference between interactive report and alv interactive repor

what is the difference between interactive report and alv interactive report
could u plz explain clearly.

Hi Rajesh,
interactive report or alv interactive report , both are same but except the viewer, Abap List Viewer (ALV).
Here in i am placing a sample simple ALV Interactive report.
Just double click on the customer number to go to the next screen.
*& Report ZKAL_ALV_INTERACTIVE_1                                      *
REPORT ZKAL_ALV_INTERACTIVE_1                  .
TYPE-POOLS: SLIS.
TYPES: BEGIN OF TY_KNA1,
          KUNNR TYPE KUNNR,
          NAME1 TYPE NAME1,
          ORT01 TYPE ORT01,
        END OF TY_KNA1.
TYPES: BEGIN OF TY_VBAK,
          VBELN TYPE VBELN,
          ERNAM TYPE ERNAM,
          ERDAT TYPE ERDAT,
          NETWR TYPE NETWR,
          WAERK TYPE WAERK,
         END OF TY_VBAK.
&--WORK AREA & TABLE DECLARATION--
DATA: W_KNA1 TYPE TY_KNA1.
DATA: T_KNA1 TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 1.
DATA: W_VBAK TYPE TY_VBAK.
DATA: T_VBAK TYPE STANDARD TABLE OF TY_VBAK INITIAL SIZE 1.
&--FIELDCAT TABLE & WORK AREA--
DATA: W_FCAT TYPE SLIS_FIELDCAT_ALV.
DATA: T_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: W_FCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA: T_FCAT1 TYPE SLIS_T_FIELDCAT_ALV.
&--EVENT TABLE AND WORK AREA--
DATA: W_EVENTS TYPE SLIS_ALV_EVENT.
DATA: T_EVENTS TYPE SLIS_T_EVENT.
DATA: W_EVENTS1 TYPE SLIS_ALV_EVENT.
DATA: T_EVENTS1 TYPE SLIS_T_EVENT.
&--COMMENT TABLE & WORK AREA--
DATA: W_COMMENT TYPE SLIS_LISTHEADER.
DATA: T_COMMENT TYPE SLIS_T_LISTHEADER.
DATA: W_COMMENT1 TYPE SLIS_LISTHEADER.
DATA: T_COMMENT1 TYPE SLIS_T_LISTHEADER.
&----APPENDING FCAT -
W_FCAT-COL_POS = 1.
W_FCAT-FIELDNAME = 'KUNNR'.
W_FCAT-SELTEXT_M = 'CUST. NO'.
W_FCAT-HOTSPOT = 'X'.            "HOT SPOT HAND SYMBOL
W_FCAT-EMPHASIZE = 'C119'.       "FOR COLORING THE COLUMN 1
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS = 2.
W_FCAT-FIELDNAME = 'NAME1'.
W_FCAT-SELTEXT_M = 'CUST. NAME'.
APPEND W_FCAT TO T_FCAT.
W_FCAT-COL_POS = 3.
W_FCAT-FIELDNAME = 'ORT01'.
W_FCAT-SELTEXT_M = 'CITY'.
APPEND W_FCAT TO T_FCAT.
W_FCAT1-COL_POS = 1.
W_FCAT1-FIELDNAME = 'VBELN'.
W_FCAT1-SELTEXT_M = 'ORDER NO'.
W_FCAT1-EMPHASIZE = 'C519'.
APPEND W_FCAT1 TO T_FCAT1.
CLEAR W_FCAT.
W_FCAT1-COL_POS = 2.
W_FCAT1-FIELDNAME = 'ERNAM'.
W_FCAT1-SELTEXT_M = 'NAME OF PARTY'.
APPEND W_FCAT1 TO T_FCAT1.
W_FCAT1-COL_POS = 3.
W_FCAT1-FIELDNAME = 'ERDAT'.
W_FCAT1-SELTEXT_M = 'DATE'.
APPEND W_FCAT1 TO T_FCAT1.
W_FCAT1-COL_POS = 4.
W_FCAT1-FIELDNAME = 'NETWR'.
W_FCAT1-SELTEXT_M = 'ORDER VALUE'.
APPEND W_FCAT1 TO T_FCAT1.
W_FCAT1-COL_POS = 5.
W_FCAT1-FIELDNAME = 'WAERK'.
W_FCAT1-SELTEXT_M = 'CURRENCY'.
APPEND W_FCAT1 TO T_FCAT1.
&--APPEND COMMENTRY--
W_COMMENT-TYP = 'H'.
W_COMMENT-INFO = 'CUSTOMER DETAILS'.
APPEND W_COMMENT TO T_COMMENT.
CLEAR W_COMMENT.
&--APPEND EVENTS TABLE--
W_EVENTS-NAME = 'TOP_OF_PAGE'.
W_EVENTS-FORM = 'TOPPAGE'.
APPEND W_EVENTS TO T_EVENTS.
W_EVENTS-NAME = 'USER_COMMAND'.
W_EVENTS-FORM = 'SUB2'.
APPEND W_EVENTS TO T_EVENTS.
W_EVENTS1-NAME = 'TOP_OF_PAGE'.
W_EVENTS1-FORM = 'TOPPAGE1'.
APPEND W_EVENTS1 TO T_EVENTS1.
CLEAR W_EVENTS1.
W_EVENTS1-NAME = 'USER_COMMAND'.
W_EVENTS1-FORM = 'SUB3'.
APPEND W_EVENTS1 TO T_EVENTS1.
SELECT-OPTIONS: CUSTNO FOR W_KNA1-KUNNR.
SELECT KUNNR
         NAME1
         ORT01 FROM KNA1 INTO TABLE T_KNA1
         WHERE KUNNR IN CUSTNO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM                = 'ZKAL_ALV_INTERACTIVE_12'
   I_BACKGROUND_ID                   = 'BIKE'
   I_GRID_TITLE                      = 'CUSTOMER DETAILS'
   IT_FIELDCAT                       = T_FCAT
   IT_EVENTS                         = T_EVENTS
TABLES
    T_OUTTAB                          = T_KNA1 .
FORM TOPPAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = T_COMMENT
     I_LOGO                   = 'LOGO_ALV'.
ENDFORM. "END OF TOPPAGE SUB.
FORM SUB2 USING UCOMM LIKE SY-UCOMM FIELDS1 TYPE SLIS_SELFIELD.
READ TABLE T_KNA1 INTO W_KNA1 INDEX FIELDS1-TABINDEX.
SELECT VBELN
         ERNAM
         ERDAT
         NETWR
         WAERK
               FROM VBAK
               INTO TABLE T_VBAK
               WHERE KUNNR = W_KNA1-KUNNR.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM                = 'ZKAL_ALV_INTERACTIVE_12'
   I_BACKGROUND_ID                   = 'KALEEM'
   I_GRID_TITLE                      = 'LIST OF ORDERS'
   IT_FIELDCAT                       = T_FCAT1
   IT_EVENTS                         = T_EVENTS1
TABLES
    T_OUTTAB                          = T_VBAK.
ENDFORM.    "END OF SUB2.
FORM TOPPAGE1.
&--APPEND COMMENTRYOF SECONDRY SCREEN--
W_COMMENT1-TYP = 'H'.
W_COMMENT1-INFO = 'LIST OF ORDERS'.
APPEND W_COMMENT1 TO T_COMMENT1.
W_COMMENT1-TYP = 'S'.
W_COMMENT1-KEY = 'CUSTOMER'.
W_COMMENT1-INFO = W_KNA1-KUNNR.
APPEND W_COMMENT1 TO T_COMMENT1.
CLEAR W_COMMENT.
W_COMMENT1-TYP = 'A'.
W_COMMENT1-INFO = W_KNA1-NAME1.
APPEND W_COMMENT1 TO T_COMMENT1.
CLEAR W_COMMENT1.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = T_COMMENT1
     I_LOGO                   = 'LOGO_ALV'
REFRESH T_COMMENT1.
ENDFORM.    "END OF TOPPAGE1
FORM SUB3 USING UCOMM LIKE SY-UCOMM FIELDS1 TYPE SLIS_SELFIELD.
    READ TABLE T_VBAK INTO W_VBAK INDEX FIELDS1-TABINDEX.
SET PARAMETER ID 'AUN' FIELD W_VBAK-VBELN.
CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.
ENDFORM.
U can also find some of the useful codes on WIKI-SDN.
Reward helpful Answers.
Regds,
Kaleem.

ALV INTERACTIVE MAX LIMITS PLS

Hi abap gurus,
Can i know what is the max alv interactive list pls?
for example normal interactive is 20 like that i want for ALV INTERACTIVE

Hi,
No limits
aRs

ALV Interactive report! Need Simple Logic

Hi!
Can any one tell me the simple logic (steps) to be followed in developing alv interactive report
NO CODING PLEASE
Thanks
Imran

Hi Imran,
Here i am trying to explain through the standard ALV FMs...
1) You will do the same coding as how you will do for normal ALV through FMs.
2) Create an event type variable of type - SLIS_T_EVENT
3) Call function module REUSE_ALV_EVENTS_GET to get all the events like 'USER COMMAND'
4) Fill the internal table with the form name against USER COMMAND event.
5) create FORM & ENDFORM for the USER COMMAND event.
6) With in the form which you created in 5th step, create a variable of type - SLIS_SELFIELD, to capture user click information like on which field name & value user clicked.
7) When you press on Base list of ALV, SY-UCOMM value will be &IC1, based on that you can validate whether user clicked or not on base list.
8) Again you will populate the internal tables with required entries for the interactive list and we will call REUSE_ALV fm once again.
I hope you understand the process, if not please get back to me.
Regards,
Donepudi
Reward if its helpful.

Need simple ALV Grid prgm with interactive

Hi experts,
pls anyone provide some sample code for simple alv grid for the study purpose.
i want to knw how the Interactive alv works, how to display some header details like company name and address in the top of the grid.

hi,
check this programme..
Display a Secondary List using ALV Grid
To display a secondary list when you click on one of the row items in an alv grid. The secondary list should also be an alv.
Try out this code. You will have to make a structure ZSTR same as the output internal table.
REPORT ZTEST_REP1 .
TABLES : MARA,
 BHDGD,
 zstr.
TYPES: BEGIN OF T_MARA,
 MATNR LIKE MARA-MATNR,
 ERNAM LIKE MARA-ERNAM,
 END OF T_MARA.
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
*Constants for ALV Implementation
CONSTANTS: C_SET VALUE 'X',
 C_RESET VALUE '0',
 C_SAVE VALUE 'A',
 C_EXIT(4) VALUE 'EXIT',
 C_BACK(4) VALUE 'BACK',
 C_CANC(4) VALUE 'CANC',
 C_PGTOP(5) VALUE 'PGTOP',
 C_PGUP(4) VALUE 'PGUP',
 C_PGDN(4) VALUE 'PGDN',
 C_PGEND(5) VALUE 'PGEND'.
DATA : I_MARA TYPE STANDARD TABLE OF T_MARA WITH HEADER LINE,
 Internal table for fields catalouge
 I_FIELDCAT TYPE LVC_T_FCAT WITH HEADER LINE,
 i_fieldcat2 type lvc_t_fcat with header line,
 Internal table for cursor position
 I_GT_SELROWS TYPE LVC_T_ROW .
DATA : WA_MARA LIKE I_MARA,
 WA_GRIDROW LIKE LVC_S_ROW,
 WA_GRIDCOL LIKE LVC_S_COL.
*Data for ALV Implementation.
DATA: OK_CODE LIKE SY-UCOMM,
 W_OK_CODE LIKE SY-UCOMM,
 W_CALL TYPE I VALUE 1,
 W_TAB LIKE SY-UCOMM VALUE 'TAB1',
 W_SAVE, "For Parameter I_SAVE
 W_VARIANT TYPE DISVARIANT, "For parameter IS_VARIANT
 W_GRID TYPE REF TO CL_GUI_ALV_GRID,
 w_grid1 type ref to cl_gui_alv_grid,
 W_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
 w_container1 type ref to cl_gui_custom_container,
 W_REPID LIKE SY-REPID,
 W_GS_PRINT TYPE LVC_S_PRNT,
 W_GS_LAYOUT TYPE LVC_S_LAYO,
 W_EVENT_REC TYPE REF TO LCL_EVENT_RECEIVER,
 W_CONT_MAIN TYPE SCRFNAME VALUE 'CCCONTAINER',
 W_LN TYPE I, "line number
 W_INDEX LIKE SY-TABIX,
 W_FLAG,
 W_TEMP_VAL TYPE I.
Definition:
CLASS LCL_EVENT_RECEIVER DEFINITION.
PUBLIC SECTION.
 METHODS:
 HANDLE_TOP_OF_PAGE
 FOR EVENT PRINT_TOP_OF_PAGE OF CL_GUI_ALV_GRID,
 HANDLE_DOUBLE_CLICK
 FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW E_COLUMN.
ENDCLASS.
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
METHOD HANDLE_TOP_OF_PAGE.
 PERFORM F_GET_HEADER.
ENDMETHOD. "handle_top_of_page
METHOD HANDLE_DOUBLE_CLICK.
The event DOUBLE_CLICK provides parameters for row and column
of the click. We use row parameter to select a line of the
corresponding internal table.
read selected row from internal table
 READ TABLE I_MARA INDEX E_ROW-INDEX INTO WA_MARA.
 IF SY-SUBRC <> 0.
 message i001. " Cursor position not correct.
 ELSE.
 call dialog screen and display the details
 call screen 200 starting at 10 5.
 ENDIF.
ENDMETHOD. "handle_double_click
ENDCLASS.
start-of-selection.
START-OF-SELECTION.
SELECT MATNR ERNAM FROM MARA INTO TABLE I_MARA.
End-of-Selection.
END-OF-SELECTION.
Start of ALV part.
W_REPID = SY-REPID.
W_VARIANT-REPORT = W_REPID.
W_SAVE = C_SAVE.
W_CONT_MAIN = W_CONT_MAIN.
W_GS_LAYOUT = W_GS_LAYOUT.
W_GS_PRINT = W_GS_PRINT.
I_FIELDCAT = I_FIELDCAT.
CALL SCREEN 100.
*& Form f_get_header
 text
--> p1 text
<-- p2 text
FORM F_GET_HEADER.
DATA: L_LINE1 LIKE BHDGD-LINE1,
 L_LINE2 LIKE BHDGD-LINE2.
CONSTANTS LC_SPACE VALUE ' '.
DATA: L_F1(7), L_F2(11), L_F3(9), L_F4(6), L_F5(11), L_F6(4), L_F7(8),
 L_F8(4),L_F9(10), L_F11(11), L_F12(24), L_F13(4),
 L_F14(3).
take the values of line1 and line2 into two new variables, otherwise
after coming back to the first screen from the print preview, the
header shows the condensed lines
L_LINE1 = BHDGD-LINE1.
L_LINE2 = BHDGD-LINE2.
CONDENSE L_LINE1.
CONDENSE L_LINE2.
*split the lines to display the whole lines within the
*stipulated report-width
SPLIT L_LINE1 AT LC_SPACE INTO L_F1 L_F2 L_F3 L_F4 L_F5 L_F6 L_F7 L_F8
 L_F9 .
SPLIT L_LINE2 AT LC_SPACE INTO L_F11 L_F12 L_F13 L_F14.
L_F14 = SY-PAGNO.
 WRITE:/1 L_F1, 9 L_F2, 40 L_F3, 50 L_F4, 57 L_F5, 88 L_F6, 93 L_F7 ,
 103 L_F8 , 108 L_F9 .
 WRITE:/1 L_F11, 40 TEXT-012, 78 L_F12, 103 L_F13, 108 L_F14.
ENDFORM. " f_get_header
*& Module STATUS_0100 OUTPUT
 text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'STAT'.
SET TITLEBAR 'TITL'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM .
 WHEN C_EXIT OR C_BACK OR C_CANC.
 IF NOT W_CONTAINER IS INITIAL.
 CALL METHOD W_CONTAINER->FREE.
 ENDIF.
 LEAVE TO SCREEN 0.
 WHEN C_PGTOP.
 WA_GRIDROW-INDEX = 1.
 WHEN C_PGUP.
 IF WA_GRIDROW-INDEX <= 15.
 WA_GRIDROW-INDEX = 1.
 ELSE.
 WA_GRIDROW-INDEX = WA_GRIDROW-INDEX - 15.
 ENDIF.
 WHEN C_PGDN.
 PERFORM F_GET_NO_ROWS.
 W_TEMP_VAL = W_LN - WA_GRIDROW-INDEX.
 IF W_TEMP_VAL < 15.
 WA_GRIDROW-INDEX = W_LN.
 ELSE.
 WA_GRIDROW-INDEX = WA_GRIDROW-INDEX + 15.
 ENDIF.
 WHEN C_PGEND.
 PERFORM F_GET_NO_ROWS.
 WA_GRIDROW-INDEX = W_LN.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form f_get_no_rows
 text
--> p1 text
<-- p2 text
FORM F_GET_NO_ROWS.
 DESCRIBE TABLE I_MARA LINES W_LN.
ENDFORM. " f_get_no_rows
*& Module DISPLAY_0100 OUTPUT
 text
MODULE DISPLAY_0100 OUTPUT.
IF NOT WA_GRIDROW IS INITIAL
AND NOT WA_GRIDCOL IS INITIAL.
 CALL METHOD W_GRID->SET_SCROLL_INFO_VIA_ID
 EXPORTING
 IS_ROW_INFO = WA_GRIDROW
 IS_COL_INFO = WA_GRIDCOL .
 CALL METHOD W_GRID->SET_CURRENT_CELL_VIA_ID
 EXPORTING
 IS_ROW_ID = WA_GRIDROW
 IS_COLUMN_ID = WA_GRIDCOL .
ENDIF.
CALL METHOD W_GRID->GET_SCROLL_INFO_VIA_ID
IMPORTING
 ES_ROW_INFO = WA_GRIDROW
 ES_COL_INFO = WA_GRIDCOL .
CALL METHOD W_GRID->GET_SELECTED_ROWS
 IMPORTING
 ET_INDEX_ROWS = I_GT_SELROWS[].
Build the fieldcat according to structure
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 I_STRUCTURE_NAME = 'ZSTR'
 CHANGING
 CT_FIELDCAT = I_FIELDCAT[].
LOOP AT I_FIELDCAT.
 W_INDEX = SY-TABIX.
 CASE I_FIELDCAT-FIELDNAME.
 WHEN 'MATNR'.
 I_FIELDCAT-SCRTEXT_S = 'MATNR'.
 I_FIELDCAT-KEY = ' '.
 I_FIELDCAT-COL_POS = '1'.
 WHEN 'ERNAM'.
 I_FIELDCAT-SCRTEXT_S = 'ERDAT'.
 I_FIELDCAT-OUTPUTLEN = '18'.
 I_FIELDCAT-COL_POS = '2'.
 ENDCASE.
 MODIFY I_FIELDCAT INDEX W_INDEX.
ENDLOOP.
READ TABLE I_FIELDCAT INDEX 1 .
IF W_CALL = 1.
 PERFORM F_STD_HEADER.
 CALL METHOD W_GRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IS_VARIANT = W_VARIANT
 I_SAVE = W_SAVE
 CHANGING
 IT_OUTTAB = I_MARA[]
 IT_FIELDCATALOG = I_FIELDCAT[]
 EXCEPTIONS
 INVALID_PARAMETER_COMBINATION = 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.
 EXIT.
 ENDIF.
 CREATE OBJECT W_EVENT_REC.
 SET HANDLER W_EVENT_REC->HANDLE_TOP_OF_PAGE FOR W_GRID.
 CREATE OBJECT W_EVENT_REC.
 SET HANDLER W_EVENT_REC->HANDLE_DOUBLE_CLICK FOR W_GRID.
 W_FLAG = C_RESET.
 CALL METHOD CL_GUI_CONTROL=>SET_FOCUS EXPORTING CONTROL = W_GRID.
 W_CALL = 0.
ENDIF.
ENDMODULE. " DISPLAY_0100 OUTPUT
*& Form f_std_header
 text
--> p1 text
<-- p2 text
FORM F_STD_HEADER.
ENDFORM. " f_std_header
*& Module DYNPRONR_CHECK_500 OUTPUT
 text
MODULE DYNPRONR_CHECK_500 OUTPUT.
if w_dynpronr is initial.
 w_dynpronr = '0100'.
endif.
ENDMODULE. " DYNPRONR_CHECK_500 OUTPUT
*& Module create_objects_0100 OUTPUT
 text
MODULE create_objects_0100 OUTPUT.
check w_container is initial .
create object w_container
 exporting
 container_name = 'CC'.
create object w_grid
 exporting
 i_parent = w_container.
w_flag = c_set.
w_flag = w_flag.
ENDMODULE. " create_objects_0100 OUTPUT
*& Module STATUS_0200 OUTPUT
 text
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'ST20'.
SET TITLEBAR '200'.
zstr-matnr = wa_mara-matnr.
zstr-ernam = wa_mara-ernam.
ENDMODULE. " STATUS_0200 OUTPUT
*& Module USER_COMMAND_0200 INPUT
 text
MODULE USER_COMMAND_0200 INPUT.
move ok_code to w_ok_code.
clear ok_code.
case w_ok_code.
 when c_back or c_exit or c_canc.
 leave to screen 0.
endcase.
clear w_ok_code.
ENDMODULE. " USER_COMMAND_0200 INPUT
*-- End of Program
Regards,
Deepthi.

Is it possible to display LOGO in simple ALV list?

Hi Guys,
Is it possible to display LOGO in simple ALV list. If yes plz explain in details.
Thanks
Sharat

Yes it is possible to display logo at the top of the page.
TYPE-POOLS: slis.
*     Data Decalaration
DATA: it_vbak TYPE TABLE OF vbak.
DATA: g_repid TYPE sy-repid.
DATA: it_listheader TYPE slis_t_listheader,
       wa_listheader TYPE slis_listheader.
*     START-OF-SELECTION
START-OF-SELECTION.
   g_repid = sy-repid.
   SELECT * FROM vbak INTO TABLE it_vbak.
   PERFORM build_alv_header.
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
       i_callback_program     = g_repid
       i_callback_top_of_page = 'TOP_OF_PAGE'
       i_structure_name       = 'vbak'
     TABLES
       t_outtab               = it_vbak.
*&      Form BUILD_ALV_HEADER
FORM build_alv_header .
* Type H is used to display headers i.e. big font
   wa_listheader-typ = 'H'.
   wa_listheader-info ='Flight Details'.
   APPEND wa_listheader TO it_listheader.
   CLEAR wa_listheader.
* Type S is used to display key and value pairs
   wa_listheader-typ = 'S'.
   APPEND wa_listheader TO it_listheader.
   CLEAR wa_listheader.
* Type A is used to display italic font
   wa_listheader-typ = 'A'.
   wa_listheader-key = 'Date    :' .
   wa_listheader-info ='SAP ALV Report'.
   APPEND wa_listheader TO it_listheader.
   CLEAR wa_listheader.
ENDFORM.                    " BUILD_ALV_HEADER
*&      Form top_of_page
FORM top_of_page.
   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
       it_list_commentary = it_listheader
       i_logo         = 'PARI'.
ENDFORM.                    "top_of_page

Alv interactive report for secondary list

Hi All,
This is my code for ALV interactive report. Its working Properly for me when i select material number iam able to display the secondary list properly . if i sorted the basic list other than material number for ex . created date . iam uable to display correct secondary list . Can any one help me in this issue?
REPORT ZWRLOMDMM_PMG_PHWEB_PLD NO STANDARD PAGE HEADING
 LINE-SIZE 120
 LINE-COUNT 65
 MESSAGE-ID 00.
TABLES *
TABLES: MARA , "General Material Data
 ZWPBPH. " Published Product Hierarchy
TYPE-POOLS *
TYPE-POOLS:SLIS .
DATA:FIELDCATALOG_BASIC TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
 FIELDCATALOG_SECONDARY TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
 GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
 GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
 GD_REPID LIKE SY-REPID.
INTERNAL TABLES *
*Internal Tables to Get Data.
*Internal Table For MARA Table.
DATA:BEGIN OF T_MARA OCCURS 0 ,
 MATNR LIKE MARA-MATNR,
 MTART LIKE MARA-MTART,
 ERSDA LIKE MARA-ERSDA,
 ERNAM LIKE MARA-ERNAM,
 AENAM LIKE MARA-AENAM,
 SPART LIKE MARA-SPART,
 END OF T_MARA.
*Internal Table For ZWPBPH Table.
DATA:BEGIN OF T_ZWPBPH OCCURS 0 ,
 PBPINO LIKE ZWPBPH-PBPINO,
 PBPAPINO LIKE ZWPBPH-PBPAPINO,
 END OF T_ZWPBPH.
*Internal Table For Basic List Field Catalog.
DATA:BEGIN OF T_ALV OCCURS 0 ,
 MATNR LIKE MARA-MATNR,
 MTART LIKE MARA-MTART,
 ERSDA LIKE MARA-ERSDA,
 ERNAM LIKE MARA-ERNAM,
 SPART LIKE MARA-SPART,
 SPART1(3),
 END OF T_ALV.
*Internal Table For Secondary List Field Catalog.
DATA: BEGIN OF T_ALVS OCCURS 0 ,
 MATNR LIKE MARA-MATNR,
 AENAM LIKE MARA-AENAM,
 LAEDA LIKE MARA-LAEDA,
 END OF T_ALVS.
*Internal Table For Model
DATA:T_MODEL LIKE T_ZWPBPH OCCURS 0 WITH HEADER LINE.
*Internal Table For Product
DATA:T_PRODUCT LIKE T_ZWPBPH OCCURS 0 WITH HEADER LINE.
*Internal Table For Family
DATA:T_FAMILY LIKE T_ZWPBPH OCCURS 0 WITH HEADER LINE.
*Internal Table For Line
DATA:T_LINE LIKE T_ZWPBPH OCCURS 0 WITH HEADER LINE.
*Internal Table For Type
DATA:T_TYPE LIKE T_ZWPBPH OCCURS 0 WITH HEADER LINE.
SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: P_MATN RADIOBUTTON GROUP R1 USER-COMMAND run default 'X'.
SELECT-OPTIONS: P_MATNR FOR MARA-MATNR MODIF ID SC1 .
PARAMETERS: P_DAT RADIOBUTTON GROUP R1 .
SELECT-OPTIONS: : P_DATE FOR MARA-LAEDA MODIF ID SC2.
PARAMETERS: P_DIV RADIOBUTTON GROUP R1 .
SELECT-OPTIONS: : P_DIVIS for mara-spart MODIF ID SC3.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION *
INITIALIZATION.
REFRESH: T_MARA,
 T_ZWPBPH,
 T_ALV,
 T_ALVS,
 T_MODEL,
 T_PRODUCT,
 T_FAMILY,
 T_LINE,
 T_TYPE.
CLEAR: T_MARA,
 T_ZWPBPH,
 T_ALV,
 T_ALVS,
 T_MODEL,
 T_PRODUCT,
 T_FAMILY,
 T_LINE,
 T_TYPE.
GD_REPID = SY-REPID.
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF P_MATN = 'X'.
 FREE : P_DIVIS,P_DATE.
 IF SCREEN-GROUP1 = 'SC2' or SCREEN-GROUP1 = 'SC3'.
 SCREEN-INPUT = 0.
 MODIFY SCREEN.
 CONTINUE.
 ENDIF .
 ENDIF.
 IF P_DAT = 'X'.
 FREE : P_MATNR,P_DIVIS.
 IF SCREEN-GROUP1 = 'SC1' or SCREEN-GROUP1 = 'SC3'.
 SCREEN-INPUT = 0.
 MODIFY SCREEN.
 CONTINUE.
 ENDIF .
 ENDIF.
 IF P_DIV = 'X'.
 FREE : P_DATE,P_MATNR.
 IF SCREEN-GROUP1 = 'SC1' or SCREEN-GROUP1 = 'SC2'.
 SCREEN-INPUT = 0.
 MODIFY SCREEN.
 CONTINUE.
 ENDIF .
 ENDIF.
ENDLOOP.
START-OF-SELECTION *
START-OF-SELECTION.
PERFORM GET_FIELDCATALOG_BASIC.
PERFORM GET_FIELDCATALOG_SECONDARY.
PERFORM POPULATE_DATA.
END-OF-SELECTION *
END-OF-SELECTION.
*& FORM GET_FIELDCATALOG_BASIC.
Get Fieldcatalog For Basic List
FORM GET_FIELDCATALOG_BASIC.
FIELDCATALOG_BASIC-FIELDNAME = 'MATNR'.
FIELDCATALOG_BASIC-SELTEXT_M = 'Material Number'.
FIELDCATALOG_BASIC-COL_POS = 0.
FIELDCATALOG_BASIC-OUTPUTLEN = 20.
FIELDCATALOG_BASIC-HOTSPOT = 'X'.
FIELDCATALOG_BASIC-EMPHASIZE = 'X'.
FIELDCATALOG_BASIC-KEY = 'X'.
APPEND FIELDCATALOG_BASIC TO FIELDCATALOG_BASIC.
CLEAR FIELDCATALOG_BASIC.
FIELDCATALOG_BASIC-FIELDNAME = 'MTART'.
FIELDCATALOG_BASIC-SELTEXT_M = 'Material Type'.
FIELDCATALOG_BASIC-COL_POS = 0.
FIELDCATALOG_BASIC-OUTPUTLEN = 20.
FIELDCATALOG_BASIC-EMPHASIZE = 'X'.
FIELDCATALOG_BASIC-KEY = 'X'.
APPEND FIELDCATALOG_BASIC TO FIELDCATALOG_BASIC.
CLEAR FIELDCATALOG_BASIC.
FIELDCATALOG_BASIC-FIELDNAME = 'ERSDA'.
FIELDCATALOG_BASIC-SELTEXT_M = 'Created Date'.
FIELDCATALOG_BASIC-COL_POS = 0.
FIELDCATALOG_BASIC-OUTPUTLEN = 12.
FIELDCATALOG_BASIC-EMPHASIZE = 'X'.
FIELDCATALOG_BASIC-KEY = 'X'.
APPEND FIELDCATALOG_BASIC TO FIELDCATALOG_BASIC.
CLEAR FIELDCATALOG_BASIC.
FIELDCATALOG_BASIC-FIELDNAME = 'ERNAM'.
FIELDCATALOG_BASIC-SELTEXT_M = 'Created By'.
FIELDCATALOG_BASIC-COL_POS = 0.
FIELDCATALOG_BASIC-OUTPUTLEN = 15.
FIELDCATALOG_BASIC-EMPHASIZE = 'X'.
FIELDCATALOG_BASIC-KEY = 'X'.
APPEND FIELDCATALOG_BASIC TO FIELDCATALOG_BASIC.
CLEAR FIELDCATALOG_BASIC.
FIELDCATALOG_BASIC-FIELDNAME = 'SPART'.
FIELDCATALOG_BASIC-SELTEXT_M = 'Division PMG'.
FIELDCATALOG_BASIC-COL_POS = 0.
FIELDCATALOG_BASIC-OUTPUTLEN = 14.
FIELDCATALOG_BASIC-EMPHASIZE = 'X'.
FIELDCATALOG_BASIC-KEY = 'X'.
APPEND FIELDCATALOG_BASIC TO FIELDCATALOG_BASIC.
CLEAR FIELDCATALOG_BASIC.
FIELDCATALOG_BASIC-FIELDNAME = 'SPART1'.
FIELDCATALOG_BASIC-SELTEXT_M = 'Division PhWEB'.
FIELDCATALOG_BASIC-COL_POS = 0.
FIELDCATALOG_BASIC-OUTPUTLEN = 14.
FIELDCATALOG_BASIC-EMPHASIZE = 'X'.
FIELDCATALOG_BASIC-KEY = 'X'.
APPEND FIELDCATALOG_BASIC TO FIELDCATALOG_BASIC.
CLEAR FIELDCATALOG_BASIC.
ENDFORM. "GET_FIELDCATALOG_BASIC
*& FORM GET_FIELDCATALOG_SECONDARY
Get Fieldcatalog For Secondary List
FORM GET_FIELDCATALOG_SECONDARY.
FIELDCATALOG_SECONDARY-FIELDNAME = 'MATNR'.
FIELDCATALOG_SECONDARY-SELTEXT_M = 'Material Number'.
FIELDCATALOG_SECONDARY-COL_POS = 0.
FIELDCATALOG_SECONDARY-OUTPUTLEN = 20.
FIELDCATALOG_SECONDARY-EMPHASIZE = 'X'.
FIELDCATALOG_SECONDARY-KEY = 'X'.
APPEND FIELDCATALOG_SECONDARY TO FIELDCATALOG_SECONDARY.
CLEAR FIELDCATALOG_SECONDARY.
FIELDCATALOG_SECONDARY-FIELDNAME = 'AENAM'.
FIELDCATALOG_SECONDARY-SELTEXT_M = 'Changed By'.
FIELDCATALOG_SECONDARY-COL_POS = 0.
FIELDCATALOG_SECONDARY-OUTPUTLEN = 20.
FIELDCATALOG_SECONDARY-EMPHASIZE = 'X'.
FIELDCATALOG_SECONDARY-KEY = 'X'.
APPEND FIELDCATALOG_SECONDARY TO FIELDCATALOG_SECONDARY.
CLEAR FIELDCATALOG_SECONDARY.
FIELDCATALOG_SECONDARY-FIELDNAME = 'LAEDA'.
FIELDCATALOG_SECONDARY-SELTEXT_M = 'Changed ON'.
FIELDCATALOG_SECONDARY-COL_POS = 0.
FIELDCATALOG_SECONDARY-OUTPUTLEN = 20.
FIELDCATALOG_SECONDARY-EMPHASIZE = 'X'.
FIELDCATALOG_SECONDARY-KEY = 'X'.
APPEND FIELDCATALOG_SECONDARY TO FIELDCATALOG_SECONDARY.
CLEAR FIELDCATALOG_SECONDARY.
ENDFORM. "GET_FIELDCATALOG_SECONDARY
*& FORM POPULATE_DATA
FORM POPULATE_DATA.
*Get Data From MARA And ZWPBPH Tables
IF P_MATN = 'X'.
SELECT MATNR MTART ERSDA ERNAM AENAM SPART FROM MARA INTO TABLE T_MARA
where MATNR IN P_MATNR .
 IF SY-SUBRC <> 0.
 MESSAGE E001(0) WITH 'Invalid Material Number'.
 ENDIF.
ELSEIF P_DAT = 'X'.
SELECT MATNR MTART ERSDA ERNAM AENAM SPART FROM MARA INTO TABLE T_MARA
where LAEDA IN P_DATE .
 IF SY-SUBRC <> 0.
 MESSAGE E001(0) WITH 'Invalid Date Range'.
 ENDIF.
ELSEIF P_DIV = 'X'.
SELECT MATNR MTART ERSDA ERNAM AENAM SPART FROM MARA INTO TABLE T_MARA
where SPART IN P_DIVIS .
 IF SY-SUBRC <> 0.
 MESSAGE E001(0) WITH 'Invalid Division'.
 ENDIF.
ELSEIF P_MATN = ' ' AND P_DAT = ' ' AND P_DIV = ' '.
SELECT MATNR MTART ERSDA ERNAM AENAM SPART FROM MARA INTO TABLE T_MARA.
ENDIF.
DELETE ADJACENT DUPLICATES FROM T_MARA COMPARING MATNR.
SORT T_MARA BY MATNR.
IF T_MARA[] IS NOT INITIAL .
SELECT PBPINO PBPAPINO FROM ZWPBPH INTO TABLE T_ZWPBPH FOR ALL ENTRIES
IN T_MARA WHERE PBPINO = T_MARA-MATNR.
ENDIF.
IF SY-SUBRC = 0.
 LOOP AT T_ZWPBPH.
 SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_MODEL WHERE
 PBPINO = T_ZWPBPH-PBPAPINO.
 IF SY-SUBRC = 0.
 SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_PRODUCT WHERE
 PBPINO
 = T_MODEL-PBPAPINO.
 ENDIF.
 IF SY-SUBRC = 0.
 SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_FAMILY WHERE
 PBPINO = T_PRODUCT-PBPAPINO.
 ENDIF.
 IF SY-SUBRC = 0.
 SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_LINE WHERE
 PBPINO = T_FAMILY-PBPAPINO.
 ENDIF.
 IF SY-SUBRC = 0.
 SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_TYPE WHERE PBPINO
 = T_LINE-PBPAPINO.
 ENDIF.
 IF SY-SUBRC = 0.
 SELECT SINGLE MTART ERSDA ERNAM SPART FROM MARA INTO CORRESPONDING
 FIELDS OF T_ALV WHERE MATNR = T_ZWPBPH-PBPINO AND SPART <>
 T_TYPE-PBPAPINO+1(2).
 ENDIF.
 IF SY-SUBRC = 0.
 MOVE T_ZWPBPH-PBPINO TO T_ALV-MATNR.
 MOVE T_TYPE-PBPAPINO+1(2) TO T_ALV-SPART1.
 APPEND T_ALV.
 SELECT SINGLE MATNR AENAM LAEDA FROM MARA INTO CORRESPONDING
 FIELDS OF T_ALVS WHERE MATNR = T_ZWPBPH-PBPINO.
 APPEND T_ALVS.
 CLEAR T_ALVS.
 ENDIF.
 ENDLOOP.
ENDIF.
SORT T_ALV BY MATNR.
SORT T_ALVS BY MATNR.
call function 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = GD_REPID
 i_callback_user_command = 'DISPLAY_DETAIL'
 it_fieldcat = FIELDCATALOG_BASIC[]
 i_save = 'X'
 TABLES
 t_outtab = T_ALV
 EXCEPTIONS
 program_error = 1
 others = 2.
ENDFORM. "POPULATE_DATA
*& Form DISPLAY_DETAIL
 text
 -->UCOMM text
 -->SELFIELD text
FORM DISPLAY_DETAIL USING UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
Select Material Number For Secondary List
DATA: T_ALV_TEMP LIKE T_ALVS OCCURS 0 WITH HEADER LINE.
IF UCOMM = '&IC1'.
 READ TABLE T_ALVS INDEX SELFIELD-TABINDEX.
 IF SY-SUBRC = 0.
 MOVE T_ALVS TO T_ALV_TEMP.
 APPEND T_ALV_TEMP.
 ENDIF.
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = GD_REPID
 it_fieldcat = FIELDCATALOG_SECONDARY[]
 TABLES
 t_outtab = T_ALV_TEMP.
ENDIF.
ENDFORM. "DISPLAY_DETAIL

Hi,
Try this in the routine display details
READ TABLE T_ALV INDEX SELFIELD-TABINDEX.
READ TABLE T_ALVS with key matnr = T_ALV-MATNR
thanks

How to handle interactive list in alv reports

hi experts.
how to handle interactive list in alv reports.
regards.
subhasis

HI Subhasis,
below is the sample code for handling an interactive ALV report, hope this helps you ..
REPORT ZTEST_ALV123.
TYPE-POOLS:SLIS.
DATA :   IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
          IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.
DATA: BEGIN OF ITAB OCCURS 0,
       VBELN LIKE VBAK-VBELN,
       POSNR LIKE VBAP-POSNR,
       END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0,
       VBELN LIKE LIKP-VBELN,
       POSNR LIKE LIPS-POSNR,
       VGBEL LIKE LIPS-VGBEL,
       VGPOS LIKE LIPS-VGPOS,
       END OF ITAB1.
DATA: IT_LIPS LIKE ITAB1 OCCURS 0 WITH HEADER LINE.
SELECT VBELN
        POSNR
        FROM VBAP
        INTO TABLE ITAB.
IF SY-SUBRC = 0.
SORT ITAB BY VBELN .
SELECT VBELN
   POSNR
   VGBEL
   VGPOS
   INTO TABLE ITAB1
   FROM LIPS
   FOR ALL ENTRIES IN ITAB
   WHERE VGBEL = ITAB-VBELN
     AND    VGPOS = ITAB-POSNR.
ENDIF.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 1.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 1.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    I_CALLBACK_PROGRAM       = SY-REPID
    I_CALLBACK_PF_STATUS_SET = 'PFSTATUS'
    I_CALLBACK_USER_COMMAND = 'HANDLE_USER_COMMAND'
    IT_FIELDCAT              = IT_FIELDCAT
TABLES
    T_OUTTAB                 = ITAB
EXCEPTIONS
    PROGRAM_ERROR            = 1
    OTHERS                   = 2.
IF SY-SUBRC = 0.
ENDIF.
*&      Form POPUP
      text
     -->P_EXTAB    text
FORM POPUP USING P_EXTAB TYPE SLIS_T_EXTAB.
"here double click on PFSTATUS and create the status, "activate, before that set PICK for choose(F2).
*- Pf status
SET PF-STATUS 'PFSTATUS'.
ENDFORM.                 " POPUP
*&      Form HANDLE_USER_COMMAND
      text
     -->R_UCOMM      text
     -->RS_SELFIELD text
FORM HANDLE_USER_COMMAND USING R_UCOMM     LIKE SY-UCOMM
                               RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN '&IC1'.
      IF RS_SELFIELD-FIELDNAME = 'VBELN'.
        READ TABLE ITAB INDEX RS_SELFIELD-TABINDEX.
        LOOP AT ITAB1 WHERE VGBEL = ITAB-VBELN
                          AND VGPOS = ITAB-POSNR.
          MOVE-CORRESPONDING ITAB1 TO IT_LIPS.
          APPEND IT_LIPS.
        ENDLOOP.
        PERFORM INTERACTIVE_REPORT.
      ENDIF.
ENDCASE.
ENDFORM.                    "HANDLE_USER_COMMAND
*&      Form interactive_report
      text
FORM INTERACTIVE_REPORT .
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-SELTEXT_L = 'VBELN'.
X_FIELDCAT-TABNAME = 'IT_LIPS'.
X_FIELDCAT-COL_POS = 1.
APPEND X_FIELDCAT TO IT_FIELDCAT1.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-SELTEXT_L = 'ITEM'.
X_FIELDCAT-TABNAME = 'IT_LIPS'.
X_FIELDCAT-COL_POS = 2.
APPEND X_FIELDCAT TO IT_FIELDCAT1.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'VGBEL'.
X_FIELDCAT-SELTEXT_M = 'SO #'.
X_FIELDCAT-TABNAME = 'IT_LIPS'.
X_FIELDCAT-COL_POS = 3.
APPEND X_FIELDCAT TO IT_FIELDCAT1.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'VGPOS'.
X_FIELDCAT-SELTEXT_M = 'SO ITEM'.
X_FIELDCAT-TABNAME = 'IT_LIPS'.
X_FIELDCAT-COL_POS = 4.
APPEND X_FIELDCAT TO IT_FIELDCAT1.
CLEAR X_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      IT_FIELDCAT        = IT_FIELDCAT1
    TABLES
      T_OUTTAB           = IT_LIPS
    EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.
IF SY-SUBRC = 0.
ENDIF.
ENDFORM.                    " interactive_report
Regards,
Ranjita
null

Different between coding of simple ALV report and interactive ALV report

Hi
Please some one tell me the difference (extra coding) for interactive ALV report.
I know how to design simple ALV report but i dont know what extra I hace to code for interactive ALV report.
Thanks in advance.

View at se38, ALV grid demos, search BCALGRID

Interactive list in ALV

Hi All,
Is there any sample program for an interactive list in ALV? I would like to try an interactive ALV list option for one of my reports
Thanks

One more example - ALV Interactive ( two times REUSE_ALV_GRID_DISPLAY )
REPORT ZZ_22038_22098_002 NO STANDARD PAGE HEADING LINE-SIZE 650
MESSAGE-ID ZZ_9838 .
TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
 EBELN LIKE EKKO-EBELN,
 AEDAT LIKE EKKO-AEDAT,
 BUKRS LIKE EKKO-BUKRS,
 BSART LIKE EKKO-BSART,
 LIFNR LIKE EKKO-LIFNR,
 END OF I_EKKO.
DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
 WA_EKKO TYPE I_EKKO.
*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 MATNR LIKE EKPO-MATNR,
 MENGE LIKE EKPO-MENGE,
 MEINS LIKE EKPO-MEINS,
 NETPR LIKE EKPO-NETPR,
 END OF I_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
 WA_EKPO TYPE I_EKPO .
*variable for Report ID
DATA: V_REPID LIKE SY-REPID .
*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
declaration for events table where user comand or set PF status will
be defined
DATA: V_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENT TYPE SLIS_ALV_EVENT.
declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
 I_VARIANT1 TYPE DISVARIANT,
 I_SAVE(1) TYPE C.
*PARAMETERS : p_var TYPE disvariant-variant.
*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.
INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_REPORT.
*& Form BUILD_FIELDCATLOG
 Fieldcatalog has all the field details from ekko
FORM BUILD_FIELDCATLOG.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_M = 'DATE.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-NO_OUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG
*& Form EVENT_CALL
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
EXCEPTIONS
 LIST_TYPE_WRONG = 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. "EVENT_CALL
*& Form POPULATE_EVENT
 Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'USER_COMMAND'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form data_retrieval
retreiving values from the database table ekko
FORM DATA_RETRIEVAL.
SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.
ENDFORM. "data_retrieval
*& Form bUild_listheader
 text
 -->I_LISTHEADEtext
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'.
ENDFORM. "build_listheader
*& Form display_alv_report
 text
FORM DISPLAY_ALV_REPORT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 I_GRID_TITLE = I_TITLE_EKKO
I_GRID_SETTINGS =
IS_LAYOUT = ALV_LAYOUT
 IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 i_default = 'ZLAY1'
 I_SAVE = 'A'
 is_variant = i_variant
 IT_EVENTS = V_EVENTS
 TABLES
 T_OUTTAB = IT_EKKO
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_report
*& Form TOP_OF_PAGE
 text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
 i_logo =
 I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
 text
 -->R_UCOMM text
 -->, text
 -->RS_SLEFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'.
 READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
 PERFORM BUILD_FIELDCATLOG_EKPO.
 PERFORM EVENT_CALL_EKPO.
 PERFORM POPULATE_EVENT_EKPO.
 PERFORM DATA_RETRIEVAL_EKPO.
 PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
 PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM. "user_command
*& Form BUILD_FIELDCATLOG_EKPO
 text
FORM BUILD_FIELDCATLOG_EKPO.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MENGE'.
WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_M = 'UOM'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'NETPR'.
WA_FIELDCAT-SELTEXT_M = 'PRICE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG_EKPO
*& Form event_call_ekpo
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL_EKPO.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 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. "event_call_ekpo
*& Form POPULATE_EVENT
 Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT_EKPO.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form TOP_OF_PAGE
 text
FORM F_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
 i_logo =
 I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
 text
 -->R_UCOMM text
 -->, text
 -->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.
FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.
FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
 I_GRID_TITLE = I_TITLE_EKPO
I_GRID_SETTINGS =
IS_LAYOUT =
 IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT =
 I_SAVE = 'A'
IS_VARIANT =
 IT_EVENTS = V_EVENTS
TABLES
 T_OUTTAB = IT_EKPO
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.

Interactive lists from ALV

Hi experts,
Please tell me how to generate Interactive list from ALV.
I have already created interactive list without ALV
( using AT LINE SELECTION)

Please refer to the below code.
A very good example with most of the company Standards.
*& Report zalv *
REPORT zalv .
TYPE-POOLS: kkblo,
 slis.
TABLES: mara, marc, mard.
DATA: disvariant LIKE disvariant,
 eventcat TYPE slis_t_event,
 eventcat_ln LIKE LINE OF eventcat,
 fieldcat TYPE slis_t_fieldcat_alv,
 fieldcat_kkb TYPE kkblo_t_fieldcat,
 fieldcat_ln LIKE LINE OF fieldcat,
 keyinfo TYPE slis_keyinfo_alv,
 layout TYPE slis_layout_alv,
 layout_kkb TYPE kkblo_layout,
 pgm LIKE sy-repid,
 printcat TYPE slis_print_alv,
 sortcat TYPE slis_t_sortinfo_alv,
 sortcat_ln LIKE LINE OF sortcat,
 BEGIN OF coltab OCCURS 50,
 fieldname LIKE fieldcat_ln-fieldname,
 END OF coltab.
DATA: print TYPE slis_print_alv.
DATA : v_repid TYPE sy-repid.
DATA: BEGIN OF wa OCCURS 0,
 matnr TYPE mara-matnr,
 ersda TYPE mara-ersda,
 ernam TYPE mara-ernam,
 aenam TYPE mara-aenam,
 werks TYPE marc-werks,
 pstat TYPE marc-pstat,
 lfmon TYPE mard-lfmon,
 END OF wa.
DATA: itab LIKE TABLE OF wa.
**Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001..
SELECT-OPTIONS: mat_no FOR mara-matnr.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK b1.
* Parameter for list viewer display variant
PARAMETERS: variant LIKE disvariant-variant.
AT SELECTION-SCREEN ON variant.
CHECK NOT variant IS INITIAL.
PERFORM check_variant_existence USING variant 'U'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR variant.
PERFORM f4_display_variant USING variant 'U'.
*Initialization
INITIALIZATION.
v_repid = sy-repid.
*Start of selection
PERFORM check_tcode_authority USING 'SA38'.
START-OF-SELECTION.
SELECT a~matnr a~ersda
 a~ernam a~aenam
 c~werks c~pstat d~lfmon
INTO TABLE itab
UP TO 10 ROWS
FROM mara AS a
INNER JOIN marc AS c ON a~matnr = c~matnr
INNER JOIN mard AS d ON c~matnr = d~matnr
WHERE a~matnr IN mat_no.
*End of Selection
END-OF-SELECTION.
PERFORM call_list_viewer.
*& Form call_list_viewer
* text
FORM call_list_viewer .
PERFORM build_fieldcat USING:
 'MATNR' 'ITAB'
 'Material #' 'CHAR' 18 ' ' ' ' ' ' ' ' ' ',
 'ERSDA' 'ITAB'
 'Date Created' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
 'ERNAM' 'ITAB'
 'Created By' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
 'AENAM' 'ITAB'
 'Changed By' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
 'WERKS' 'ITAB'
 'Plant' 'CHAR' 4 ' ' ' ' ' ' ' ' ' ',
 'PSTAT' 'ITAB'
 'Status' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
 'LFMON' 'ITAB'
 'Current Period' 'CHAR' 8 ' ' ' ' ' ' ' ' ' '.
PERFORM build_eventcat USING: 'TOP_OF_LIST',
 'TOP_OF_PAGE'.
PERFORM list_display TABLES itab.
ENDFORM. "call_list_viewer
* build field catalog entry *
FORM build_fieldcat USING a_fieldname
 a_tabname
 a_heading
 a_datatype
 a_outputlen
 a_key
 a_no_out
 a_no_sum
 a_do_sum
 a_no_zero.
CLEAR fieldcat_ln.
fieldcat_ln-fieldname = a_fieldname.
fieldcat_ln-tabname = a_tabname.
fieldcat_ln-outputlen = a_outputlen.
fieldcat_ln-datatype = a_datatype.
fieldcat_ln-reptext_ddic = a_heading.
fieldcat_ln-key = a_key.
fieldcat_ln-no_out = a_no_out.
fieldcat_ln-no_sum = a_no_sum.
fieldcat_ln-do_sum = a_do_sum.
fieldcat_ln-no_zero = a_no_zero.
APPEND fieldcat_ln TO fieldcat.
ENDFORM. "BUILD_FIELDCAT
* FORM BUILD_EVENTCAT
FORM build_eventcat USING a_event.
eventcat_ln-name = eventcat_ln-form = a_event.
APPEND eventcat_ln TO eventcat.
ENDFORM. "BUILD_EVENTCAT
* call the ABAP list viewer *
FORM list_display TABLES a_output.
pgm = disvariant-report = sy-repid.
disvariant-variant = variant.
* call list viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = pgm
* i_callback_pf_status_set = 'SET_PF_STATUS'
 it_fieldcat = fieldcat
 is_variant = disvariant
 is_layout = layout
 is_print = print
 i_save = 'A'
 it_events = eventcat
 it_sort = sortcat
* i_callback_user_command = 'USER_COMMAND'
 TABLES
 t_outtab = a_output
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
ENDFORM. "LIST_DISPLAY
*& Form top_of_page
* text
FORM top_of_page.
PERFORM standard_headings.
PERFORM print_selection_screen TABLES:
 mat_no USING 'Material No : ' 18 'N' 1.
ENDFORM. "top_of_page
* FORM CHECK_VARIANT_EXISTENCE
* Verify that a variant on the selection screen exists
FORM check_variant_existence USING varname LIKE disvariant-variant
 save TYPE c.
DATA: xdisvar LIKE disvariant.
xdisvar-report = sy-repid.
xdisvar-variant = varname.
CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
 EXPORTING
 i_save = save
 CHANGING
 cs_variant = xdisvar
 EXCEPTIONS
 wrong_input = 1
 not_found = 2
 program_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 MESSAGE e256(56) WITH varname.
* Anzeigevariante &1 nicht gefunden
ENDIF.
disvariant-report = sy-repid.
disvariant-variant = varname.
ENDFORM. "check_variant_existence
* Form F4_DISPLAY_VARIANT
* F4 help to find a display variant
* varname = name of the dynpro field for which f4 is requested
* save = type of list variant saving
* ' ' = no saving allowed
* 'A' = standard & user specific variants can be saved
* 'U' = only user specific variants can be saved
* 'X' = only standard variants can be saved
FORM f4_display_variant USING varname LIKE disvariant-variant
 save TYPE c.
disvariant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = disvariant
 i_save = save
 IMPORTING
 es_variant = disvariant
 EXCEPTIONS
 not_found = 1
 program_error = 2
 OTHERS = 3.
IF sy-subrc = 0.
 varname = disvariant-variant.
ELSE.
 MESSAGE s245(56).
* Keine Anzeigevariante(n) vorhanden
ENDIF.
ENDFORM. " F4_DISPLAY_VARIANT
* FORM STANDARD_HEADINGS *
* Print standard page headings for report *
FORM standard_headings.
DATA: start_column TYPE i,
 title_len TYPE i,
 header_for_80_col(45),
 date_time_for_80_col(45),
 text_h0(11) VALUE 'Report No. ',
 text_h1(5) VALUE 'Date ',
 text_h2(6) VALUE 'Page -',
 text_h3(7) VALUE 'System ',
 text_h4(5) VALUE 'Time ',
 text_h5(11) VALUE 'Run By '.
FORMAT INTENSIFIED ON.
CONDENSE syst-title.
IF syst-linsz > 80.
 WRITE: / text_h0, "Report No.
 12 syst-repid(8),
 23 text_h1, "Date
 sy-datlo.
 title_len = STRLEN( syst-title ) / 2.
 start_column = ( syst-linsz / 2 ) - title_len.
 IF start_column < 40.
 start_column = 40.
 ENDIF.
 WRITE: AT start_column syst-title.
ELSE.
 WRITE: / text_h0, "Report No.
 12 syst-repid(8).
 start_column = 22.
 WRITE syst-title TO header_for_80_col CENTERED.
 WRITE: header_for_80_col.
ENDIF.
start_column = syst-linsz - 12.
WRITE: AT start_column text_h2, syst-pagno LEFT-JUSTIFIED.
IF syst-linsz > 80.
 WRITE: / text_h3, "System
 12 syst-sysid(4),
 syst-mandt,
 23 text_h4, "Time
 syst-timlo.
 WRITE: / text_h5, "Run By
 12 syst-uname.
ELSE.
 WRITE: / text_h3, "System
 12 syst-sysid(4),
 syst-mandt,
 23 text_h1, "Date
 syst-datlo.
 WRITE: / text_h5, "Run By
 12 syst-uname,
 23 text_h4, "Time
 syst-timlo.
ENDIF.
SKIP.
ENDFORM. "STANDARD_HEADINGS
* FORM PRINT_SELECTION_SCREEN *
* --> SIGN *
* --> OPTION *
* --> LOW *
* --> HIGH *
* --> D_IND *
* --> S_STRING *
FORM print_selection_screen TABLES r_selection TYPE table
 USING p_name
 p_length TYPE i
 p_ind
 p_start_col.
DATA: year(4) TYPE c,
 month(2) TYPE c,
 day(2) TYPE c,
 low_date(10) TYPE c,
 high_date(10) TYPE c,
 offset(80) TYPE c.
DATA: BEGIN OF l_selline,
 sign(1) TYPE c,
 option(2) TYPE c,
 data(200) TYPE c,
 END OF l_selline.
DATA: l_string(80) TYPE c,
 l_temp(80) TYPE c,
 len TYPE i,
 len1 TYPE i.
DESCRIBE FIELD p_name LENGTH len IN CHARACTER MODE.
len = len + p_start_col + 2.
LOOP AT r_selection.
 IF syst-tabix = 1.
 WRITE AT /p_start_col p_name.
 ELSE.
 len1 = ( STRLEN( l_string ) ).
 len = len1 + len + 2.
 ENDIF.
 MOVE r_selection TO l_selline.
 SHIFT l_selline-data LEFT DELETING LEADING '0'.
 CLEAR l_string.
 CASE l_selline-option.
 WHEN 'EQ'.
 CONCATENATE l_string '=' INTO l_string.
 WHEN 'NE'.
 CONCATENATE l_string 'not =' INTO l_string.
 WHEN 'LT'.
 CONCATENATE l_string '<' INTO l_string.
 WHEN 'GT'.
 CONCATENATE l_string '>' INTO l_string.
 WHEN 'LE'.
 CONCATENATE l_string '<=' INTO l_string.
 WHEN 'GE'.
 CONCATENATE l_string '>=' INTO l_string.
 WHEN 'BT'.
 CONCATENATE l_string 'between' INTO l_string.
 WHEN 'NB'.
 CONCATENATE l_string 'not between' INTO l_string.
 WHEN 'CP'.
 CONCATENATE l_string 'contains pattern' INTO l_string.
 WHEN 'NP'.
 CONCATENATE l_string 'no pattern' INTO l_string.
 ENDCASE.
 IF l_selline-sign EQ 'E'.
 CONCATENATE 'NOT' l_string INTO l_string SEPARATED BY ' '.
 ENDIF.
 IF p_ind EQ 'Y'.
 MOVE l_selline-data(4) TO year.
 MOVE l_selline-data+4(2) TO month.
 MOVE l_selline-data+6(2) TO day.
 CONCATENATE month '/' day '/' year INTO low_date.
 CONCATENATE l_string low_date INTO l_string SEPARATED BY ' '.
 IF l_selline-option EQ 'BT' OR l_selline-option EQ 'NB'.
 MOVE l_selline-data+p_length(4) TO year.
 offset = p_length + 4.
 MOVE l_selline-data+offset(2) TO month.
 ADD 2 TO offset.
 MOVE l_selline-data+offset(2) TO day.
 CONCATENATE month '/' day '/' year INTO high_date.
 CONCATENATE l_string 'and' high_date INTO l_string SEPARATED
 BY ' '.
 ENDIF.
 ELSE.
 MOVE l_selline-data(p_length) TO l_temp.
 CONCATENATE l_string l_temp INTO l_string SEPARATED BY ' '.
 IF l_selline-option EQ 'BT' OR l_selline-option EQ 'NB'.
 MOVE l_selline-data+p_length(p_length) TO l_temp.
 CONCATENATE l_string 'and' l_temp INTO l_string SEPARATED
 BY ' '.
 ENDIF.
 ENDIF.
 WRITE AT len l_string.
ENDLOOP.
IF syst-subrc <> 0.
 WRITE: AT /p_start_col p_name, ' *** ALL ***'.
ENDIF.
ENDFORM. "PRINT_SELECTION_SCREEN
* FORM CHECK_TCODE_AUTHORITY *
* Check User Security Against A SAP Transaction *
* --> a_tcode Transaction Code For Security *
FORM check_tcode_authority USING a_tcode.
* if tcode is not passed, then return ok.
IF NOT a_tcode IS INITIAL.
 CALL FUNCTION 'AUTHORITY_CHECK_TCODE'"Only People that
 EXPORTING " have access to
 tcode = a_tcode " Transaction t-tcode
 EXCEPTIONS " are ALLOWED to execute
 ok = 1 " this Program
 not_ok = 2.
 IF syst-subrc NE 1.
 MESSAGE a999(zz) WITH 'YOU Do Not Have Authority to Execute'.
 ENDIF.
ELSE.
 MOVE 1 TO syst-subrc.
ENDIF.
ENDFORM. "CHECK_TCODE_AUTHORITY
Shreekant

Interactive List : ALV + Normal List

Hi,
Please help me on this.
I haveto write an interactive report where the first screen would be an ALV list, on clicking the line item I need to display the detailed report in normal list. Also, the data displayed in the normal list is almost same as that displayed on ALV.I have created both types of output but dont know how to link them as interactive. any suggestions or help?

hi,
this is an ALV interactive report .in this you can find logic for interactive report.make use of it.
instead of alv make use of normal report for secondary list.
REPORT ZSR_ALV_INTERACTIVE.
TABLES : LFA1,EKKO,EKPO.
SELECT-OPTIONS : VENDOR FOR LFA1-LIFNR.
DATA : BEGIN OF ITAB OCCURS 0,
       LIFNR LIKE LFA1-LIFNR,
       NAME1 LIKE LFA1-NAME1,
       END OF ITAB.
DATA : BEGIN OF JTAB OCCURS 0,
       EBELN LIKE EKKO-EBELN,
       AEDAT LIKE EKKO-AEDAT,
       END OF JTAB.
DATA : BEGIN OF KTAB OCCURS 0,
       EBELP LIKE EKPO-EBELP,
       MATNR LIKE EKPO-MATNR,
       END OF KTAB.
TYPE-POOLS : SLIS.
DATA : REPID LIKE SY-REPID.
DATA :LFA1_B TYPE SLIS_T_FIELDCAT_ALV,
      LFA1_W TYPE SLIS_FIELDCAT_ALV,
      EKKO_B TYPE SLIS_T_FIELDCAT_ALV,
      EKKO_W TYPE SLIS_FIELDCAT_ALV,
      EKPO_B TYPE SLIS_T_FIELDCAT_ALV,
      EKPO_W TYPE SLIS_FIELDCAT_ALV,
      EVENTS_B TYPE SLIS_T_EVENT,
      EVENTS_W TYPE SLIS_ALV_EVENT.
PERFORM GET_VAL.
REPID = SY-REPID.
SELECT LIFNR NAME1 FROM LFA1 INTO TABLE ITAB WHERE LIFNR IN VENDOR.
*perform val USING USER_COMMAND sel.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
    I_CALLBACK_PROGRAM = REPID
    IT_FIELDCAT        = LFA1_B
    IT_EVENTS          = EVENTS_B
TABLES
    T_OUTTAB           = ITAB.
*&      Form GET_VAL
      text this is to put column headings
FORM GET_VAL.
LFA1_W-FIELDNAME = 'LIFNR'.
LFA1_W-REF_TABNAME = 'LFA1'.
LFA1_W-REF_FIELDNAME = 'LIFNR'.
APPEND LFA1_W TO LFA1_B.
LFA1_W-FIELDNAME = 'NAME1'.
LFA1_W-REF_TABNAME = 'LFA1'.
LFA1_W-REF_FIELDNAME = 'NAME1'.
APPEND LFA1_W TO LFA1_B.
EKKO_W-FIELDNAME = 'EBELN'.
EKKO_W-REF_TABNAME = 'EKKO'.
EKKO_W-REF_FIELDNAME = 'EBELN'.
APPEND EKKO_W TO EKKO_B.
EKKO_W-FIELDNAME = 'AEDAT'.
EKKO_W-REF_TABNAME = 'EKKO'.
EKKO_W-REF_FIELDNAME = 'AEDAT'.
APPEND EKKO_W TO EKKO_B.
EKPO_W-FIELDNAME = 'EBELP'.
EKPO_W-REF_TABNAME = 'EKPO'.
EKPO_W-REF_FIELDNAME = 'EBELP'.
APPEND EKPO_W TO EKPO_B.
EKPO_W-FIELDNAME = 'MATNR'.
EKPO_W-REF_TABNAME = 'EKPO'.
EKPO_W-REF_FIELDNAME = 'MATNR'.
APPEND EKPO_W TO EKPO_B.
EVENTS_W-NAME = 'USER_COMMAND'.
EVENTS_W-FORM = 'VAL'.
APPEND EVENTS_W TO EVENTS_B.
ENDFORM.                    "GET_VAL
*&      Form VAL
      text
     -->USER_COMMANtext
     -->SEL        text     for retrieving data
FORM VAL USING USER_COMMAND LIKE SY-UCOMM SEL TYPE SLIS_SELFIELD.
DATA : VEN(10) TYPE N,
         PO(10) TYPE N.
DATA : MAT(10) TYPE C.
IF SEL-FIELDNAME = 'LIFNR'.
    VEN = SEL-VALUE.
    SELECT EBELN AEDAT FROM EKKO INTO TABLE JTAB WHERE LIFNR = VEN.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM             = REPID
     I_STRUCTURE_NAME               = EKKO_B
      IT_FIELDCAT                    = EKKO_B
      IT_EVENTS                      = EVENTS_B
     TABLES
       T_OUTTAB                       = JTAB.
ENDIF.
IF SEL-FIELDNAME = 'EBELN'.
    PO = SEL-VALUE.
    SELECT EBELP MATNR FROM EKPO INTO TABLE KTAB WHERE EBELN = PO.
    CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
      EXPORTING
        I_TITLE            = 'ITEM DETAILS'
        I_TABNAME          = 'EKPO'
        IT_FIELDCAT        = EKPO_B
        I_CALLBACK_PROGRAM = REPID
      IMPORTING
        ES_SELFIELD        = SEL
      TABLES
        T_OUTTAB           = KTAB.
ENDIF.
logic to select a record
IF SEL-FIELDNAME = 'MATNR'.
    MAT = SEL-VALUE.
    SET PARAMETER ID 'MAT' FIELD MAT.
    CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM.                    "VAL

SIMPLE DOUBT IN ALV INTERACTIVE REPORTING

HI EXPERETS,
This is part of code in alv interactive reporting.
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'.
 READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
 PERFORM BUILD_FIELDCATLOG_EKPO.
 PERFORM EVENT_CALL_EKPO.
 PERFORM POPULATE_EVENT_EKPO.
 PERFORM DATA_RETRIEVAL_EKPO.
 PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
 PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM. "user_command
In This i didn't get wat's the meaning of WHEN '&IC1'.What is
actually &IC1 means.
plz help me.
Regards
Suresh kumar

HI
PLZ REFER TO THIS
*& Report ZTESTDEMO_INTERACTIVE_LIST_2
REPORT ZTESTDEMO_INTERACTIVE_LIST_2.
TABLES: MARA,MARC,MARD.
* internal table itab_mara 3 fields matnr, ernam,mtart
DATA: BEGIN OF ITAB_MARA OCCURS 0,
MATNR LIKE MARA-MATNR, " material number
ERNAM LIKE MARA-ERNAM, " name of person who create
MTART LIKE MARA-MTART, " Material Type
END OF ITAB_MARA.
* internal table itab_marc 3 fields matnr, werks,lvorm
DATA: BEGIN OF ITAB_MARC OCCURS 0,
MATNR LIKE MARC-MATNR,
WERKS LIKE MARC-WERKS, " Plant
LVORM LIKE MARC-LVORM, " Flag Material for Deletion at Plant Level
END OF ITAB_MARC.
* internal table itab_mard 2 fields
DATA: BEGIN OF ITAB_MARD OCCURS 0,
MATNR LIKE MARD-MATNR,
LGORT LIKE MARD-LGORT, " Storage Location
END OF ITAB_MARD.
SELECT-OPTIONS: S_MTART FOR MARA-MTART.
INITIALIZATION.
S_MTART-LOW = 'HALB'.
S_MTART-HIGH = 'HAWA'.
S_MTART-OPTION = 'BT'.
APPEND S_MTART.
START-OF-SELECTION.
SELECT MATNR ERNAM MTART FROM MARA INTO TABLE ITAB_MARA WHERE MTART IN
S_MTART.
PERFORM DISPLAY.
TOP-OF-PAGE.
WRITE:/2(15) 'MATERIAL NO',20(20) 'CREATED BY',45(15) 'MATERIAL TYPE'.
FORM DISPLAY.
LOOP AT ITAB_MARA.
WRITE:/ ITAB_MARA-MATNR UNDER 'MATERIAL NO' HOTSPOT ON,ITAB_MARA-ERNAM
UNDER 'CREATED BY',ITAB_MARA-MTART UNDER 'MATERIAL TYPE'.
HIDE: ITAB_MARA-MATNR.
ENDLOOP.
ENDFORM.
AT LINE-SELECTION.
CASE SY-LSIND.
WHEN 1.
SELECT MATNR WERKS LVORM FROM MARC INTO TABLE ITAB_MARC WHERE MATNR =
ITAB_MARA-MATNR.
PERFORM DISPLAY1.
WHEN 2.
SELECT MATNR LGORT FROM MARD INTO TABLE ITAB_MARD WHERE MATNR =
ITAB_MARC-MATNR.
PERFORM DISPLAY2.
when 3.
sy-lsind = 0.
ENDCASE.
FORM DISPLAY1.
LOOP AT ITAB_MARC.
WRITE:/ ITAB_MARC-MATNR HOTSPOT ON, ITAB_MARC-WERKS,ITAB_MARC-LVORM.
HIDE: ITAB_MARC-MATNR.
ENDLOOP.
WRITE:/ SY-LSIND.
ENDFORM.
FORM DISPLAY2.
LOOP AT ITAB_MARD.
WRITE:/ ITAB_MARD-MATNR, ITAB_MARD-LGORT.
ENDLOOP.
WRITE:/ SY-LSIND.
ENDFORM.
regards
ravish
plz dont forget to reward points if useful

Editable field in ALV GRID/LIST

Hi All,
I developed an alv program in which 10 rows is there. In alv grid/list first column is check box. I want 1,5 and 10th row is editable for first column (check box) while rest is not editable. Can you please give solution for same. Please tell me simple method not oops methos
coz I have taken FM REUSE_ALV_GRID_DISPLAY or REUSE_ALV_LIST_DISPLAY.
Thanks,
Rakesh

goto se38.
BCALVEDIT*
press F4
many examples are there..
BCALV_GRID_EDIT try this...

ALV Interactive

Hi,
1)In ALV, how many secondary lists we can have and how ?
2) In upgradation project (for example from 4.6c to Mysap ECC 6.0 version), what are the tools we use to find the object/objects to be upgrated?
thnaks in advance
Jana

hi,
ex: alv interactive.
ZSR_ALV_INTERACTIVE.
TABLES : LFA1,EKKO,EKPO.
SELECT-OPTIONS : VENDOR FOR LFA1-LIFNR.
DATA : BEGIN OF ITAB OCCURS 0,
       LIFNR LIKE LFA1-LIFNR,
       NAME1 LIKE LFA1-NAME1,
       END OF ITAB.
DATA : BEGIN OF JTAB OCCURS 0,
       EBELN LIKE EKKO-EBELN,
       AEDAT LIKE EKKO-AEDAT,
       END OF JTAB.
DATA : BEGIN OF KTAB OCCURS 0,
       EBELP LIKE EKPO-EBELP,
       MATNR LIKE EKPO-MATNR,
       END OF KTAB.
TYPE-POOLS : SLIS.
DATA : REPID LIKE SY-REPID.
DATA :LFA1_B TYPE SLIS_T_FIELDCAT_ALV,
      LFA1_W TYPE SLIS_FIELDCAT_ALV,
      EKKO_B TYPE SLIS_T_FIELDCAT_ALV,
      EKKO_W TYPE SLIS_FIELDCAT_ALV,
      EKPO_B TYPE SLIS_T_FIELDCAT_ALV,
      EKPO_W TYPE SLIS_FIELDCAT_ALV,
      EVENTS_B TYPE SLIS_T_EVENT,
      EVENTS_W TYPE SLIS_ALV_EVENT.
PERFORM GET_VAL.
REPID = SY-REPID.
SELECT LIFNR NAME1 FROM LFA1 INTO TABLE ITAB WHERE LIFNR IN VENDOR.
*perform val USING USER_COMMAND sel.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
    I_CALLBACK_PROGRAM = REPID
    IT_FIELDCAT        = LFA1_B
    IT_EVENTS          = EVENTS_B
TABLES
    T_OUTTAB           = ITAB.
*&      Form GET_VAL
      text this is to put column headings
FORM GET_VAL.
LFA1_W-FIELDNAME = 'LIFNR'.
LFA1_W-REF_TABNAME = 'LFA1'.
LFA1_W-REF_FIELDNAME = 'LIFNR'.
APPEND LFA1_W TO LFA1_B.
LFA1_W-FIELDNAME = 'NAME1'.
LFA1_W-REF_TABNAME = 'LFA1'.
LFA1_W-REF_FIELDNAME = 'NAME1'.
APPEND LFA1_W TO LFA1_B.
EKKO_W-FIELDNAME = 'EBELN'.
EKKO_W-REF_TABNAME = 'EKKO'.
EKKO_W-REF_FIELDNAME = 'EBELN'.
APPEND EKKO_W TO EKKO_B.
EKKO_W-FIELDNAME = 'AEDAT'.
EKKO_W-REF_TABNAME = 'EKKO'.
EKKO_W-REF_FIELDNAME = 'AEDAT'.
APPEND EKKO_W TO EKKO_B.
EKPO_W-FIELDNAME = 'EBELP'.
EKPO_W-REF_TABNAME = 'EKPO'.
EKPO_W-REF_FIELDNAME = 'EBELP'.
APPEND EKPO_W TO EKPO_B.
EKPO_W-FIELDNAME = 'MATNR'.
EKPO_W-REF_TABNAME = 'EKPO'.
EKPO_W-REF_FIELDNAME = 'MATNR'.
APPEND EKPO_W TO EKPO_B.
EVENTS_W-NAME = 'USER_COMMAND'.
EVENTS_W-FORM = 'VAL'.
APPEND EVENTS_W TO EVENTS_B.
ENDFORM.                    "GET_VAL
*&      Form VAL
      text
     -->USER_COMMANtext
     -->SEL        text     for retrieving data
FORM VAL USING USER_COMMAND LIKE SY-UCOMM SEL TYPE SLIS_SELFIELD.
DATA : VEN(10) TYPE N,
         PO(10) TYPE N.
DATA : MAT(10) TYPE C.
IF SEL-FIELDNAME = 'LIFNR'.
    VEN = SEL-VALUE.
    SELECT EBELN AEDAT FROM EKKO INTO TABLE JTAB WHERE LIFNR = VEN.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM             = REPID
     I_STRUCTURE_NAME               = EKKO_B
      IT_FIELDCAT                    = EKKO_B
      IT_EVENTS                      = EVENTS_B
     TABLES
       T_OUTTAB                       = JTAB.
ENDIF.
IF SEL-FIELDNAME = 'EBELN'.
    PO = SEL-VALUE.
    SELECT EBELP MATNR FROM EKPO INTO TABLE KTAB WHERE EBELN = PO.
    CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
      EXPORTING
        I_TITLE            = 'ITEM DETAILS'
        I_TABNAME          = 'EKPO'
        IT_FIELDCAT        = EKPO_B
        I_CALLBACK_PROGRAM = REPID
      IMPORTING
        ES_SELFIELD        = SEL
      TABLES
        T_OUTTAB           = KTAB.
ENDIF.
logic to select a record
IF SEL-FIELDNAME = 'MATNR'.
    MAT = SEL-VALUE.
    SET PARAMETER ID 'MAT' FIELD MAT.
    CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM.                    "VAL
You have to aware of all related program like BDC's , Screens related errors and all dictionary related problems.
Some function modules may become obsolete, and some screens will change
abnd some new fields will be added in the new versions etc.
Also take care of SPAU and SPDD tcodes.
You should be able to know about Unicode concept in sap.
Upgrading within a new version of SAP R/3 :
The upgrade process for the SAP R/3 application does not modify any of the adapter's ABAP development, but it may modify the SAP R/3 application so that some of the adapter's ABAP development does not work properly.
This section describes how to upgrade the adapter's ABAP development in an upgraded SAP R/3 application. Before you can upgrade the adapter, you must have already upgraded your SAP R/3 application.
To upgrade the adapter's ABAP development:
Install the latest ABAP Extension Module transport files for the correct version of the SAP R/3 application.
You must install the correct version-specific transport files. For details on installing these transport files, see Connector transport file installation.
Compile all programs and resolve syntax errors associated with the ABAP development.
The easiest way to find syntax errors is to generate each function group associated with each object and fix the errors one at time. Repeat this process until all function groups compile successfully. Be sure to generate any other programs such as triggering programs that are not associated with a function group. Be aware that minor updates may need to be made to your ABAP triggering programs after applying the required new transports to upgrade the adapter.
If you are upgrading to SAP R/3 version 4.x, note that the 4.x ABAP handlers use the product namespace /CWLD/. For special considerations for upgrading to the connector supporting SAP R/3 version 4.x, see Connector for SAP R/3.
Test the new environment and make modifications as needed.
Only a full system test enables you to work out any problems with the upgrade. Test your event detection mechanisms by running the appropriate transaction or program and sending business objects to the SAP system. Use the connector's log within the SAP system to help identify other issues.
chk this
http://www.thespot4sap.com/upgrade_guide_v2.pdf#search=%22upGRADE%20STEPS%20-%20SAP%22
also chk these 2 notes in service.sap.com
Technical Upgrade is only a version upgrade without any functionality changes.
The objects that are needed to be upgraded are:
Includes
Function Groups / Function Modules
Programs / Reports
OSS Notes
SAP Repository Objects
SAP Data Dictionary Objects
Domains, Data Elements
Tables, Structures and Views
Module Pools, Sub Routine pools
BDC Programs
Print Programs
SAP Scripts, Screens
User Exits
You can refer to the below links for more information on technical upgrade:
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/profile/2007/05/07/upgradeFROMR3TOmySAPERP-PARTII&
https://wiki.sdn.sap.com/wiki/display/profile/UPGRADEFROMR3TOmySAPERP-PARTIII
http://help.sap.com/saphelp_nw2004s/helpdata/en/60/d6ba7bceda11d1953a0000e82de14a/content.htm
http://help.sap.com/saphelp_nw04/helpdata/en/2e/6d66647d9011d396b60000e82de14a/content.htm
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/5ac31178-0701-0010-469a-b4d7fa2721ca
Refer to these related threads
Re: Role of ABAP Developer in Upgrade Projects
ABAP developer part in an upgrade project

Simple ALV interactive list...

Similar Messages

Maybe you are looking for