Dynamic columns in ABAP queries

Question

Hi
I want to select column names dynamically from a DDIC table. For example, the normal way is “select <column_name1>, <column_name2> from <tablename>”. But what I need is something like “select variable1, variable2 from <tablename>” where variable1 and variable2 are names of the column like variable1 = ‘<column_name1>’ and variable2 = ‘<column_name2>’. Is this possible?
Santo.

Answer 1

Hi,
Here we go:
DATA: tabname LIKE dd03l-tabname VALUE 'T001'.
DATA: BEGIN OF field_list OCCURS 0,
        field(200),
      END OF field_list.
DATA: BEGIN OF query_tab OCCURS 0,
        query(200),
      END OF query_tab.
* building field list.
field_list-field = 'BUKRS'.
APPEND field_list.
field_list-field = 'BUTXT'.
APPEND field_list.
DATA dref TYPE REF TO data.
FIELD-SYMBOLS: <fs> TYPE ANY.
FIELD-SYMBOLS: <fs1> TYPE ANY.
* creates dynamic data
CREATE DATA dref TYPE (tabname).
ASSIGN dref->* TO <fs>.
* query table
CONCATENATE '''' '0001' '''' INTO query_tab-query.
CONCATENATE 'BUKRS >= ' query_tab-query  'AND' INTO query_tab-query SEPARATED BY space.
APPEND query_tab.
CLEAR: query_tab.
CONCATENATE '''' 'B%' '''' INTO query_tab-query.
CONCATENATE 'ORT01 LIKE ' query_tab-query  '.' INTO query_tab-query SEPARATED BY space.
APPEND query_tab.
CLEAR: query_tab.
CLEAR: t001.
SELECT  (field_list) INTO CORRESPONDING FIELDS OF <fs> FROM (tabname)
                     WHERE (query_tab).
  DO.
    ASSIGN COMPONENT  sy-index OF  STRUCTURE <fs> TO <fs1>.
    IF sy-subrc = 0.
      WRITE: <fs1>.
    ELSE.
      EXIT.
    ENDIF.
  ENDDO.
You need to be careful while building the query table. Ranges are not allowed and things like that. Please refer documentation.
Thanks and regards,
S. Chandra Mouli.