DATA: BEGIN OF STRUC,

        COMP1 TYPE C LENGTH  VALUE '',

        COMP2 TYPE C LENGTH  VALUE '',

        COMP3 TYPE STRING VALUE 'bruce king',

      END OF STRUC,

      COMP_VALUE TYPE C LENGTH  VALUE 'value',

      COMP_NAME  TYPE C LENGTH .

FIELD-SYMBOLS: <FS> .

"指派结构的一个字段给<fs>

ASSIGN STRUC-COMP1 TO <FS>.  WRITE:/ '第一个',<FS>. " 输出:1

"指派结构字段的基地址加上两倍此字段长度的地址给字段符号

ASSIGN STRUC-COMP1 INCREMENT  TO <FS>. WRITE:/ '第二个',<FS>. " 输出: 1

"指派结构的第二个组件字段给字段符号

ASSIGN COMPONENT  OF STRUCTURE STRUC TO <FS>.  WRITE:/ '第三个',<FS>. " 输出:22222

ASSIGN COMPONENT  OF STRUCTURE STRUC TO <FS>. WRITE:/ '第四个',<FS>.

"动态指定字段名,一般不用

COMP_NAME = 'comp_value'.

ASSIGN (COMP_NAME) TO <FS>. WRITE:/ '第五个',<FS>. "输出：value

ASSIGN COMP_NAME TO <FS>. WRITE:/ '第六个',<FS>. "输出：comp_value