ABAP动态内表

男娘i 2022-04-10 12:39 386阅读 0赞

## 一、根据2结构和一个data element 构建一个动态内表 ##

“定义的动态内表<dyn\_table>  ，<DYN\_WA>对应内表一行的工作区

FIELD-SYMBOLS:<dyn\_table> TYPE STANDARD TABLE,  
                              <dyn\_wa> TYPE ANY.

FORM create\_dynamic\_table .  
  
  DATA: lt\_fcat TYPE slis\_t\_fieldcat\_alv,  
        ls\_fcat LIKE LINE OF lt\_fcat,  
        lt\_fieldcat TYPE lvc\_t\_fcat,  
        ls\_fieldcat LIKE LINE OF lt\_fieldcat,  
        dy\_table    type ref to data.  
  
  CALL FUNCTION 'REUSE\_ALV\_FIELDCATALOG\_MERGE'  
    EXPORTING  
      i\_structure\_name = 'RFPOS'  
    CHANGING  
      ct\_fieldcat      = lt\_fcat\[\].  
  CALL FUNCTION 'REUSE\_ALV\_FIELDCATALOG\_MERGE'  
    EXPORTING  
      i\_structure\_name = 'BSEG'  
    CHANGING  
      ct\_fieldcat      = lt\_fcat\[\].  
  
  clear ls\_fcat.  
  ls\_fcat\-col\_pos =  lines( lt\_fcat\[\] ) \+ 1.  
  ls\_fcat\-no\_out = 'X'.  
  ls\_fcat\-fieldname = 'LOKKT\_TXT30'.  
  ls\_fcat\-ref\_fieldname = 'TXT20'.  
  ls\_fcat\-ref\_tabname  = 'SKAT'.  
  ls\_fcat\-reptext\_ddic = ls\_fcat\-seltext\_s =  
  ls\_fcat\-seltext\_m = ls\_fcat\-seltext\_l = text\-133.  
  APPEND ls\_fcat TO lt\_fcat.  
  
   LOOP AT lt\_fcat INTO ls\_fcat. "WHERE NOT reptext\_ddic IS initial.  
    MOVE-CORRESPONDING ls\_fcat TO ls\_fieldcat.  
    ls\_fieldcat\-fieldname = ls\_fcat\-fieldname.  
    ls\_fieldcat\-ref\_field = ls\_fcat\-ref\_fieldname.  
    ls\_fieldcat\-ref\_table = ls\_fcat\-ref\_tabname.  
    APPEND ls\_fieldcat TO lt\_fieldcat.  
  ENDLOOP.  
  
  
  CALL METHOD cl\_alv\_table\_create=>create\_dynamic\_table  
    EXPORTING  
      it\_fieldcatalog = lt\_fieldcat  
    IMPORTING  
      ep\_table        = dy\_table.  
  
  ASSIGN dy\_table\->\* TO <dyn\_table>.  
  
ENDFORM.

## 二 、  给动态内表赋值 ##

“ g\_items  和  bseg 已经有数据的工作区

DATA:WA\_NEW\_LINE TYPE REF TO DATA.

CREATE DATA WA\_NEW\_LINE LIKE LINE OF <DYN\_TABLE>.  
    ASSIGN WA\_NEW\_LINE\->\* TO <DYN\_WA>.  
    move-corresponding g\_items TO <DYN\_WA>.  
    move-corresponding bseg   TO <DYN\_WA>.  
    APPEND <DYN\_WA> TO <DYN\_TABLE>.