如何在COBOL中以不同的方式处理文件的第一行

Question

在COBOL中，我想读取一个行顺序文件。第一行出现一次。第二行和第三行可以重复多次（未知）。我真的不知道怎么做。

我认为文件描述是这样的：

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

Answer 1

这取决于的文件格式

你想要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作为第一条记录，并使用项目作为第二条或后续记录

对于固定宽度文件格式

   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.

根据使用的文件格式，两者都应该有效

Answer 2

给出的代码表示VB文件-记录一个是200字节，而其他记录是210字节。记录上应该有一个指标来描述它们是什么以及它们的目的。最终，最好把它们读到工作-存储中——我会问谁把文件递给你，有什么指标可用。然而，如果您知道记录一是文件中唯一的200字节记录，则该记录将被视为头读取-读取一次到其定义中-而剩余的210字节记录（我想强调的是，所提供的定义描述了210字节）将被读取到符合其定义的WORKING-STORAGE区域中。