Done with basic and first detail list but not able to do with second detail list ,,,,..........kindly help
TYPE-POOLS: SLIS .
TABLES : KNA1 .
TYPES : BEGIN OF TY_KNA1 ,
KUNNR TYPE KNA1-KUNNR ,
NAME1 TYPE KNA1-NAME1 ,
LAND1 TYPE KNA1-LAND1 ,
END OF TY_KNA1 .
TYPES : BEGIN OF TY_VBAK ,
VBELN TYPE VBAK-VBELN ,
ERDAT TYPE VBAK-ERDAT ,
NETWR TYPE VBAK-NETWR ,
END OF TY_VBAK .
TYPES : BEGIN OF TY_VBAP ,
POSNR TYPE VBAP-POSNR ,
ARKTX TYPE VBAP-ARKTX ,
WERKS TYPE VBAP-WERKS ,
END OF TY_VBAP .
DATA : X TYPE I .
DATA : T_KNA1 TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 1 ,
T_VBAK TYPE STANDARD TABLE OF TY_VBAK INITIAL SIZE 1 ,
T_VBAP TYPE STANDARD TABLE OF TY_VBAP INITIAL SIZE 1 .
DATA : W_KNA1 TYPE TY_KNA1 ,
W_VBAK TYPE TY_VBAK ,
W_VBAP TYPE TY_VBAP .
DATA : W_FCAT TYPE SLIS_FIELDCAT_ALV .
DATA : T_FCAT TYPE SLIS_T_FIELDCAT_ALV .
DATA : T_FCAT1 TYPE SLIS_T_FIELDCAT_ALV .
DATA : T_FCAT2 TYPE SLIS_T_FIELDCAT_ALV .
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 .
DATA : V_PROG TYPE SY-REPID .
V_PROG = SY-REPID .
SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR .
W_FCAT-COL_POS = 1 .
W_FCAT-FIELDNAME = 'KUNNR '.
W_FCAT-SELTEXT_M = 'CUST NO'.
APPEND W_FCAT TO T_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 = 'LAND1 '.
W_FCAT-SELTEXT_M = 'CUST COUNTRY'.
APPEND W_FCAT TO T_FCAT .
W_FCAT-COL_POS = 1.
W_FCAT-FIELDNAME = 'VBELN '.
W_FCAT-SELTEXT_M = 'ORDER NO'.
APPEND W_FCAT TO T_FCAT1 .
W_FCAT-COL_POS = 2 .
W_FCAT-FIELDNAME = 'ERDAT '.
W_FCAT-SELTEXT_M = 'ORDER DATA'.
APPEND W_FCAT TO T_FCAT1 .
W_FCAT-COL_POS = 3.
W_FCAT-FIELDNAME = 'NETWR '.
W_FCAT-SELTEXT_M = 'NET VALUE'.
APPEND W_FCAT TO T_FCAT1 .
W_FCAT-COL_POS = 1.
W_FCAT-FIELDNAME = 'POSNR '.
W_FCAT-SELTEXT_M = 'SALES ITEM '.
APPEND W_FCAT TO T_FCAT2 .
W_FCAT-COL_POS = 2.
W_FCAT-FIELDNAME = 'ARKTX '.
W_FCAT-SELTEXT_M = 'SALES DESC'.
APPEND W_FCAT TO T_FCAT2 .
W_FCAT-COL_POS = 3.
W_FCAT-FIELDNAME = 'WERKS '.
W_FCAT-SELTEXT_M = 'PLANT'.
APPEND W_FCAT TO T_FCAT2 .
W_FCAT-COL_POS = 3.
W_FCAT-FIELDNAME = 'NETWR '.
W_FCAT-SELTEXT_M = 'NET VALUE'.
APPEND W_FCAT TO T_FCAT1 .
W_EVENTS-NAME = 'USER_COMMAND'.
W_EVENTS-FORM = 'SUB1'.
APPEND W_EVENTS TO T_EVENTS .
SELECT KUNNR
NAME1
LAND1 FROM KNA1 INTO TABLE T_KNA1
WHERE KUNNR IN S_KUNNR .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = V_PROG
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_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_GRID_SETTINGS =
* IS_LAYOUT =
IT_FIELDCAT = T_FCAT
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
IT_EVENTS = T_EVENTS
* 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
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = T_KNA1
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
*HIDE : ITAB-KUNNR ,ITAB-NAME1 .
*AT LAST .
* X = SY-LINCT - SY-LINNO .
* RESERVE X LINES .
*
*ENDAT .
*ENDLOOP .
************************************************************************
* *
************************************************************************
*AT LINE-SELECTION .
*GET CURSOR FIELD FNAME.
* case SY-LSIND .
* WHEN '1' .
************************************************************************
* FIRST DETAILED LIST *
************************************************************************
W_EVENTS1-NAME = 'USER_COMMAND'.
W_EVENTS1-FORM = 'SUB2'.
APPEND W_EVENTS1 TO T_EVENTS1 .
FORM SUB1 USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD .
*IF FNAME = 'KNA1-KUNNR' .
SELECT VBELN
ERDAT
NETWR FROM VBAK INTO TABLE T_VBAK
WHERE KUNNR = RS_SELFIELD-VALUE .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_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_GRID_SETTINGS =
* IS_LAYOUT =
IT_FIELDCAT = T_FCAT1
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* 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
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = T_VBAK
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
ENDFORM .
FORM SUB2 USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
SELECT POSNR
ARKTX
WERKS FROM VBAP INTO TABLE T_VBAP WHERE VBELN = RS_SELFIELD-VALUE .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_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_GRID_SETTINGS =
* IS_LAYOUT =
IT_FIELDCAT = T_FCAT2
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
IT_EVENTS = T_EVENTS1
* 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
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = T_VBAP
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
ENDFORM .