Recently I start to study SD and I found the product hierarchy in transaction code V/76 could not be viewed in tree style and it is not so convenient to check:

So I wrote a simple report to retrieve hierarchy data from table T179 and display the data in a tree as below:

The source code of report is listed below:

REPORT zdisplay_hierarchy.DATA: g_alv_tree TYPE REF TO cl_gui_alv_tree,  gt_data TYPE STANDARD TABLE OF zcl_alv_tool=>ty_displayed_node,  ok_code LIKE sy-ucomm,  save_ok LIKE sy-ucomm,  ls_data LIKE LINE OF gt_data.END-OF-SELECTION.  DATA(lo_tool) = NEW zcl_alv_tool( ).  DATA(lt_fieldcat) = lo_tool->get_fieldcat_by_data( ls_data ).  PERFORM change_label.  CALL SCREEN 100.MODULE pbo OUTPUT.  SET PF-STATUS 'MAIN100'.  SET TITLEBAR 'MAINTITLE'.  IF g_alv_tree IS INITIAL.  PERFORM init_tree.  CALL METHOD cl_gui_cfw=>flush  EXCEPTIONS  cntl_system_error = 1  cntl_error = 2.  ASSERT sy-subrc = 0.  ENDIF.ENDMODULE. " PBO OUTPUTMODULE pai INPUT.  save_ok = ok_code.  CLEAR ok_code.  CASE save_ok.  WHEN 'EXIT' OR 'BACK' OR 'CANC'.  PERFORM exit_program.  WHEN OTHERS.  CALL METHOD cl_gui_cfw=>dispatch.  ENDCASE.  CALL METHOD cl_gui_cfw=>flush.ENDMODULE. " PAI INPUTFORM change_label.  READ TABLE lt_fieldcat ASSIGNING FIELD-SYMBOL(<id>) INDEX 1.  <id>-seltext = <id>-reptext = <id>-scrtext_m = <id>-scrtext_s = <id>-scrtext_l = 'Hierarchy ID'.  <id>-outputlen = 20.  READ TABLE lt_fieldcat ASSIGNING FIELD-SYMBOL(<text>) INDEX 2.  <text>-seltext = <text>-reptext = <text>-scrtext_m = <text>-scrtext_l = 'Description'.  <text>-scrtext_s = 'Text'.  <text>-outputlen = 40.ENDFORM.FORM init_tree.  g_alv_tree = lo_tool->get_tree( ).  DATA l_hierarchy_header TYPE treev_hhdr.  PERFORM build_hierarchy_header CHANGING l_hierarchy_header.  CALL METHOD g_alv_tree->set_table_for_first_display  EXPORTING  is_hierarchy_header = l_hierarchy_header  CHANGING  it_fieldcatalog = lt_fieldcat  it_outtab = gt_data.  PERFORM create_tree.  g_alv_tree->frontend_update( ).  lo_tool->expand( ).ENDFORM.FORM create_tree.  DATA(lt_data) = lo_tool->get_hierarchy_data( ).  lo_tool->draw_tree( lt_data ).ENDFORM. " init_treeFORM build_hierarchy_header CHANGING p_hierarchy_header TYPE treev_hhdr.  p_hierarchy_header-heading = 'Material hierarchy'.  p_hierarchy_header-width = 30.  p_hierarchy_header-width_pix = ' '.ENDFORM. " build_hierarchy_headerFORM exit_program.  LEAVE PROGRAM.ENDFORM. " exit_program

In order to use the report, all you need is to just create a new screen :

And drag a custom container to screen with name “CCONTAINER1”:

要获取更多Jerry的原创文章，请关注公众号"汪子熙":