指针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: <tab01> TYPE any,
<tab02> TYPE any,
<field01> TYPE any,
<field02> TYPE any.
* 管理费用特殊处理
READ TABLE pt_acc_cost1 ASSIGNING <tab01> WITH KEY ergsl = '00001' stufe = '02'.
WHILE sy-subrc = 0.
ASSIGN COMPONENT sy-index OF STRUCTURE <tab01> TO <field01>.
READ TABLE pt_acc_cost1 ASSIGNING <tab02> WITH KEY ergsl = '71'.
IF sy-subrc = 0.
ASSIGN COMPONENT sy-index OF STRUCTURE <tab02> TO <field02>.
ENDIF.
IF sy-index > 7.
<field01> = <field01> - <field02>.
ENDIF.
ENDWHILE.
READ TABLE gt_acc_cost1_lastyear ASSIGNING <tab01> WITH KEY ergsl = '00001' stufe = '02'.
WHILE sy-subrc = 0.
ASSIGN COMPONENT sy-index OF STRUCTURE <tab01> TO <field01>.
READ TABLE gt_acc_cost1_lastyear ASSIGNING <tab02> WITH KEY ergsl = '71'.
IF sy-subrc = 0.
ASSIGN COMPONENT sy-index OF STRUCTURE <tab02> TO <field02>.
ENDIF.
IF sy-index > 7.
<field01> = <field01> - <field02>.
ENDIF.
ENDWHILE.