ABAP生成動態內表

TABLES: ekbe.
SELECT-OPTIONS: ebeln FOR ekbe-ebeln NO INTERVALS,
                matnr FOR ekbe-matnr NO INTERVALS,
                bwart FOR ekbe-bwart NO INTERVALS.
DATA tdate LIKE TABLE OF sy-datum WITH HEADER LINE.
DATA: BEGIN OF itab OCCURS 0,
        dmbtr like ekbe-dmbtr,
        waers like ekbe-waers,
        menge LIKE ekbe-menge,
        belnr like ekbe-belnr,
        budat LIKE ekbe-budat,
      END OF itab.
DATA: dy_table TYPE REF TO data,
      dy_wa TYPE REF TO data,
      it_strtab TYPE lvc_t_fcat,
      wa_str TYPE lvc_s_fcat.
data fieldname(20).
DATA: gt_fieldcat TYPE lvc_t_fcat,
      gs_fieldcat TYPE lvc_s_fcat.
DEFINE: add_field.
  gs_fieldcat-fieldname = &1.
  gs_fieldcat-coltext = &2.
  append gs_fieldcat to gt_fieldcat.
END-OF-DEFINITION.
SELECT dmbtr
       waers
       belnr
       menge
       budat FROM ekbe
       INTO CORRESPONDING FIELDS OF TABLE itab
       WHERE ebeln IN ebeln
       AND matnr IN matnr
       AND bwart IN bwart.
SORT itab BY budat.

LOOP AT itab.
  tdate = itab-budat.
  COLLECT tdate.
ENDLOOP.

FIELD-SYMBOLS: <dy_table> TYPE table,
               <dyn_wa> TYPE ANY,
               <fs> TYPE ANY.
wa_str-fieldname = 'BELNR'.
wa_str-col_pos = 1.
APPEND wa_str TO it_strtab.
PERFORM input_fieldcat USING 'BELNR' 'BELNR'.

CLEAR: wa_str.
wa_str-fieldname = 'DMBTR'.
wa_str-col_pos = 2.
APPEND wa_str TO it_strtab.
CLEAR: wa_str.
PERFORM input_fieldcat USING 'DMBTR' 'DMBTR'.

wa_str-fieldname = 'WAERS'.
wa_str-col_pos = 3.
APPEND wa_str TO it_strtab.
CLEAR: wa_str.
PERFORM input_fieldcat USING 'WAERS' 'WAERS'.

LOOP AT tdate.
  wa_str-fieldname = tdate.
  wa_str-col_pos = 1.
  APPEND wa_str TO it_strtab.
  CLEAR wa_str.
  PERFORM input_fieldcat USING tdate tdate.
ENDLOOP.
CALL METHOD cl_alv_table_create=>create_dynamic_table//生成動態內表
  EXPORTING
    it_fieldcatalog           = it_strtab
  IMPORTING
    EP_TABLE                  = dy_table
  EXCEPTIONS
    GENERATE_SUBPOOL_DIR_FULL = 1
    others                    = 2 .
assign dy_table->* to <dy_table>.
create data dy_wa like line of <dy_table>.
assign dy_wa->* to <dyn_wa>.
loop at itab.
  assign component 'BELNR' of structure <dyn_wa> to <fs>.
  <fs> = itab-belnr.//指定字段賦指定字段的值
  assign component 'DMBTR' of structure <dyn_wa> to <fs>.
  <fs> = itab-dmbtr.
  assign component 'WAERS' of structure <dyn_wa> to <fs>.
  <fs> = itab-waers.
  fieldname = itab-budat.
  assign component fieldname of structure <dyn_wa> to <fs>.
  <fs> = itab-menge.
  at end of belnr.
    append <dyn_wa> to <dy_table>.
    clear: <dyn_wa>.
  endat.
endloop.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
 EXPORTING
   I_CALLBACK_PROGRAM                = sy-repid
   IT_FIELDCAT_LVC                   = gt_fieldcat
  TABLES
    t_outtab                          = <dy_table>
 EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2 .

*---------------------------------------------------------------------*
*       FORM input_fieldcat                                           *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  P_TDATE1                                                      *
*  -->  P_TDATE2                                                      *
*---------------------------------------------------------------------*
FORM input_fieldcat USING p_tdate1
                          p_tdate2.
  add_field p_tdate1 p_tdate2.
ENDFORM.

REPORT ztest_work6 .
TYPE-POOLS:slis.
DATA: dyntab LIKE dntab OCCURS 0 WITH HEADER LINE,
            gt_fcat TYPE lvc_t_fcat,
            gs_fcat TYPE lvc_s_fcat,
            gt_fieldcat   TYPE slis_t_fieldcat_alv,
            gs_fieldcat   TYPE slis_fieldcat_alv,
            dref TYPE REF TO data.
FIELD-SYMBOLS:<rec_tab> TYPE STANDARD TABLE.
PARAMETERS : p_table LIKE dd02l-tabname,
             hits LIKE rseumod-tbmaxsel.
CALL FUNCTION 'NAMETAB_GET'
     EXPORTING
          langu               = sy-langu
          tabname             = p_table
     TABLES
          nametab             = dyntab
     EXCEPTIONS
          internal_error      = 1
          table_has_no_fields = 2
          table_not_activ     = 3
          no_texts_found      = 4
          OTHERS              = 5.
LOOP AT dyntab.
  gs_fcat-fieldname = dyntab-fieldname.
  gs_fcat-ref_field = dyntab-fieldname.
  gs_fcat-ref_table = dyntab-tabname.
  APPEND gs_fcat TO gt_fcat.

  gs_fieldcat-fieldname = dyntab-fieldname.
  gs_fieldcat-ref_tabname = dyntab-tabname.
  APPEND gs_fieldcat TO gt_fieldcat.
ENDLOOP.
CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
    it_fieldcatalog = gt_fcat
  IMPORTING
    ep_table        = dref.
ASSIGN dref->* TO <rec_tab>.
SELECT * FROM (dyntab-tabname)
      INTO CORRESPONDING FIELDS OF TABLE <rec_tab> UP TO hits ROWS.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
          it_fieldcat   = gt_fieldcat
     TABLES
          t_outtab      = <rec_tab>
     EXCEPTIONS
          program_error = 1
          OTHERS        = 2.