Question

让我们假设我要将以下内容写入顺序输出txt文件。

!---!  
This is a report!  
!---!  
Here is the list of records:   
001 Jack  
002 Alice  
!---!  
Number of crimes:   
Jack: 01  
Alice: 02

问题是，当我定义顺序输出文件及其内容时，我不知道该如何定义所有这些不同类型的行。例如!---!必须像一个常数，而001 Jack应该这样写：

FD OUTPUT-FILE.  
    01 PERSON-RECORD.
        05 ID PIC 999.
        05 NAME PIC X(10).

另一方面，在"Number of crimes:"之后应该有记录：

01 CRIMES.
    05 NAME PIC X.
    05 NO-OF-CRIME PIC 99.

但是如果我在同一01 PERSON-RECORD.下写01 CRIMES.和FD，那么在尝试写入输出文件时会遇到问题。 CRIMES的值实际上变为PERSON-RECORD的值。

有什么想法吗？

Answer 1

有什么想法吗？

在FILE-CONTROL中使用ORGANIZATION LINE SEQUENTIAL。

在DATA DIVISION.中，

FILE SECTION.
FD OUTPUT-FILE.
01 OUTPUT-RECORD PIC X(80).

WORKING-STORAGE SECTION.
01 CONSTANT-TEXT-1 PIC X(5) VALUE "!---!".
01 CONSTANT-TEXT-2 PIC X(17) VALUE "This is a report!"
01 CONSTANT-TEXT-3 PIC X(28) VALUE "Here is the list of records:"
01 CONSTANT-TEXT-4 PIC X(17) VALUE "Number of crimes:".
01 PERSON-RECORD.
    05 ID PIC 999.
    05 NAME PIC X(10).
01 CRIMES.
    05 NAME PIC X.
    05 NO-OF-CRIME PIC 99.

在PROCEDURE DIVISION中，为WRITE语句使用

WRITE OUTPUT-RECORD FROM CONSTANT-TEXT-1
WRITE OUTPUT-RECORD FROM CONSTANT-TEXT-2
WRITE OUTPUT-RECORD FROM CONSTANT-TEXT-3
WRITE OUTPUT-RECORD FROM CONSTANT-TEXT-4
WRITE OUTPUT-RECORD FROM PERSON-RECORD
WRITE OUTPUT-RECORD FROM CRIMES

以任何顺序生成报告。

您无需使用CONSTANT-TEXT，请使用对该程序有意义的任何名称。

用不同种类的行或记录编写顺序文件

1 个答案: