COBOL写文件问题

waiting811013

如题，从一个逻辑文件读取数据，写入一个无键字的PF文件，在环境部和数据部中该如何定义这个无键字的PF文件，请前辈们指点一下~~谢谢！！

giggsone

SELECT  XXX ASSIGN   TO  DATABASE-XXX  
        ORGANIZATION     IS  SEQUENTIAL              
        ACCESS MODE      IS  SEQUENTIAL              
        FILE STATUS      IS  STS-XXX.         

FD  XXX.                              
01  XXX-REC.                          
    COPY  DDS-ALL-FORMATS  OF  XXX.

waiting811013

要求不让用 FILE STATUS      IS  STS-XXX.  那该怎么写呢？

pl421

可以不写，如果不想扑获错误代码的话，

giggsone

是的,可以不写的

waiting811013

write的时候，提示无法正常入力，这是什么原因造成的呢？请大哥赐教

pl421

数据移送不正确吧，比如时间措 数字放字符了之类的

waiting811013

问题已解决，文件打开方式我写成I-O了，用OUTPUT就通过了，谢谢！！

只对文件WRITE的话定义成I-O不可以么？

pl421

貌似可以，你数据由问题吧。。

pl421

原帖由 waiting811013 于 2009-11-4 11:21 发表
问题已解决，文件打开方式我写成I-O了，用OUTPUT就通过了，谢谢！！

只对文件WRITE的话定义成I-O不可以么？

把ERR-CODE抓出来，分析一下。