Regarding alv tree output

Question

Hi all,
          I am working in oops alv tree.
           i have written the code i m getting the tree i.e frst output, but when i am try to get the second one i m not able.
frnds below i m giving my code plz suggest wht is my mistake.
<code>
REPORT  yh_alvtreedemo1.
TYPE-POOLS : fibs,stree.
TYPE-POOLS:slis.
DATA : t_node TYPE snodetext.
DATA : it_node LIKE TABLE OF t_node,
       wa_node LIKE t_node.
DATA: t_fieldcat    TYPE slis_t_fieldcat_alv,
      fs_fieldcat   TYPE slis_fieldcat_alv.
DATA:w_repid LIKE sy-repid.
*Internal Table declarations
DATA: BEGIN OF fs_scarr,
        carrid LIKE scarr-carrid,
      END OF fs_scarr.
      DATA:BEGIN OF fs_spfli,
        carrid LIKE spfli-carrid,
        connid LIKE spfli-connid,
     END OF fs_spfli.
DATA:BEGIN OF fs_sflight,
        carrid LIKE sflight-carrid,
        connid LIKE sflight-connid,
        fldate LIKE sflight-fldate,
     END OF fs_sflight.
DATA:BEGIN OF fs_sbook,
        carrid LIKE sbook-carrid,
        connid LIKE sbook-connid,
        fldate LIKE sbook-fldate,
        bookid LIKE sbook-bookid,
     END OF fs_sbook.
DATA:t_scarr LIKE TABLE OF fs_scarr,
     t_spfli LIKE TABLE OF fs_spfli,
     t_sflight LIKE TABLE OF fs_sflight,
     t_sbook LIKE TABLE OF fs_sbook.
     START-OF-SELECTION.
  PERFORM get_data.
  PERFORM build_tree.
  PERFORM display_tree.
*&      Form  get_data
FORM get_data .
SELECT carrid
         FROM scarr
         INTO TABLE t_scarr.
  SELECT carrid
          connid
          FROM spfli
          INTO TABLE t_spfli
          FOR ALL ENTRIES IN t_scarr
          WHERE carrid EQ t_scarr-carrid.
          ENDFORM.                    " get_data
*&      Form  build_tree
FORM build_tree .
  CLEAR: it_node,
         wa_node.
  SORT: t_scarr BY carrid,
        t_spfli BY carrid connid,
        t_sflight BY carrid connid fldate,
        t_sbook BY carrid connid fldate bookid.
        wa_node-type = 'T'.
        wa_node-name = 'Flight Details'.
        wa_node-tlevel = '01'.
        wa_node-nlength = '15'.
        wa_node-color = '4'.
          wa_node-text = 'Flight'.
  wa_node-tlength ='20'.
  wa_node-tcolor = 3.
  APPEND wa_node TO it_node.
  CLEAR wa_node.
  LOOP AT t_scarr INTO fs_scarr.
  wa_node-type = 'P'.
  wa_node-name = 'CARRID'.
  wa_node-tlevel = '02'.
  wa_node-nlength = '8'.
  wa_node-color = '1'.
  wa_node-text = fs_scarr-carrid.
  wa_node-tlength ='20'.
  wa_node-tcolor = 4.
  APPEND wa_node TO it_node.
    CLEAR wa_node.
    LOOP AT t_spfli INTO fs_spfli WHERE carrid EQ fs_scarr-carrid.
    wa_node-type = 'P'.
    wa_node-name = 'CONNID'.
    wa_node-tlevel = '03'.
    wa_node-nlength = '8'.
    wa_node-color = '1'.
    wa_node-text = fs_spfli-connid.
    wa_node-tlength ='20'.
    wa_node-tcolor = 4.
    APPEND wa_node TO it_node.
    CLEAR wa_node.    ENDLOOP.
  ENDLOOP.
ENDFORM.                    " build_tree
*&      Form  display_tree
FORM display_tree .
  CALL FUNCTION 'RS_TREE_CONSTRUCT'
    TABLES
      nodetab = it_node.
      w_repid = sy-repid.
      CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
      EXPORTING
      callback_program      = w_repid
      callback_user_command = 'USER_COMMAND'
      callback_gui_status   = 'SET_PF'.
ENDFORM.                    " display_tree
*&      Form  pick
     -->COMMAND    text
     -->NODE       text
FORM user_command    TABLES pt_nodes STRUCTURE seucomm
                      USING pv_command TYPE c
                  CHANGING pv_exit     TYPE c
                  pv_list_refresh      TYPE c.
           pv_list_refresh = 'X'.
           IF pt_nodes-tlevel = '03'.
           CLEAR t_fieldcat[].
           SELECT carrid
                  connid
                  fldate
           FROM   sflight
           INTO TABLE t_sflight
           WHERE connid EQ pt_nodes-text.
    fs_fieldcat-col_pos = 1.
    fs_fieldcat-fieldname = 'CARRID'.
    fs_fieldcat-seltext_m = 'Airlinecarrier'.
    fs_fieldcat-key = 'X'.
    fs_fieldcat-hotspot = 'X'.
    APPEND fs_fieldcat TO t_fieldcat.
    CLEAR fs_fieldcat.    fs_fieldcat-col_pos = 2.
    fs_fieldcat-fieldname = 'CONNID'.
    fs_fieldcat-seltext_m = 'Connection No'.
    fs_fieldcat-key = 'X'.
    fs_fieldcat-hotspot = 'X'.
    APPEND fs_fieldcat TO t_fieldcat.
    CLEAR fs_fieldcat.    fs_fieldcat-col_pos = 3.
    fs_fieldcat-fieldname = 'FLDATE'.
    fs_fieldcat-seltext_m = 'Flight Date'.
    fs_fieldcat-key = 'X'.
    fs_fieldcat-hotspot = 'X'.
    APPEND fs_fieldcat TO t_fieldcat.
    CLEAR fs_fieldcat.
    w_repid = sy-repid.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        i_callback_program = w_repid
        it_fieldcat        = t_fieldcat[]
      TABLES
        t_outtab           = t_sflight.
  ENDIF.
ENDFORM.                    "pick
*&      Form  set_pf
      text
FORM set_pf.
  SET PF-STATUS 'MYPF'.
ENDFORM.                    "set_pf
</code>

Answer 1

Hi kamal,
here is the referance code u go through this may be u get some help...
REPORT  ZASHU_TREE_MATHOD2.
*TABLES: KNVH.
TABLES: pa0002.
TYPES: BEGIN OF WORKTYPE,
         LEVEL(2),
          pernr like pa0002-pernr,
         begda like pa0002-begda,
          endda like pa0002-endda,
         aedat like pa0002-aedat,
        HKUNNR LIKE KNVH-KUNNR,
        KUNNR  LIKE KNVH-HKUNNR,
       END OF WORKTYPE.
DATA: IT_pa0002 TYPE TABLE OF WORKTYPE,
      WA_pa0002 LIKE LINE OF IT_pa0002,
      IT_TEMP TYPE TABLE OF WORKTYPE,
      WA_TEMP LIKE LINE OF IT_TEMP,
      IT_WORK TYPE TABLE OF WORKTYPE,
      WA_WORK LIKE LINE OF IT_WORK.
DATA : BEGIN OF IT_NODES OCCURS 0.
        INCLUDE STRUCTURE SNODETEXT.
DATA : END OF IT_NODES.
CONSTANTS: NUMBER_OF_LEVELS TYPE I VALUE 4.
PARAMETER: P_pernr LIKE pa0002-pernr.
START-OF-SELECTION.
Parent = 1. hierarchy node
WA_TEMP-pernr = P_pernr  .
APPEND WA_TEMP TO IT_TEMP.
WA_WORK-pernr = WA_TEMP-pernr.
WA_WORK-LEVEL = 1.
APPEND WA_WORK TO IT_WORK.
Reading customer hierarchy (max. 6 level)
DO NUMBER_OF_LEVELS TIMES.
  CHECK NOT IT_TEMP IS INITIAL.
  SELECT pernr endda
    FROM pa0002
    INTO CORRESPONDING FIELDS OF TABLE IT_pa0002
    FOR ALL ENTRIES IN IT_TEMP
    WHERE pernr = IT_TEMP-pernr.
  LOOP AT IT_pa0002 INTO WA_pa0002.
    WA_pa0002-LEVEL = SY-INDEX + 1.
    APPEND WA_pa0002 TO IT_WORK.
  ENDLOOP.
  IT_TEMP[] = IT_pa0002[].
ENDDO.
PERFORM MAKE_NODE.
Hierarchy nodes -> tree control
LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 1.
  PERFORM MAKE_NODE1.
  LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 2 AND
                                   pernr = WA_WORK-pernr.
   PERFORM MAKE_NODE.
   LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 3 AND
                                      HKUNNR = WA_WORK-KUNNR.
     PERFORM MAKE_NODE.
     LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 4 AND
                                        HKUNNR = WA_WORK-KUNNR.
       PERFORM MAKE_NODE.
       LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 5 AND
                                          HKUNNR = WA_WORK-KUNNR.
         PERFORM MAKE_NODE.
         LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 6 AND
                                         HKUNNR = WA_WORK-KUNNR.
           PERFORM MAKE_NODE.
         ENDLOOP.
       ENDLOOP.
     ENDLOOP.
   ENDLOOP.
  ENDLOOP.
ENDLOOP.
Making the tree control
CALL FUNCTION 'RS_TREE_CONSTRUCT'
       TABLES
            NODETAB      = IT_NODES
       EXCEPTIONS
            TREE_FAILURE = 1.
Display the tree control
  DATA : F15 TYPE C.
  CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
       EXPORTING
            CALLBACK_PROGRAM      = SY-REPID
       IMPORTING
            F15                   = F15 .
FORM MAKE_NODE.
IT_NODES-type = 'T'.
  IT_NODES-NAME = WA_WORK-pernr.
  IT_NODES-COLOR = 1.
  IT_NODES-INTENSIV = 1.
  IT_NODES-TEXT = WA_WORK-pernr.
  IT_NODES-TLENGTH = 16.
  IT_NODES-TLEVEL = WA_WORK-LEVEL.
  IT_NODES-TCOLOR = 1.
  IT_NODES-TINTENSIV = 1.
  APPEND IT_NODES.
ENDFORM.
FORM MAKE_NODE1.
IT_NODES-type = 'P'.
  IT_NODES-NAME = WA_WORK-pernr.
  IT_NODES-COLOR = 1.
  IT_NODES-INTENSIV = 1.
  IT_NODES-TEXT = WA_WORK-pernr.
  IT_NODES-TLENGTH = 16.
  IT_NODES-TLEVEL = WA_WORK-LEVEL.
  IT_NODES-TCOLOR = 1.
  IT_NODES-TINTENSIV = 1.
  APPEND IT_NODES.
ENDFORM.
Thanks and Regards
Ashu Singh