Dynamic tables derived from ddic tables

Question

I'm trying to create an internal table, which contains a lot of components of existing tables, but not all.
So i tried to get the type description of the existing table, delete the not needed fields and create a new table by RTTS.
Here is my code:
REPORT  ZCA_SW_DYNAMIC_TYPES.
data:
  dref          type ref to data,
  desc_table    type ref to cl_abap_tabledescr,
  desc_struc    type ref to cl_abap_structdescr,
   it_components type abap_component_tab,
   wa_components type abap_componentdescr.
FIELD-SYMBOLS:
  <it_out>      type STANDARD TABLE.
START-OF-SELECTION.
    desc_struc ?= cl_abap_typedescr=>describe_by_name( 'T001' ).
    it_components = desc_struc->get_components( ).
    delete it_components WHERE name = 'MANDT'.
    desc_struc = cl_abap_structdescr=>create( it_components ).
    desc_table = cl_abap_tabledescr=>create( desc_struc ).
    create data dref type HANDLE desc_table.
    assign dref->* to <it_out>.
    select *
    from t001
    into CORRESPONDING FIELDS OF TABLE <it_out>.
    write:/ 'Done'.
This works fine, but now i'm stucked. The reason is that it_components does not contain all compoents by name, T001 has an include and an append, and these are not resolved in the table it_components. If i want to delete the component BUKRS_GLOB i cant do that cause its in an include.
How can i get it_componets filled so that only elementary compoents are given and resulting includes are resolved?

Answer 1

Hi
Try to manage every single field (field by field) in order to create the internal table:
.PARAMETERS: P_TAB TYPE DDOBJNAME.
DATA: T_FIELDS TYPE TABLE OF DFIES.
DATA: _LEN           TYPE I,
      _DEC           TYPE I.
DATA: LR_VALUE_DESCR  TYPE REF TO CL_ABAP_ELEMDESCR.
DATA:
  DREF          TYPE REF TO DATA,
  DESC_TABLE    TYPE REF TO CL_ABAP_TABLEDESCR,
  DESC_STRUC    TYPE REF TO CL_ABAP_STRUCTDESCR,
   IT_COMPONENTS TYPE ABAP_COMPONENT_TAB,
   WA_COMPONENTS TYPE ABAP_COMPONENTDESCR.
FIELD-SYMBOLS:
  <IT_OUT>      TYPE STANDARD TABLE.
START-OF-SELECTION.
  CALL FUNCTION 'DDIF_FIELDINFO_GET'
    EXPORTING
      TABNAME   = P_TAB
    TABLES
      DFIES_TAB = T_FIELDS.
  LOOP AT T_FIELDS INTO DFIES WHERE FIELDNAME NE 'MANDT'.
    WA_COMPONENTS-NAME = DFIES-FIELDNAME.
    MOVE DFIES-LENG     TO _LEN.
    MOVE DFIES-DECIMALS TO _DEC.
    CASE DFIES-DATATYPE.
      WHEN 'CHAR' OR 'LANG' OR 'CUKY'.
        MOVE CL_ABAP_ELEMDESCR=>GET_C( P_LENGTH = _LEN )
                                                      TO LR_VALUE_DESCR.
      WHEN 'NUMC'.
        MOVE CL_ABAP_ELEMDESCR=>GET_N( P_LENGTH = _LEN )
                                                      TO LR_VALUE_DESCR.
      WHEN 'INT1' OR 'INT2' OR 'INT4'.
        MOVE CL_ABAP_ELEMDESCR=>GET_I( ) TO LR_VALUE_DESCR.
      WHEN 'DATS'.
        MOVE CL_ABAP_ELEMDESCR=>GET_D( ) TO LR_VALUE_DESCR.
      WHEN 'DEC' OR 'CURR'.
        MOVE CL_ABAP_ELEMDESCR=>GET_P( P_LENGTH   = _LEN
                                       P_DECIMALS = _DEC )
                                                      TO LR_VALUE_DESCR.
      WHEN 'TIMS'.
        MOVE  CL_ABAP_ELEMDESCR=>GET_T( ) TO LR_VALUE_DESCR.
      WHEN OTHERS'.
        CONTINUE.
    ENDCASE.
    WA_COMPONENTS-TYPE = LR_VALUE_DESCR.
    INSERT WA_COMPONENTS INTO TABLE IT_COMPONENTS.
  ENDLOOP.
  DESC_STRUC = CL_ABAP_STRUCTDESCR=>CREATE( IT_COMPONENTS ).
  DESC_TABLE = CL_ABAP_TABLEDESCR=>CREATE( DESC_STRUC ).
  CREATE DATA DREF TYPE HANDLE DESC_TABLE.
  ASSIGN DREF->* TO <IT_OUT>.
  SELECT *
  FROM (P_TAB)
  INTO CORRESPONDING FIELDS OF TABLE <IT_OUT>.
  WRITE:/ 'Done'.
Max