[email protected]
My Account
  • Home
  • Blog
  • eBooks
  • ECC/S4 system Access
  • About
  • Contact Us
  • My account

No products in the cart.

  • Home
  • Blog
  • eBooks
  • ECC/S4 system Access
  • About
  • Contact Us
  • My account

No products in the cart.

  • Home
  • Blog
  • eBooks
  • ECC/S4 system Access
  • About
  • Contact Us
  • My account

No products in the cart.

  • Home
  • Blog
  • eBooks
  • ECC/S4 system Access
  • About
  • Contact Us
  • My account
Blog
Home ABAP How to find the Table that stores multiple Field values? That’s what ABAPER and Functional does :) in WRICEFF development
ABAPGeneral SAP

How to find the Table that stores multiple Field values? That’s what ABAPER and Functional does :) in WRICEFF development

Arghadip Kar December 11, 2020 0 Comments

Introduction

After working with SAP for more than 15 years and travelling across the Globe for SAP Projects one issue I always use to have how can I keep track of all the SAP Tables associated with different Modules. If you are working as a SAP ABAP Consultant you need to keep the name of tables in your Fingertips. Sometimes this you know from other Experts and sometimes you have to dig it out.

After exploring I found a very easy way to know the Tables that contains all the four fields or Data Element in the same table and has data in it.

SAP is just like an ocean and every droplet is like one SAP Table. This is one of the first program I create in any Project.

I have one request the .1% time you saved while implementing this Blog, help someone in need by doing Service. It can be as simple as playing with a Kid also.

This solution only does Table. I will do another blog  for Views also.

Solution

Go to SE38-> Create a Program and Paste this Code.

Here is the Execution. Just to let you know I have Excluded the Table Beginning with ‘/’. If you want to add it just tweak the code.

In the Below example I am looking for tables with these 2 fields/Data Element. EBELN and EBELP

And here is the Result

Lets be adventurous and try with 4 fields

Before this I never knew EKPO has all the above 4 Fields/Data Element.

Below is the Code that probably can fetch some serious Fun Time to learn something more.

TABLES: DD03L,

        BOOLE.

DATA:DREF TYPE REF TO DATA.

FIELD-SYMBOLS:<TABLE> TYPE STANDARD TABLE.

TYPE-POOLS: SLIS, ICON.

* Internal Tables

TYPES: BEGIN OF T_IALV,

         TABNAME TYPE DD03L-TABNAME,

         FIELD1  TYPE DD03L-FIELDNAME,

         FIELD2  TYPE DD03L-FIELDNAME,

         FIELD3  TYPE DD03L-FIELDNAME,

         FIELD4  TYPE DD03L-FIELDNAME,

       END OF T_IALV .

DATA: IALV   TYPE STANDARD TABLE OF T_IALV,

      WA_ALV TYPE T_IALV.

DATA: ALV_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,

      ALV_GRID      TYPE REF TO CL_GUI_ALV_GRID,

      OK_CODE       LIKE SY-UCOMM,

      FIELDCAT      TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

SELECT-OPTIONS:S_FIELD1 FOR DD03L-FIELDNAME NO-EXTENSION,

S_FIELD2 FOR DD03L-FIELDNAME NO-EXTENSION,

S_FIELD3 FOR DD03L-FIELDNAME NO-EXTENSION,

S_FIELD4 FOR DD03L-FIELDNAME NO-EXTENSION,

S_EXC FOR BOOLE-BOOLE.

FIELD-SYMBOLS:<FS-TAB13> TYPE MANDT.

DATA:WA_DD1      TYPE DD03L,

     WA_DD2      TYPE DD03L,

     WA_DD3      TYPE DD03L,

     WA_DD4      TYPE DD03L,

     LV_TAB      TYPE DD03L-TABNAME,

     WA_DD_FINAL TYPE DD03L.

IF S_EXC-LOW IS NOT INITIAL.

  LV_TAB = ‘/%’.

ENDIF.

IF S_FIELD1-LOW IS NOT INITIAL.

  SELECT C~TABNAME

    FROM ( ( DD03L AS C

         INNER JOIN DD02V AS P ON P~TABNAME  = C~TABNAME

                              AND P~TABCLASS = ‘TRANSP’)

*                              AND p~cityto   = @cityto )

         INNER JOIN DD09L AS F ON F~TABNAME = P~TABNAME )

    WHERE ( ( C~ROLLNAME EQ @S_FIELD1-LOW )

    OR ( C~FIELDNAME EQ @S_FIELD1-LOW  ) )

    AND P~TABNAME NOT LIKE @LV_TAB

       INTO TABLE @DATA(ITAB13).

ENDIF.

IF S_FIELD2-LOW IS NOT INITIAL.

  SELECT C~TABNAME

  FROM ( ( DD03L AS C

       INNER JOIN DD02V AS P ON P~TABNAME  = C~TABNAME

                            AND P~TABCLASS = ‘TRANSP’)

*                              AND p~cityto   = @cityto )

       INNER JOIN DD09L AS F ON F~TABNAME = P~TABNAME )

  WHERE ( ( C~ROLLNAME EQ @S_FIELD2-LOW )

  OR ( C~FIELDNAME EQ @S_FIELD2-LOW  )    )

  AND P~TABNAME NOT LIKE @LV_TAB

     INTO TABLE @DATA(ITAB14).

ENDIF.

IF S_FIELD3-LOW IS NOT INITIAL.

  SELECT C~TABNAME

  FROM ( ( DD03L AS C

       INNER JOIN DD02V AS P ON P~TABNAME  = C~TABNAME

                            AND P~TABCLASS = ‘TRANSP’)

       INNER JOIN DD09L AS F ON F~TABNAME = P~TABNAME )

  WHERE ( ( C~ROLLNAME EQ @S_FIELD3-LOW )

  OR ( C~FIELDNAME EQ @S_FIELD3-LOW  )    )

  AND P~TABNAME NOT LIKE @LV_TAB

     INTO TABLE @DATA(ITAB15).

ENDIF.

IF S_FIELD4-LOW IS NOT INITIAL.

  SELECT C~TABNAME

FROM ( ( DD03L AS C

     INNER JOIN DD02V AS P ON P~TABNAME  = C~TABNAME

                          AND P~TABCLASS = ‘TRANSP’)

*                              AND p~cityto   = @cityto )

     INNER JOIN DD09L AS F ON F~TABNAME = P~TABNAME )

WHERE ( ( C~ROLLNAME EQ @S_FIELD4-LOW )

OR ( C~FIELDNAME EQ @S_FIELD4-LOW  )

)

AND P~TABNAME NOT LIKE @LV_TAB

*                                AND f~connid = p~connid )

*       ORDER BY c~carrname, p~connid, f~fldate

   INTO TABLE @DATA(ITAB16).

ENDIF.

SORT ITAB13 BY TABNAME.

DELETE ADJACENT DUPLICATES FROM ITAB13 COMPARING TABNAME..

SORT ITAB14 BY TABNAME.

DELETE ADJACENT DUPLICATES FROM ITAB14 COMPARING TABNAME..

SORT ITAB15 BY TABNAME.

DELETE ADJACENT DUPLICATES FROM ITAB15 COMPARING TABNAME..

SORT ITAB16 BY TABNAME.

DELETE ADJACENT DUPLICATES FROM ITAB16 COMPARING TABNAME.

IF S_FIELD1-LOW IS NOT INITIAL.

  LOOP AT ITAB13 INTO DATA(WA_TAB133).

    IF ITAB14[] IS NOT INITIAL.

      READ TABLE ITAB14  INTO DATA(WA_TAB134) WITH KEY TABNAME = WA_TAB133-TABNAME.

      IF SY-SUBRC = 0.

        CREATE DATA DREF TYPE TABLE OF (WA_TAB134-TABNAME).

        IF ITAB15[] IS NOT INITIAL.

          READ TABLE ITAB15  INTO DATA(WA_TAB135) WITH KEY TABNAME = WA_TAB133-TABNAME.

          IF SY-SUBRC = 0.

            IF ITAB16[] IS NOT INITIAL.

              READ TABLE ITAB16  INTO DATA(WA_TAB136) WITH KEY TABNAME = WA_TAB133-TABNAME.

              IF SY-SUBRC = 0.

                ASSIGN DREF->* TO <TABLE>.

SELECT  *

              FROM (WA_TAB134-TABNAME)

                  INTO TABLE @<TABLE>.

                IF <TABLE> IS NOT INITIAL.

                  WA_ALV-TABNAME =  WA_TAB134-TABNAME.

                  WA_ALV-FIELD1 =  S_FIELD1-LOW.

                  WA_ALV-FIELD2 =  S_FIELD2-LOW.

                  WA_ALV-FIELD3 =  S_FIELD3-LOW.

                  WA_ALV-FIELD4 =  S_FIELD4-LOW.

                  APPEND WA_ALV TO IALV.

                  CLEAR WA_ALV.

*      exit.

                ENDIF.

              ELSE.

                ASSIGN DREF->* TO <TABLE>.

SELECT  *

              FROM (WA_TAB134-TABNAME)

                  INTO TABLE @<TABLE>.

                IF <TABLE> IS NOT INITIAL.

                  WA_ALV-TABNAME =  WA_TAB134-TABNAME.

                  WA_ALV-FIELD1 =  S_FIELD1-LOW.

                  WA_ALV-FIELD2 =  S_FIELD2-LOW.

                  WA_ALV-FIELD3 =  S_FIELD3-LOW.

*                  WA_ALV-FIELD4 =  S_FIELD4-LOW.

                  APPEND WA_ALV TO IALV.

                  CLEAR WA_ALV.

*      exit.

                ENDIF.

              ENDIF.

            ELSE.

              ASSIGN DREF->* TO <TABLE>.

SELECT  *

            FROM (WA_TAB134-TABNAME)

                INTO TABLE @<TABLE>.

              IF <TABLE> IS NOT INITIAL.

                WA_ALV-TABNAME =  WA_TAB134-TABNAME.

                WA_ALV-FIELD1 =  S_FIELD1-LOW.

                WA_ALV-FIELD2 =  S_FIELD2-LOW.

                WA_ALV-FIELD3 =  S_FIELD3-LOW.

                APPEND WA_ALV TO IALV.

                CLEAR WA_ALV.

              ENDIF.

            ENDIF.

          ELSE.

            ASSIGN DREF->* TO <TABLE>.

SELECT  *

          FROM (WA_TAB134-TABNAME)

              INTO TABLE @<TABLE>.

            IF <TABLE> IS NOT INITIAL.

              WA_ALV-TABNAME =  WA_TAB134-TABNAME.

              WA_ALV-FIELD1 =  S_FIELD1-LOW.

              WA_ALV-FIELD2 =  S_FIELD2-LOW.

              APPEND WA_ALV TO IALV.

              CLEAR WA_ALV.

            ENDIF.

          ENDIF.

        ELSE.

          ASSIGN DREF->* TO <TABLE>.

SELECT  *

        FROM (WA_TAB134-TABNAME)

            INTO TABLE @<TABLE>.

          IF <TABLE> IS NOT INITIAL.

            WA_ALV-TABNAME =  WA_TAB134-TABNAME.

            WA_ALV-FIELD1 =  S_FIELD1-LOW.

            WA_ALV-FIELD2 =  S_FIELD2-LOW.

            APPEND WA_ALV TO IALV.

            CLEAR WA_TAB134.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDIF.

*  endif.

  ENDLOOP.

ENDIF.

*  Populate Field Catalog

PERFORM GET_FIELDCATALOG.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’

  EXPORTING

    I_CALLBACK_PROGRAM = SY-REPID

*   is_layout          = w_layout

    IT_FIELDCAT        = FIELDCAT[]

*   it_events          = i_events

  TABLES

    T_OUTTAB           = IALV

  EXCEPTIONS

    PROGRAM_ERROR      = 1

    OTHERS             = 2.

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.

************************************************************************

*      Form  Get_Fieldcatalog – Set Up Columns/Headers

************************************************************************

FORM GET_FIELDCATALOG.

  CLEAR: FIELDCAT.

  FIELDCAT-SELTEXT_M    = ‘Tablename’.

  FIELDCAT-FIELDNAME  = ‘TABNAME’.

  FIELDCAT-OUTPUTLEN  = ’36’.

  APPEND FIELDCAT TO FIELDCAT.

  CLEAR: FIELDCAT.

  FIELDCAT-SELTEXT_M   = ‘Field1’.

  FIELDCAT-FIELDNAME  = ‘FIELD1’.

  FIELDCAT-OUTPUTLEN  = ’12’.

  APPEND FIELDCAT TO FIELDCAT.

  CLEAR: FIELDCAT.

  FIELDCAT-SELTEXT_M   = ‘Field2’.

  FIELDCAT-FIELDNAME  = ‘FIELD2’.

  FIELDCAT-OUTPUTLEN  = ’12’.

  APPEND FIELDCAT TO FIELDCAT.

  CLEAR: FIELDCAT.

  FIELDCAT-SELTEXT_M   = ‘Field3’.

  FIELDCAT-FIELDNAME  = ‘FIELD3’.

  FIELDCAT-OUTPUTLEN  = ’12’.

  APPEND FIELDCAT TO FIELDCAT.

  CLEAR: FIELDCAT.

  FIELDCAT-SELTEXT_M    = ‘Field4’.

  FIELDCAT-FIELDNAME  = ‘FIELD4’.

  FIELDCAT-OUTPUTLEN  = ’12’.

  APPEND FIELDCAT TO FIELDCAT.

ENDFORM.

Here is the Selection Screen Parameter label

Conclusion

This will work for both SAP ECC and SAP S/4 HANA

Below is the video version

14
339 Views
AboutArghadip Kar
SAP S/4 HANA Solution Architect with 15 Years Experience in SAP. Have worked in Nestle, PMI, Pepsico, ABC, NRG Energy, DVLA, and Bradford City Council.
In Socials:
PrevHow to Find a Search Help behind any SAP Field in SAP?December 11, 2020
How to keep portable and uploadable copy from your SAP configurationDecember 11, 2020Next

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

  • Home
  • About
  • Contact
Categories
  • ABAP 7
  • FICO 18
  • General SAP 22
  • MM 1
  • SD 2
Products
  • What has been changed in New Asset Accounting ₹151.06 ₹119.00
  • ECC 6.0 EHP8 - EWM Server ₹1,499.00 – ₹2,499.00
  • ECC 6.0 EHP7 - ABAP and BASIS server ₹699.00 – ₹1,799.00
  • Manual and electronic bank reconciliation in SAP: Step by step guide for EBS with real time business scenarios ₹250.00 ₹229.00
Sign Up to get update of latest Blogs

Find Us

Address
123 Main Street
New York, NY 10001

Hours
Monday–Friday: 9:00AM–5:00PM
Saturday & Sunday: 11:00AM–3:00PM

SAP College is a knowledge portal for all of those who wants to learn SAP. This is a one-stop reference for your entire SAP needs.

sap_college

Few insights about Brexit from the SAP's latest we Few insights about Brexit from the SAP's latest webinar. Brexit is still open with all the possibilities and still everything is clear... as said... they are very close to the deal and yet too far from the deal.

#SAP #ERP #SAPERP #brexit #sapcommunity #s4hana
To read full blog and more like this one visit the To read full blog and more like this one visit the website mentioned in bio.... 
@sap_college 

#sap #saphana #SAPUI5 #saperp #sapcommunity #S4 #s4hana
End-User Manual - Asset Accounting in S4 In this f End-User Manual - Asset Accounting in S4
In this free document, you will get a broader picture of how end-user transactions are changed/affected with New Asset Accounting.
All the information about new transactions and obsolete transactions in S4.

You will learn the newly introduced topics in below areas:

1. Asset Master data
2. Asset Accounting business transactions
3. Month-End closing activities
4. Year-End closing activities
5. Asset Accounting - Information System

Download this free book now from the link in bio

https://lnkd.in/gtvPz-U

#SAP #s4hana #sapcommunity #erp #sapfico #saperp #fico #accounting #assetaccounting #s4 #HANA
Follow SAP College on LinkedIn and stay up to date Follow SAP College on LinkedIn and stay up to date with SAP's new releases. New blog post everyday. eBooks review. Free books. Documents. And many more....

#SAP #S4 #SAPCOMMUNITY #S4HANA #ERP #SAPUI5 #SAPERP
Follow on Instagram
This error message is only visible to WordPress admins

Error: API requests are being delayed for this account. New posts will not be retrieved.

Log in as an administrator and view the Instagram Feed settings page for more details.

Contacts
Website: https://sapcollege.co/
Email: [email protected]
Facebook Page
Terms & Condition

Copyright © 2020 SAP College by Smarksys Technologies. All Rights Reserved.