{"id":1350,"date":"2015-03-18T15:13:17","date_gmt":"2015-03-18T14:13:17","guid":{"rendered":"http:\/\/oprsteny.cz\/?p=1350"},"modified":"2015-03-18T15:16:37","modified_gmt":"2015-03-18T14:16:37","slug":"abap-grouping-fields-in-field-catalog","status":"publish","type":"post","link":"https:\/\/oprsteny.cz\/?p=1350","title":{"rendered":"ABAP – Grouping fields in field catalog"},"content":{"rendered":"

\"SAP\"In some cases you find a report with ALV output where there are maybe hundreds of fields available to be displayed. This can be VERY confusing for the user when he tries to select just few fields he wants to display but all fields are listed in one HUGE list together.<\/p>\n

<\/p>\n

This example shows how to group fields that can be separated with some logic, e.g. fields from MARA, fields from MARC, fields from MARD, …<\/p>\n

When you create such groups, user can make a pre-selection by selecting the GROUP <\/em>and then only fields belonging to that specific group are being offered for selection in ALV FILTER<\/em> or LAYOUT<\/em> change.<\/p>\n

Let’s take a look at how such code might look like<\/p>\n

First we define our global data and their types<\/p>\n

TYPES:\r\n* Type definition for an ALV line\r\n  BEGIN OF ts_data,\r\n    mara TYPE mara,\r\n    marc TYPE marc,\r\n    mard TYPE mard,\r\n  END OF ts_data,\r\n\r\n* ALV lines table type definition\r\n  tt_data TYPE TABLE OF ts_data.\r\n\r\nDATA:\r\n  gt_data       TYPE tt_data,     \"ALV data\r\n  gt_fcat       TYPE lvc_t_fcat,  \"ALV Field Calatog\r\n  gt_alv_groups TYPE lvc_t_sgrp,  \"ALV Field Groups\r\n  go_grid       TYPE REF TO cl_gui_alv_grid,\r\n  go_container  TYPE REF TO cl_gui_custom_container.<\/pre>\n
Now we add the core functionality – we assume there is a screen 0100 created with custom control called GO_CONTAINER<\/p>\n
START-OF-SELECTION.\r\n  PERFORM load_data CHANGING gt_data.\r\n\r\n  PERFORM build_fcat CHANGING gt_fcat\r\n                              gt_alv_groups.\r\n  CALL SCREEN 100.\r\n\r\n* This is the only PBO module of screen 0100\r\nMODULE 0100_pbo OUTPUT.\r\n  PERFORM display_alv.\r\nENDMODULE.<\/pre>\n
We load data from MARA (up to 10 entries) and all their corresponding sub-entries from tables MARC and MARD.<\/p>\n
* Load data from MARA-MARC-MARD for up to 10 materials\r\nFORM load_data CHANGING ct_data TYPE tt_data.\r\n  DATA:\r\n    lt_mara TYPE TABLE OF mara,\r\n    lt_marc TYPE TABLE OF marc,\r\n    lt_mard TYPE TABLE OF mard,\r\n    ls_data TYPE ts_data.\r\n\r\n  SELECT *\r\n    FROM mara\r\n    INTO TABLE lt_mara\r\n    UP TO 10 ROWS.\r\n\r\n  SELECT *\r\n    FROM marc\r\n    INTO TABLE lt_marc\r\n    FOR ALL ENTRIES IN lt_mara\r\n    WHERE matnr = lt_mara-matnr.\r\n\r\n  SELECT *\r\n    FROM mard\r\n    INTO TABLE lt_mard\r\n    FOR ALL ENTRIES IN lt_marc\r\n    WHERE matnr = lt_marc-matnr\r\n      AND werks = lt_marc-werks.\r\n\r\n  LOOP AT lt_mara ASSIGNING FIELD-SYMBOL(<ls_mara>).\r\n    CLEAR ls_data.\r\n    ls_data-mara = <ls_mara>.\r\n\r\n    READ TABLE lt_marc \r\n      TRANSPORTING NO FIELDS \r\n      WITH KEY matnr = <ls_mara>-matnr.\r\n    IF sy-subrc <> 0.\r\n      APPEND ls_data TO ct_data.\r\n    ELSE.\r\n\r\n      LOOP AT lt_marc ASSIGNING FIELD-SYMBOL(<ls_marc>)\r\n        WHERE matnr = <ls_mara>-matnr.\r\n\r\n        ls_data-marc = <ls_marc>.\r\n\r\n        READ TABLE lt_mard \r\n          TRANSPORTING NO FIELDS \r\n          WITH KEY matnr = <ls_mara>-matnr \r\n                   werks = <ls_marc>-werks.\r\n        IF sy-subrc <> 0.\r\n          APPEND ls_data TO ct_data.\r\n        ELSE.\r\n\r\n          LOOP AT lt_mard ASSIGNING FIELD-SYMBOL(<ls_mard>)\r\n            WHERE matnr = <ls_mara>-matnr \r\n              AND werks = <ls_marc>-werks.\r\n\r\n            ls_data-mard = <ls_mard>.\r\n            APPEND ls_data TO ct_data.\r\n\r\n          ENDLOOP.\r\n        ENDIF.\r\n      ENDLOOP.\r\n    ENDIF.\r\n  ENDLOOP.\r\nENDFORM.<\/pre>\n
Here comes the interesting part – building field catalog where we specify the Field-Groups<\/em><\/p>\n
* Generate field catalog automatically for the 3 given tables\r\n* Also group their fields\r\nFORM build_fcat CHANGING ct_fcat       TYPE lvc_t_fcat\r\n                         ct_alv_groups TYPE lvc_t_sgrp.\r\n  PERFORM append_table_2_fcat USING 'MARA' 'A' CHANGING ct_fcat ct_alv_groups.\r\n  PERFORM append_table_2_fcat USING 'MARC' 'C' CHANGING ct_fcat ct_alv_groups.\r\n  PERFORM append_table_2_fcat USING 'MARD' 'D' CHANGING ct_fcat ct_alv_groups.\r\nENDFORM.\r\n\r\nFORM append_table_2_fcat USING iv_tabname\r\n                               iv_groupname\r\n                         CHANGING ct_fcat   TYPE lvc_t_fcat\r\n                                  ct_groups TYPE lvc_t_sgrp.\r\n  DATA:\r\n    lv_structure_name TYPE dd02l-tabname,\r\n    lt_fcat           TYPE lvc_t_fcat.\r\n\r\n  FIELD-SYMBOLS:\r\n    <ls_fcat>  LIKE LINE OF ct_fcat,\r\n    <ls_group> LIKE LINE OF ct_groups.\r\n\r\n* Create new group of fields if it does not exist yet\r\n  READ TABLE ct_groups \r\n    TRANSPORTING NO FIELDS \r\n    WITH KEY sp_group = iv_groupname.\r\n  IF sy-subrc <> 0.\r\n    APPEND INITIAL LINE TO ct_groups ASSIGNING .\r\n    <ls_group>-sp_group = iv_groupname.\r\n    <ls_group>-text     = iv_tabname.\r\n  ENDIF.\r\n\r\n* Generate field catalog entries for given table name\r\n  lv_structure_name = iv_tabname.\r\n  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'\r\n    EXPORTING\r\n      i_structure_name       = lv_structure_name\r\n      i_client_never_display = 'X'\r\n      i_bypassing_buffer     = 'X'\r\n    CHANGING\r\n      ct_fieldcat            = lt_fcat\r\n    EXCEPTIONS\r\n      inconsistent_interface = 1\r\n      program_error          = 2\r\n      OTHERS                 = 3.\r\n  CHECK sy-subrc = 0.\r\n\r\n* Modify the field catalog to match our data structure\r\n  LOOP AT lt_fcat ASSIGNING <ls_fcat>.\r\n    <ls_fcat>-ref_field = <ls_fcat>-fieldname.\r\n    <ls_fcat>-ref_table = iv_tabname.\r\n\r\n    <ls_fcat>-tabname   = 'GT_DATA'.\r\n    <ls_fcat>-fieldname = |{ iv_tabname }-{ <ls_fcat>-fieldname }|.\r\n\r\n**********************************************************************\r\n* THIS IS THE IMPORTANT PART\r\n    <ls_fcat>-sp_group  = iv_groupname.\r\n**********************************************************************\r\n\r\n*   Show only first 50 columns\r\n    IF lines( ct_fcat ) >= 50.\r\n      <ls_fcat>-no_out = abap_true.\r\n    ENDIF.\r\n\r\n    APPEND <ls_fcat> TO ct_fcat.\r\n  ENDLOOP.\r\nENDFORM.<\/pre>\n
Now we just have to display data<\/p>\n
FORM display_alv.\r\n  IF go_container IS INITIAL.\r\n    CREATE OBJECT go_container\r\n      EXPORTING\r\n        container_name = 'GO_CONTAINER'.\r\n\r\n    CREATE OBJECT go_grid\r\n      EXPORTING\r\n        i_parent = go_container.\r\n\r\n    go_grid->set_table_for_first_display(\r\n      EXPORTING\r\n        it_special_groups             =    gt_alv_groups\r\n      CHANGING\r\n        it_outtab                     =    gt_data\r\n        it_fieldcatalog               =    gt_fcat \" Field Catalog\r\n    ).\r\n  ENDIF.\r\nENDFORM.<\/pre>\n
This is the output and if you go to the FILTER or LAYOUT modification, you should be able to filter by the groups you defined:<\/p>\n
\"Filtering<\/a><\/p>\n
\"Filtering<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
In some cases you find a report with ALV output where there are maybe hundreds of fields available to be displayed. This can be VERY confusing for the user when he tries to select just few fields he wants to … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"ABAP - Grouping fields in field catalog","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[16,86,136,9,222],"tags":[447,415,416],"class_list":["post-1350","post","type-post","status-publish","format-standard","hentry","category-abap","category-alv","category-alv-tutorial","category-development","category-dynpro","tag-alv","tag-lvc_t_fcat","tag-lvc_t_sgrp"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3nYbe-lM","jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/1350","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1350"}],"version-history":[{"count":2,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/1350\/revisions"}],"predecessor-version":[{"id":1354,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/1350\/revisions\/1354"}],"wp:attachment":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1350"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1350"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1350"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}