下面程序功能是接收数据库文件名，显示数据库的字段名、字段类型、宽度和小数位数，请阅读程序并填空： SET TALK OFF CLEAR DBNAME=SPACE(10) YN=“Y” D0 WHILE UPPER(YN)；“Y” @2，16 SAY“请输入数据库文件名：”GET DBNAME READ FNAME=TRIM(DBNAME)+“.DBF.” IF.NOT.FILE(FNAME) 94,30 SAY“数据库不存在!” LOOP ENDIF USE 1 COPY T0 XYZ STRUCTURE EXTENDED USE XYZ ⑦4,10 SAY“字段名:” ①4,10 SAY“类型:” @4,10 SAY “宽度:” ⑦4,10 SAY“小数位数:” ROW=5 DO WHILE．NOT．EOF() ④ROW，10 SAY FIELD-NAME ⑦ROW，23 SAY 2 @ROW，32 SAY STR(FIELD-LEN,3) ⑦ROW，“SAY STR(FIELD-DEC,3) ROW=ROW+! SKIP ENDDO USE 9 ROW,30 SAY“是否继续?(Y/N)”GET YN READ ENDDO SET TALK 0N RETURN