append 命令示例

以下示例用 append blank 命令创建一个有 10 条记录的表，记录中包含有随机值，然后显示表的最大值和最小值。

close databases
create table random (cvalue n(3))
for nitem = 1 to 10 && 增加 10 个记录
append blank
replace cvalue with 1 + 100 * rand( ) && 插入随机数
endfor

clear
list && display the values
gnmaximum = 1 && 初始化最小值
gnminimum = 100 && 初始化最大值
scan 
gnminimum = min(gnminimum, cvalue)
gnmaximum = max(gnmaximum, cvalue)
endscan
? 'the minimum value is: ', gnminimum && 显示最小值
? 'the maximum value is: ', gnmaximum && 显示最大值