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>=

總結

以上是生活随笔為你收集整理的解除分配UNASSIGN的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。