1

私はシーケンシャルファイルを宣言しています:

    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' です。しかし、まだレコードは書き込まれていません。同じ理由として考えられることを教えてください。

ありがとう

4

2 に答える 2

0

私は z/OS 開発者であるため、AS/400 にはあまり詳しくありませんが、経験則に従って、ファイルを読み取りますが、レコードを書き込みます。MYFILE がファイル名であり、そのファイルのレコード レイアウトではない場合、そのファイルのレコードではなくファイルを書き込もうとしています。

于 2012-10-25T03:13:02.970 に答える