topic Re: Query DD03L using an ABAP program in Application Development and Automation Discussions

Query DD03L using an ABAP program

sas70 — Thu, 05 Jan 2023 18:21:11 GMT

Hello Professionals

I am trying to leverage the code posted in this place (below) to output the technical fieldnames and related attributes from some SAP tables like T000, T001...

However, while the code's syntax is correct, I get no output. I am coming from a web development background and ABAP is new to me 🙂

Thanks

*&---------------------------------------------------------------------*
*& Report  ZMY_ALV_10
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZMY_ALV_10.

FIELD-SYMBOLS:
<fieldname> TYPE ANY, "Name of field
<line> TYPE ANY, "Line structure for table
<fieldvalue> TYPE ANY. "Value of field

DATA: l_shorttext LIKE dd03m-ddtext.

DATA: wa_dd03l LIKE dd03l.
DATA WA_PA1_DELTA.


SELECT * FROM dd03l INTO wa_dd03l

WHERE tabname = 'ZHR_INTER_PA1_DL'.
* Assign name of field
ASSIGN COMPONENT 2 OF STRUCTURE wa_dd03l TO <fieldname>.

* Assign structure for internal table
ASSIGN wa_pa1_delta TO <line>.

* Assign field value from structure
ASSIGN COMPONENT <fieldname> OF STRUCTURE <line> TO <fieldvalue>.

* Find DD text for field
SELECT SINGLE ddtext
FROM dd03m
INTO l_shorttext
WHERE tabname = 'ZHR_INTER_PA1_DL' AND
fieldname = <fieldname> AND
ddlanguage = 'EN'.


WRITE: / <fieldname>, l_shorttext, ' : ', <fieldvalue>.

ENDSELECT.

Source : https://www.henrikfrank.dk/abaptips/abapindex.htm?page=abap%20language%2Fdynamic%20programming%2Fdynamically%20read%20fields%20-%20fieldnames%20and%20fieldcontents.htm

Re: Query DD03L using an ABAP program

adityaIngale66 — Fri, 06 Jan 2023 05:45:53 GMT

What is your requirement? Can you explain in details?

Re: Query DD03L using an ABAP program

sas70 — Fri, 06 Jan 2023 08:27:01 GMT

Aditya,

Thank you for the followup. Basically I am collecting configuration and master data tables within specific clients and trying to download their structure to Excel as well access these tables programmatically to perform some summing and grouping by specific fields to summarise transactions by targeted field names such as Material type, document type, or even by any structural elements such as storage location, sales office…to collect some KPIs somewhat mimic the behaviour of ST13 (Table analysis).

Many thanks

Omar

Re: Query DD03L using an ABAP program

abityildiz — Fri, 06 Jan 2023 11:31:11 GMT

Hello,

Can you try this code:

FIELD-SYMBOLS:
<fieldname> TYPE ANY, "Name of field
<line> TYPE ANY, "Line structure for table
<fieldvalue> TYPE ANY. "Value of field

DATA: l_shorttext LIKE dd03m-ddtext.

DATA: wa_dd03l LIKE dd03l.



SELECT * FROM dd03l INTO wa_dd03l

WHERE tabname = 'ZHR_INTER_PA1_DL'.
* Assign name of field
ASSIGN COMPONENT 2 OF STRUCTURE wa_dd03l TO <fieldname>.

* Assign structure for internal table
ASSIGN wa_dd03l TO <line>.

* Assign field value from structure
ASSIGN COMPONENT 2 OF STRUCTURE <line> TO <fieldvalue>.

* Find DD text for field
SELECT SINGLE ddtext
FROM dd03m
INTO l_shorttext
WHERE tabname = 'ZHR_INTER_PA1_DL' AND
fieldname = <fieldname> AND
ddlanguage = 'EN'.


WRITE: / <fieldname>, l_shorttext, ' : ', <fieldvalue>.

ENDSELECT.

Re: Query DD03L using an ABAP program

touzik_itc — Fri, 06 Jan 2023 11:37:21 GMT

To read and display table content of an arbitrary table:

PARAMETERS tabname TYPE tabname.

DATA dataref TYPE REF TO data.
CREATE DATA dataref TYPE TABLE OF (tabname).

FIELD-SYMBOLS <lt_data> TYPE ANY TABLE.
ASSIGN dataref->* TO <lt_data>.

SELECT * FROM (tabname) INTO TABLE @<lt_data>.
cl_demo_output=>display( <lt_data> ).

To read and display table structure:

DATA lt_comp TYPE TABLE OF dd03p.
CALL FUNCTION 'DD_TABL_GET'
  EXPORTING
    tabl_name   = tabname
    withtext    = abap_true
    langu       = 'E'
  TABLES
    dd03p_tab_a = lt_comp
  EXCEPTIONS
    OTHERS      = 1.

DATA lt_desc TYPE TABLE OF string.
lt_desc = VALUE #( FOR <wa> IN lt_comp ( |Name { <wa>-fieldname }, data type { <wa>-rollname }, description { <wa>-ddtext }| ) ).
cl_demo_output=>display( lt_desc ).

Re: Query DD03L using an ABAP program

sas70 — Fri, 06 Jan 2023 14:47:01 GMT

Hello Andrei

Thank you for the follow-up.

The first piece of code does not work for me as I am running Pack 7 so my editor does not recognize the inline declarations made in your code.

For the second piece, I get an error message that field <tabname> is unknown.

Best reagrds

Omar

Re: Query DD03L using an ABAP program

sas70 — Fri, 06 Jan 2023 14:50:09 GMT

Hello Abit

Thank you for your followup.

While your code's syntax is correct, I get no output on my end.

Best reagrds

Omar

Re: Query DD03L using an ABAP program

touzik_itc — Mon, 09 Jan 2023 10:48:16 GMT

Hello Omar,

what kind of error do you get in the first part? All variables and field symbols are declared explicitly here. In the second part there is no field symbol <tabname>. The variable tabname is decalared in the first part with a PARAMETERS statement.