假设由工资数据库CZ.DBF：
Record # 姓名 实发工资 百元 伍十元 拾元 五元 壹元 伍角
1 李敏 486.50
2 王永明 390.50
要求将GZ.DBF中每个人的实发工资分解成佰元，伍十元，拾元，五元，壹元，伍角面额的人民币
各是多少张，分别填入相应字段。
SET TALK OFF
USE GZ
DO WHILE.NOT.EOF()
STORE 0 T0 A，B，C，D，E，F
A=INT(实发工资/100)
REPLOACE佰元WITH A
B：实发工资-A*100
C=______
IP C>=5
REPLACE______
C=C 5
ENDIF
REPLACE拾元WITH C
D=B-______
IF INT(D) -5
REPLACE伍元WITH 1
E=INT( D) -5
ENDIF
REPLACE______
P=D-INT(D)
IF F>=0.5
REPLACE伍角WITH 1
ENDIP
______
ENDDO
SUM 佰元，伍十元，拾元，五元，壹元，伍角TO A1，B1，C1，D1，E1，F1
A1，B1，C1，D1，E1，P1
USE
SET TALK ON
CANCEL