指针1 - SAP指针使用实例

*&---------------------------------------------------------------------*
*& Report ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTEST.
TYPES:
begin of IT_WOG,
WOG001 like COSS-WOG001,
WOG002 like COSS-WOG002,
WOG003 like COSS-WOG003,
WOG004 like COSS-WOG004,
WOG005 like COSS-WOG005,
WOG006 like COSS-WOG006,
WOG007 like COSS-WOG007,
WOG008 like COSS-WOG008,
WOG009 like COSS-WOG009,
WOG010 like COSS-WOG010,
WOG011 like COSS-WOG011,
WOG012 like COSS-WOG012,
WOG013 like COSS-WOG013,
WOG014 like COSS-WOG014,
WOG015 like COSS-WOG015,
WOG016 like COSS-WOG016,
end of IT_WOG.

field-symbols: <fs> type any.

data: l_field(14),
IT_WOG type standard table of IT_WOG with header line,
l_index TYPE I,
WOG0 LIKE COSS-WOG016,
l_ind(2).

IT_WOG-WOG002 = 123.
IT_WOG-WOG003 = 1.
APPEND IT_WOG.

LOOP AT IT_WOG.
DO 12 TIMES.
l_index = l_index + 1.
l_ind = l_index.
unpack l_ind to l_ind.

concatenate 'IT_WOG-WOG0' l_ind into l_field.

assign (l_field) to <fs>.

WOG0 = WOG0 + <fs>.
WRITE / WOG0.
ENDDO.
ENDLOOP.

 

转载自：http://blog.csdn.net/saphome/article/details/2260071

 

 

可以用ASSIGN语句将字段串的特殊组件分配给字段符号，过程如下： 语法 ASSIGNCOMPONENT<comp>OFSTRUCTURE<s>TO<FS>. 系统将字符串<s>的组件<comp>分配给字段符号<FS>

可以用 ASSIGN 语句将字段 串的特殊组 件分配给字 段符号，过 程如下： 语法 ASSIGN COMPONENT <comp> OF STRUCTURE <s> TO <FS>. 系统将字符 串 <s> 的组件 <comp> 分配给字段 符号 <FS>。 可以指定 <comp> 为文字或变 量。如果 <comp> 属于类型 C 或字段串（ 象组件一样 没有内表） ，它指定组 件的名称。 如果 <comp> 有任何其它 基本数据类 型，将被转 化为类型 I（参见 类型转换 (页 6–36) ），并且指 定组件号。 如果分配成 功，SY-SUBRC 设为 0。否则， 返回 4。   DATA: BEGIN OF LINE,          COL1 TYPE I VALUE '11',          COL2 TYPE I VALUE '22',          COL3 TYPE I VALUE '33',       END OF LINE. DATA COMP(5) VALUE 'COL3'. FIELD-SYMBOLS: <F1>, <F2>, <F3>. ASSIGN LINE TO <F1>. ASSIGN COMP TO <F2>. DO 3 TIMES.    ASSIGN COMPONENT SY-INDEX OF STRUCTURE <F1> TO <F3>.    WRITE <F3>. ENDDO. ASSIGN COMPONENT <F2> OF STRUCTURE <F1> TO <F3>. WRITE / <F3>. 输出如下： 11         22         33 33 该示例中， <F1> 指向字段串 LINE， <F2> 指向字段 COMP。 循环中，LINE 的组件由其 号码指定， 并且一个接 一个地被分 配到 <F3>。 循环之后， LINE 的组件 COL3 由其名称指 定，并被分 配到 <F3>。

下篇提示:除了使用数据对象的名称外，还可以将字段符号分配给ASSIGN语句的所有变量中的字段符号。为此，编码静态ASSIGN如下： 语法 ASSIGN<FS1>[+<o>][(<l>)]TO<FS2>. 可按下列方式编码动态ASSIGN： 语法 ASSIGN[TABLEFIELD](<f>)TO<FS2>. 字段<...   http://www.fuhesap.com/sap/2918.html

 

转载自：http://blog.csdn.net/yuqinying112/article/details/8514367