SAP指针Field-Symbols:＜FS＞用法及实例

指针Field-Symbols:用法

内部字段定义 :

FIELD-SYMBOLS:   [TYPE>]

一、在ABAP编程中使用非常广泛，类似于指针，可以指代任何变量。

当不输入时，继承赋给它的变量的所有属性 

当输入时，赋给它的变量必须与同类型。 

举个简单的例子：

  FIELD-SYMBOLS:.

  DATA:DAT(8) VALUE '19920108'.

  ASSIGN DAT TO F1>.

  WRITE:/ F1>.

" 继承dat属性，为C类型，值为19920108 。"

二、注意，这里定义了之后，使用assign .. to ..，将变量分配给内部字段,这时才继承了dat的属性及值。

如果写成如下：

  FIELD-SYMBOLS: TYPE D.
  DATA:DAT(5) TYPE C VALUE '12345'.
  ASSIGN DAT TO F2>.
  WRITE:/ F2>.

这时就会报错：dat与的类型不兼容。因为F2定义为D类型，所以assign的只能是同类型变量。

FIELD-SYMBOLS: TYPE D.
  DATA:DAT(8) VALUE '19920108'.
  ASSIGN DAT TO F3> TYPE 'D'.
  WRITE:/ F3>.

这次虽然为D类型，而dat为C类型，但是type D 是将dat类型转换成D类型再分配给，输出19920108.

简单介绍下之后，我们不再赘述，下面结合之前的博文《将Excel导入SAP数据库表》讲下如何使用field-symbol:

首先我们摘取相关代码如下

1.先定义.

FIELD-SYMBOLS:.
SORT I_EXCEL BY ROW COL.
DATA:NUM_COL TYPE I.

2.循环i_excel内表，依次读出Excel中每一行的内容，写入I_TABLE内表(这里要结合之前的将excel导入SAP的博文内容)：

我们选择的Excel有两行内容 

所以取到i_excel中的内容如下图： 

去掉表头行后： 

执行下面的代码：

LOOP AT I_EXCEL INTO W_EXCEL.
  NUM_COL = W_EXCEL-COL.
    ASSIGN COMPONENT  NUM_COL  OF STRUCTURE W_TABLE TO .
    = W_EXCEL-VALUE.
  AT END OF ROW.
    APPEND W_TABLE TO I_TABLE.
    CLEAR:W_TABLE.
  ENDAT.
  CLEAR:W_EXCEL.
ENDLOOP.

根据代码，我们一起单步调试一下： 

loop第一次，先将i_excel的第一行写入工作区 w_excel，这时w_excel中的内容为： 

w_excel-row = 0002. 

w_excel-col = 0001. 

w_excel-value = 1. 

所以num_col = w_excel-col 也就是1. 

那ASSIGN COMPONENT NUM_COL OF STRUCTURE W_TABLE TO .就相当于： 

assign component 1 of structure w_table to . 

也就是将w_table-num 分配给了，前面我们提到，分配给之后，继承了分配给它的变量的属性和值。 

此外还有一点：当我们改变本身时，它的分配变量也会跟着改变，简单来说，就是双向的。改变任何一方，另一方都会跟着改变。所以我们这里的思路就是通过改变达到改变w_table-num的目的。 

回到代码： = w_excel-value. 

将 2-1单元格的 value 赋值给,相当于就是将第一行的序号字段赋值给了w_table-num.也就是1 。这时w_table-num = 1. 

紧接着，后面有一个用法： 

at end of row. 

….. 

endat. 

这段代码的作用就是：以row字段为准，当row值将要改变时(也就是下一次循环的值)执行其中的代码。 

所以这个用法只能在loop中使用，而且使用之前我们要注意给内表按照row排序：SORT I_EXCEL BY ROW COL.

在上面的程序中，我们为了让一行所有的字段都对应赋值到w_table的对应字段上，然后再提交到i _table中。回到刚才的第一次循环结束： 

由于内表中第二行row值还为0002，所以不执行at end of 中的代码，loop第二次： 

w_excel-row = 0002. 

w_excel-col = 0002. 

w_excel-value = A. 

道理同上，这次assign component 2 of structure w_table to . 

将 w_table-txt 分配给,然后将’A’赋值给,也就是 w_table-txt = ‘A’.这次执行at end of 中代码，因为内表下一行row是0003(见上图)，所以执行 append w_table to i_table. clear:w_table. 

这样我们就写入i_table中一行内容，那就是序号 ：1 ，内容：A。

这样我们依次把excel中的每一行都取到了i_table中，当然这样还没有完全完成，最终我们要将数据写入gt_table,从而提交到数据库中。所以还要执行下面的代码：

LOOP AT I_TABLE INTO W_TABLE.
  GW_TABLE-MANDT = SY-MANDT.
  GW_TABLE-NUM = W_TABLE-NUM.
  GW_TABLE-TXT = W_TABLE-TXT.
APPEND GW_TABLE TO GT_TABLE.
CLEAR:GW_TABLE.
CLEAR:W_TABLE.
ENDLOOP.

后面这部分是博文如何将Excel导入sap数据库表的内容，但是field-symbols的用法非常方便，具体的其他使用方法本人后续会总结后分享给大家共同学习进步，有不对之处还望各位大神指正。

三、实例

FIELD-SYMBOLS:    TYPE any,
                    TYPE any,
                  TYPE any,
                  TYPE any.
 
* 管理费用特殊处理
  READ TABLE pt_acc_cost1 ASSIGNING  WITH KEY ergsl = '00001' stufe = '02'.
  WHILE sy-subrc = 0.
    ASSIGN COMPONENT sy-index OF STRUCTURE  TO .
    READ TABLE pt_acc_cost1 ASSIGNING  WITH KEY ergsl = '71'.
    IF sy-subrc = 0.
      ASSIGN COMPONENT sy-index OF STRUCTURE  TO .
    ENDIF.
    IF sy-index > 7.
       =  - .
    ENDIF.
  ENDWHILE.
 
  READ TABLE gt_acc_cost1_lastyear ASSIGNING  WITH KEY ergsl = '00001' stufe = '02'.
  WHILE sy-subrc = 0.
    ASSIGN COMPONENT sy-index OF STRUCTURE  TO .
    READ TABLE gt_acc_cost1_lastyear ASSIGNING  WITH KEY ergsl = '71'.
    IF sy-subrc = 0.
      ASSIGN COMPONENT sy-index OF STRUCTURE  TO .
    ENDIF.
    IF sy-index > 7.
       =  - .
    ENDIF.
  ENDWHILE.