ASSIGN COMPONENT <comp> OF STRUCTURE <s> TO <FS>.

来源：互联网发布：福彩3d软件分析软件编辑：程序博客网时间：2024/06/06 15:52

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

可以用 ASSIGN 语句将字段串的特殊组件分配给字段符号，过程如下：

语法

系统将字符串 <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

该示例中， <F1> 指向字段串 LINE， <F2> 指向字段 COMP。循环中，LINE 的组件由其号码指定，并且一个接一个地被分配到 <F3>。循环之后， LINE 的组件 COL3 由其名称指定，并被分配到 <F3>。

0 0