READ 文件名
AT END MOVE 'Y' TO EOF-FLAG
END-READ
不在循环中，它到底表达的是什么意思?
是读取了一条记录，如果这条记录是最后一条的时候，执行后面操作
还是循环读取每条数据，当读取到最后一条时，执行后面操作。
------解决方案--------------------------------------------------------
按理来说，在工作存储节声明的只是读一个记录的内存，所以应该是每次读一条记录就应该去执行后面的操作。马千里写的那本书，他都有用一个循环来读取，不过华东理工94版的都没用循环。这我就也纳闷了，在COBOL85之前，没END-READ难道说，程序执行到STOP RUN 之前又返回来执行READ语句？
------解决方案--------------------------------------------------------
是读文件的一条记录，如果文件到了末尾，Y作为标志位（EOF-FLAG
）的值，一般在循环中，就以这个标志位（EOF-FLAG
）为判断条件！