小编Chr*_*ber的帖子

COBOL:简单的文件读取问题

我有一个非常基本的 COBOL 程序,它读取文件input.dat并简单地在控制台中输出它。该input.dat文件如下所示:

John                Johnson             
Peter               Peterson            
Juliette            Julietteson         
Natasha             Natashason          
Justin              Justinson           
Run Code Online (Sandbox Code Playgroud)

它没有正确显示在这里,但我肯定有20 chars名字和20 chars姓氏。

这是我的 COBOL 程序:

    IDENTIFICATION DIVISION.
    PROGRAM-ID. ATEST4.
    ENVIRONMENT DIVISION.
    INPUT-OUTPUT SECTION.
    FILE-CONTROL.
        SELECT INPUTFILE ASSIGN TO "files/input.dat".
    DATA DIVISION.
    FILE SECTION.
    FD  INPUTFILE LABEL RECORDS ARE OMITTED.
    01  INPUTRECORD              PIC X(40).    
    WORKING-STORAGE SECTION.
    01  FILE-STATUS              PIC 9 VALUE 0.
    PROCEDURE DIVISION.
    001-MAIN.
        OPEN INPUT INPUTFILE.
        PERFORM 002-READ UNTIL FILE-STATUS = 1.
        CLOSE INPUTFILE.
        STOP RUN.
            
    002-READ. …
Run Code Online (Sandbox Code Playgroud)

cobol gnucobol

4
推荐指数
1
解决办法
4105
查看次数

标签 统计

cobol ×1

gnucobol ×1