我有一个非常基本的 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)