Question

我正在声明一个顺序文件：

    SELECT   F-MYFILE ASSIGN       DATABASE-MYFILE
                      ORGANIZATION SEQUENTIAL          
                      ACCESS       SEQUENTIAL          
                      STATUS       WW-STS-MYFILE.

在我的COBOL程序中，我打开它：

    OPEN extend F-MYFILE
    IF WW-STS-MYFILE NOT="00"  
       GO TO  FINISH
    END-IF                

    INITIALIZE MYFILE
    MOVE "abcd" TO CONTENT OF MYFILE
    WRITE MYFILE.

当我正在编写记录时，文件在WW-STS-MYFILE状态中没有显示任何错误，其为'00'。但是记录还没有写下来。你能否告诉我可能的原因。

由于

Answer 1

我不熟悉AS / 400，因为我是z / OS开发人员，但我遵循的经验法则是你读了一个文件，但你写了一个记录。如果MYFILE是文件名而不是该文件的记录布局，那么您正在尝试编写文件而不是该文件的记录。

Answer 2

您的程序是否关闭了该文件？该文件是否在承诺控制下？如果您正在使用承诺控制，并且您还没有完成COMMIT或CLOSE，那么当程序结束时，记录将自动回滚。

如果您在程序仍在运行时尝试查看该文件，则在它关闭文件之前，它可能是文件缓冲问题。

AS 400-顺序文件未写入。状态没有错误。 COBOL 400

2 个答案: