解除分配UNASSIGN

UNASSIGN <FS>.

该语句是初始化<FS>字段符号，语句执行后，字段符号将不再引用内存区域（它指向的内存区域不会受影响），逻辑表达式<fs> IS ASSIGNED将会返回假。

 

CLEAR<fs>

与UNASSIGN不同的是，只有一个作用就是初始化它所指向的内存区域，而字段符号本身并没有被解除分配

 

DATA: c VALUE 'a'.
FIELD-SYMBOLS: <fs1>,<fs2>.
ASSIGN c TO <fs1>.
ASSIGN c TO <fs2>.
WRITE: / <fs1>,<fs2>.
UNASSIGN <fs1>.
IF NOT <fs1> IS ASSIGNED.
  WRITE: / 'fs1 is unassigned'.
ENDIF.
WRITE: / '<fs2>=',<fs2>.

CLEAR: <fs2>.
IF <fs2> IS ASSIGNED.
  WRITE: / 'fs2 is assigned'.
ENDIF.
WRITE: / '<fs2>=',<fs2>.

a a

fs1 is unassigned

<fs2>= a

fs2 is assigned

<fs2>=