0

COBOLでは、行シーケンシャルファイルを読み取りたいと思います。最初の行は1回発生します。2行目と3行目は、複数回（不明）繰り返すことができます。私は本当にそれを行う方法がわかりません。

ファイルの説明は次のようなものだと思います。

01 DBGEGEVENS            PIC X(200).
01 PROJECT. (occurs unknown times)
   03 PROJECTCODE        PIC X(10).
   03 CSVPAD             PIC X(200).
4

2 に答える 2

2

ファイル形式によって異なります

VBファイル形式が必要ですか???? それから

   FILE-CONTROL.
       SELECT In-File ASSIGN .....
   DATA             DIVISION.
   FILE             SECTION.
   FD  Comp-File.
    01  DBGEGEVENS            PIC X(200).
    01  PROJECT. 
        03 PROJECTCODE        PIC X(10).
        03 CSVPAD             PIC X(200).

と

    Read In-File
    Read In-File
    Read In-File

最初のレコードにはDBGEGEVENSを使用し、2番目または後続のレコードにはプロジェクトを使用します

固定幅ファイル形式の場合

   FILE-CONTROL.
       SELECT Comp-File ASSIGN .....
   DATA             DIVISION.
   FILE             SECTION.
   FD  Comp-File.
   01  input-record.

   WORKING-STORAGE  SECTION.
    01  DBGEGEVENS            PIC X(200).
    01  PROJECT. 
        03 PROJECTCODE        PIC X(10).
        03 CSVPAD             PIC X(200).

と

    Read In-File into DBGEGEVENS
    Read In-File into PROJECT.
    Read In-File into PROJECT.

使用するファイル形式に応じて、どちらも機能するはずです

于 2013-02-18T01:00:07.253 に答える
0

与えられたコードはVBファイルを示しています-レコード1は200バイトで、他のレコードは210バイトです。レコードには、それらが何であるか、およびそれらの目的を説明するインジケーターが必要です。最終的には、それらをWORKING-STORAGEに読み込むことで最も効果的です。ファイルを渡す人には、どのインジケーターが使用可能かを尋ねます。ただし、レコード1がファイル内の唯一の200バイトのレコードであることがわかっている場合、残りの210バイトのレコード（および提供された定義は210バイトを記述します）は、それらの定義に適合するWORKING-STORAGE領域に読み込まれます。

于 2013-02-20T01:05:05.643 に答える