解除分配UNASSIGN
来源:互联网 发布:scilab 矩阵作差 编辑:程序博客网 时间:2024/05/17 21:48
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>=
阅读全文
0 0
- 解除分配UNASSIGN
- 解除系统还原
- 解除ignored
- 解除邮件附件的禁用
- 解除注册表禁用
- 解除心理枷锁
- oracle 解除记录死锁
- 解除WORD文件锁定
- USB禁用与解除
- 解除oracle表锁定
- 质检状态解除
- 什么是解除引用?
- 解除工作压力的良方
- 解除注册表禁用
- 解除忧郁的方法
- oracle 解除被锁表
- 解除鎖定帳戶,并進行登陸
- ubuntu解除root 登陆
- leetcode 292. Nim Game(C语言)
- 第3周实践项目7 删除链表元素最大值
- HDU-2050
- 精简版jre下tzmapping文件的问题
- ./nginx: error while loading shared libraries: libcrypto.so.1.1: cannot open shared object file: No
- 解除分配UNASSIGN
- zookeeper服务端
- tcp和udp 学习整理(1)
- Python join()函数的使用
- 如何高效设计游戏——游戏策划的自我修养与心得
- 各种top
- 协议-网络层-ARP
- spring原理
- 南阳oj 27 dfs入门