程序代码：

CREATE TABLE ZDB ( 字段名 C(10),字段类型 C(1),字段宽度 N(2),小数位 N(1))
FOR I=1 TO 200
    INSERT INTO ZDB VALUES ("F"+PADL(I,3,"0"),IIF(MOD(I,3)=0,"C",IIF(MOD(I,3)=1,"N","D")),10,IIF(MOD(I,3)=1,2,0))
ENDFOR
BLANK FIELDS 小数位 FOR EMPTY(小数位)
REPLACE 字段宽度 WITH 8 FOR 字段类型="D"