COBOL文件读取示例与技术解答

此示例展示了如何使用COBOL编程语言读取文件。通过COBOL的文件处理功能，实现了从文件中读取数据并将其展示在屏幕上的功能。程序首先打开文件，然后逐行读取文件中的数据，并在控制台打印出来。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE-READ-EXAMPLE.
       DATA DIVISION.
       FILE SECTION.
       FD MY-FILE.
       01 FILE-RECORD.
          05 NAME       PIC X(20).
          05 AGE        PIC 99.
       WORKING-STORAGE SECTION.
       01 WS-EOF     PIC X VALUE 'N'.
       PROCEDURE DIVISION.
       OPEN INPUT MY-FILE.
       READ MY-FILE
           AT END MOVE 'Y' TO WS-EOF
       END-READ.
       DISPLAY "NAME: " NAME " AGE: " AGE.
       CLOSE MY-FILE.
       STOP RUN.

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com