ABAP 指针 FIELD-SYMBOLS

最新推荐文章于 2024-07-29 10:52:29 发布

踩沙滩

最新推荐文章于 2024-07-29 10:52:29 发布

阅读量8.2k

点赞数 1

分类专栏： ABAP 文章标签： abap FIELD-SYMBOLS abap指针 ASSIGN 动态内表

本文链接：https://blog.csdn.net/yang362046076/article/details/49070505

版权

ABAP 专栏收录该内容

71 篇文章 21 订阅

订阅专栏

ABAP中也是存在指针的（指针说法可能欠缺，先这样说吧），为了区分和一般变量，指针用两个尖括号括起来（<fs>）.指针用FIELD-SYMBOLS定义，然后要使用指针之前得用ASSIGN初始化，赋值。看一个例子，可以debug看。

REPORT ZTEST_POINTER.
DATA: num TYPE i VALUE 12.
FIELD-SYMBOLS: <F1>,
               <F2> TYPE I,
               <F3> like num.
ASSIGN: num  TO <F1>,   "assign 类似初始化的意思 如果指针没有经过assign就不能做其他操作。
        num  TO <F2>,
        <F1> TO <F3>.
* num  = <F1>.
*        num  = <F2>.
*        <F1> = <F3>.
WRITE: / <F1>,
       / <F2>,
       / <F3>.

<f3> = <f3> + 1.
WRITE: <f3>.
num = num + 12.
WRITE: / <F1>,
       / <F2>,
       / <F3>.

在第6行到第8行运行后，<f1>,<f2>,<f3>都指向了num地址，所以此时它们的值都是12.现在因为它们都指向了同一个地址（NUM），所以它们只有一个变化的话，它们也都一起变化。如<f3> = <f3> +1执行后，num,<f1>,<f2>,<f3>都变为13.再执行完num = num ＋１２，之后num,<f1>,<f2>,<f3>都变为２５.

指针还经常用在动态定义内表的时候，

　　动态定义具有栏位结构的指针类型
    
    　　 DATA: tabname TYPE tabname VALUE 'SFLIGHT' ,   

    　　　<span style="white-space:pre">		</span>dref TYPE REF TO data.
    　　  FIELD-SYMBOLS: <itab> TYPE ANY TABLE.    

    　　  CREATE DATA dref TYPE TABLE OF (tabname).
    　　  ASSIGN dref->* TO <itab>.

如下可定义表的行，其实也就是ｓｔｒｕｃｔ。

FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
               <dyn_wa>,

DATA: dy_table TYPE REF TO data,
      dy_line  TYPE REF TO data.
CREATE DATA dy_line LIKE LINE OF <dyn_table>.
ASSIGN dy_line->* TO <dyn_wa>.