ASSIGN COMPONENT OF STRUCTURE TO .详解

可以用 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>。