**********文件初始化***************************RECALL/D(PC02)DECL/CHAR,20,NAME,NAME1,NAME2TEXT/QUERY,(NAME),20,AN,L,'请输入屏尺寸代码' WRITE/DID(DidTerm),'屏尺寸代码R21PB- ',NAMENAME1=CONCAT('R21PB',NAME)NAME2=CONCAT('D:\彩玻\屏\',NAME1,'.DAT')DID(OUTFILE)=DEVICE/STOR,NAME2OP