ABAP动态内表运用

     REPORT  ztest.  

    DATA: BEGIN OF wa_ets,
          vbeln     LIKE lips-vbeln,
          posnr     LIKE lips-posnr,
    END OF wa_ets.  

    DATA:
         l_fname    LIKE dd03l-fieldname,
         typedesr   TYPE REF TO cl_abap_typedescr,
         gt_comp    TYPE cl_abap_structdescr=>component_table,
         gs_comp    LIKE LINE OF gt_comp,
         is_comp    TYPE abap_componentdescr,
         it_comp    TYPE abap_component_tab,
         cl_stru    TYPE REF TO cl_abap_structdescr,
         c2_stru    TYPE REF TO cl_abap_structdescr,
         cl_tabl    TYPE REF TO cl_abap_tabledescr,
         c2_tabl    TYPE REF TO cl_abap_tabledescr,
         cl_handle  TYPE REF TO data,
         c2_handle  TYPE REF TO data,
         cl_st      TYPE REF TO data,
         c2_st      TYPE REF TO data,
         c3_st      TYPE REF TO data,
         key        TYPE abap_keydescr_tab.  

    FIELD-SYMBOLS: <gt_itab>    TYPE ANY TABLE ,
                   <it_itab>    TYPE ANY TABLE ,
                   <fs1>        TYPE ANY,
                   <fs2>,
                   <fs3>,
                   <fs4>,
                   <fs5>,
                   <gs_struc>   TYPE ANY.  

      DATA: BEGIN OF gt_field OCCURS 0,
         kopos(2)    TYPE n,
         fieldname   LIKE dd03l-fieldname,
         rollname    LIKE dd03l-rollname,
         ref_table   LIKE dd03l-tabname,
         ref_field   LIKE dd03l-fieldname,
         key         TYPE c,
      END OF gt_field.
    **
      DATA: it_field LIKE STANDARD TABLE OF gt_field WITH HEADER LINE.  

      gt_field-fieldname  = ‘VBELN‘.
      gt_field-rollname   = ‘VBELN_VL‘.
      gt_field-ref_table  = ‘LIPS‘.
      gt_field-ref_field  = ‘VBELN‘.
      APPEND gt_field.
      MOVE gt_field   TO it_field.
      APPEND it_field.  

      gt_field-fieldname  = ‘POSNR‘.
      gt_field-rollname   = ‘POSNR_VL‘.
      gt_field-ref_table  = ‘LIPS‘.
      gt_field-ref_field  = ‘POSNR‘.
      APPEND gt_field.
      CLEAR gt_field.
      gt_field-fieldname  = ‘BRGEW‘.
      gt_field-rollname   = ‘GSGEW‘.
      gt_field-ref_table  = ‘LIPS‘.
      gt_field-ref_field  = ‘BRGEW‘.
      APPEND gt_field.
      MOVE gt_field   TO it_field.
      APPEND it_field.
      gt_field-fieldname  = ‘VOLUM‘.
      gt_field-rollname   = ‘VOLUM‘.
      gt_field-ref_table  = ‘LIPS‘.
      gt_field-ref_field  = ‘VOLUM‘.
      APPEND gt_field.
      MOVE gt_field   TO it_field.
      APPEND it_field.
      .
      LOOP AT gt_field.
        CLEAR: gs_comp, l_fname.
        CLEAR l_fname.
        CONCATENATE gt_field-ref_table ‘-‘ gt_field-ref_field INTO l_fname.
        is_comp-name   = gt_field-fieldname.
        "is_comp-type  ?= cl_abap_elemdescr=>describe_by_name( gt_field-rollname ).
        is_comp-type  ?= cl_abap_datadescr=>describe_by_name( l_fname ).
        APPEND is_comp  TO it_comp.
      ENDLOOP.
      cl_stru = cl_abap_structdescr=>create( it_comp ).
    **
      APPEND ‘VBELN‘ TO key.
      cl_tabl = cl_abap_tabledescr=>create( p_line_type  = cl_stru
                                            p_table_kind = cl_abap_tabledescr=>tablekind_sorted
                                           " p_unique     = abap_true
                                            p_key        = key ).
      APPEND ‘POSNR‘ TO key.
      c2_tabl = cl_abap_tabledescr=>create( p_line_type  = cl_stru
                                            p_table_kind = cl_abap_tabledescr=>tablekind_hashed
                                            p_unique     = abap_true
                                            p_key        = key ).
      CREATE DATA cl_handle TYPE HANDLE cl_tabl.
      CREATE DATA c2_handle TYPE HANDLE c2_tabl.
      CREATE DATA cl_st     TYPE HANDLE cl_stru.
      CREATE DATA c2_st     TYPE HANDLE cl_stru.
      CREATE DATA c3_st     TYPE HANDLE cl_stru.
      ASSIGN cl_handle->*   TO <gt_itab>.
      ASSIGN c2_handle->*   TO <it_itab>.
      ASSIGN cl_st->*       TO <fs1>.
      ASSIGN c2_st->*       TO <fs3>.
      ASSIGN c3_st->*       TO <fs5>.  

      ASSIGN COMPONENT ‘VBELN‘ OF STRUCTURE <fs1> TO <fs2>.
      <fs2> = ‘0080021838‘.
      ASSIGN COMPONENT ‘POSNR‘ OF STRUCTURE <fs1> TO <fs2>.
      <fs2> = ‘000030‘.
    **
      SELECT * FROM lips
               INTO CORRESPONDING FIELDS OF TABLE <gt_itab> UP TO 10 ROWS
               ORDER BY vbeln posnr.
      LOOP AT <gt_itab> INTO <fs3>.
        ASSIGN COMPONENT ‘POSNR‘ OF STRUCTURE <fs3> TO <fs4>.
        CLEAR <fs4>.
        COLLECT <fs3> INTO <it_itab>.
      ENDLOOP.
      DELETE ADJACENT DUPLICATES FROM <gt_itab>.
      READ TABLE <gt_itab> FROM <fs1> TRANSPORTING NO FIELDS.
      IF sy-subrc = 0.
        WRITE:/ ‘SSSS‘.
      ENDIF.
      c2_stru ?= cl_abap_structdescr=>describe_by_data( wa_ets ).
      gt_comp = c2_stru->get_components( ).  

原文地址：https://www.cnblogs.com/carol1916/p/9136561.html