求教一个查询问题

*　在作业文件夹中新建一个文本文件，并改名为【查询客户.PRG】；
*　将【khzcb】数据库表拷贝到作业文件夹中；
*　用《记事本》软件打开【查询客户.PRG】；
*　将以下代码复制后，粘贴到里面去，再存盘退出。
*　进入 VFP 在命令窗口中运行命令【DO 查询客户.PRG】
mPath = "<作业文件夹的绝对路径>"
SET DEFAULT TO (mPath) &&　设置工作文件夹
SET TALK OFF &&　执行结果不传屏幕
SET CONSOLE OFF &&　执行结果不送屏幕
SET SAFETY OFF &&　重写文件不提示
Close ALL && 关闭所有数据表
Select A
Use khzcb
ZJL = RECCOUNT() && 总记录数
IF ZJL >= 1 THEN
Sort To 暂存表 On brokerID, zzc && 按【客户代码，总资产】升序排列到【排序表】
Use 排序表
Copy To 查询表 Structure && 拷贝一个只有数据结构的空表，即【查询表】
GOTO 1
JS = 1 && 计数变量
n1 = brokerID
n2 = fundid
n3 = zzc
Select B
Use 查询表
Append Blank
REPLACE brokerID WITH n1, fundid WITH n2, zzc WITH n3
FOR JL = 2 To ZJL
n0 = n1 && 上条记录的客户代码
Select A && 排序表
GOTO JL
n1 = brokerID && 本条记录的客户代码
IF n0 <> n1 THEN
JS = 1
ELSE
JS = JS + 1
ENDIF
IF JS <= 20 THEN
n2 = fundid
n3 = zzc
Select B && 查询表
Append Blank
REPLACE brokerID WITH n1, fundid WITH n2, zzc WITH n3
ENDIF
ENDIF
ENDFOR
CLOSE ALL && 关闭所有数据表
DFELETE FILE 排序表.DBF && 删除【排序表】
USE 查询表
BROWSE NOMODIFY && 浏览新生成的数据
USE
*　如果不再使用【查询表】也应该删除
ELSE
MESSAGEBOX("【khzcb】数据表中无记录！", 0 + 64, "系统提示")
ENDIF
CLOSE ALL && 关闭所有数据表
RETURN