ABAP 动态内表实例

一时失言乱红尘 2023-03-02 10:56 49阅读 0赞

一、基础知识

REPORT ZTEST018.  
  
DATA : BEGIN OF gs\_out ,  
        day01 type c LENGTH 10,  
        day02 type c LENGTH 10 ,  
END OF gs\_out.  
  
gs\_out\-day01 = '10'.  
gs\_out\-day02 =  '20'.  
  
FIELD-SYMBOLS:  <fs>       TYPE any .  
FIELD-SYMBOLS:  <fs2>       TYPE any .  
DATA : p\_fieldname  type c LENGTH 20 .  
DATA : p\_fieldname2  type c LENGTH 20 .  
  
 p\_fieldname = 'gs\_out-day' && '01' .  
 ASSIGN  (p\_fieldname)  TO <fs>.  
 <fs> = <fs> && '08' .  
 WRITE : <fs> .  
  
p\_fieldname2 = 'day' && '02' .  
ASSIGN COMPONENT p\_fieldname2 OF STRUCTURE gs\_out TO <fs2>.  
<fs2> = <fs2> &&'09' .  
WRITE <fs2> .

![20200729114603812.png][]

二、动态内表

FORM frm\_creat\_inner\_table .  
  
  PERFORM frm\_add\_field\_to\_table USING :  
        'SEL'      'CHAR' 1,  
        'BWKEY'    'CHAR' 4,  
        'BDATJ'    'CHAR' 4,  
        'POPER'    'CHAR' 3,  
        'KALNR'    'CHAR' 12,  
        'MATNR'    'CHAR' 40,  
        'MAKTX'    'CHAR' 40,  
        'LOSGR\_S'  'QUAN' 13,  
        'PEINH'    'CHAR' 5,  
        'MEINS'    'CHAR' 3,  
        'BWTAR'    'CHAR' 10,  
        'BZCB'     'CURR' 15,  
        'SJCB'     'CURR' 15,  
        'CBCY'     'CURR' 15,  
        'WAERS'    'CHAR' 5.  
  
  SELECT  
  a~elehk,  
  a~elemt,  
  a~el\_hv,  
  a~el\_hf,  
  b~txele  
  FROM tckh3 AS a  
  LEFT JOIN tckh1 AS b  
  ON a~elehk EQ b~elehk  
  AND a~elemt EQ b~elemt  
  AND b~spras EQ @sy\-langu  
  INTO CORRESPONDING FIELDS OF TABLE @gt\_tckh3  
  WHERE a~elehk = @p\_zjjg.  
  
  SORT gt\_tckh3 BY elemt.  
  LOOP AT gt\_tckh3 INTO gs\_tckh3.  
    DATA lv\_fieldname TYPE string.  
    lv\_fieldname = 'KST' && gs\_tckh3\-el\_hv && '\_ST'.  
    PERFORM frm\_add\_field\_to\_table USING lv\_fieldname 'CURR' 15.*"ST **该成本组件的**“**标准成本**”**并且是**“**完全成本**”*  
  
    lv\_fieldname = 'KST' && gs\_tckh3\-el\_hv && '\_VT'.  
    PERFORM frm\_add\_field\_to\_table USING lv\_fieldname 'CURR' 15.*"VT **该成本组件的**“**实际成本**”**并且是**“**完全成本**”*  
  
    lv\_fieldname = 'KST' && gs\_tckh3\-el\_hf && '\_SF'..  
    PERFORM frm\_add\_field\_to\_table USING lv\_fieldname 'CURR' 15.*"SF **该成本组件的**“**标准成本**”**并且是**“**固定成本**”*  
  
    lv\_fieldname = 'KST' && gs\_tckh3\-el\_hf && '\_VF'..  
    PERFORM frm\_add\_field\_to\_table USING lv\_fieldname 'CURR' 15.*"VF **该成本组件的**“**实际成本**”**并且是**“**固定成本**”*  
  ENDLOOP.  
  
  
*\***此方法用于构建动态内表，输入**=**构建的结构，输出**=dy\_table*  
  CALL METHOD cl\_alv\_table\_create=>create\_dynamic\_table  
    EXPORTING  
      it\_fieldcatalog = gt\_fcat  
    IMPORTING  
      ep\_table        = gt\_table.  
  
  ASSIGN gt\_table\->\* TO <gt\_table>.  
  CREATE DATA wa\_table LIKE LINE OF <gt\_table>.  
  ASSIGN wa\_table\->\* TO <wa\_table>.  
ENDFORM.

案例 （底数有的是1000，有的是1026 有的是 999 全部处理成1000）

FIELD-SYMBOLS: <gt\_table> TYPE table,  *"**动态内表*  
               <wa\_table> TYPE any,    *"**动态内表指针*  
               <fs>       TYPE any,  
               <fs0>      TYPE any.

PERFORM frm\_set\_value2 USING   'BZCB' CHANGING <wa\_table>.  *"**标准成本*

![20200729123508771.png][]

PERFORM frm\_set\_value2 USING   'SJCB' CHANGING <wa\_table>.  *"**实际*

FORM frm\_set\_value2  USING    p\_fieldname  
                             CHANGING p\_wa\_table.  
  
  ASSIGN COMPONENT 'LOSGR\_S'  OF STRUCTURE  p\_wa\_table  TO <fs0>. *"**底数*  
  ASSIGN COMPONENT p\_fieldname OF STRUCTURE p\_wa\_table TO <fs>.  
  IF sy\-subrc = 0.  
    <fs> =  <fs> / <fs0> \* 1000 .  
  ENDIF.  
ENDFORM.

三  动态内表的利与弊

动态内表看起来是挺好的，但是也有一些弊端。

一 、性能的问题，我记得有个工单排程的程序，要看90内的工单。用了一个动态内表。但是速度比较慢，后来用静态的（写90个字段）

二、字段是否预知。

如果预知的话，有规律的话也可以在EXCEL表把ABAP代码处理好，贴到编辑器里面更容易些

三、字段不可预知

从其他内表取字段。只能用动态内表了

[20200729114603812.png]: /images/20230208/d927be317678439591ea649cb72ea389.png
[20200729123508771.png]: /images/20230208/1ec59b799f1e466a9f665b660147cb69.png