z/OS COBOL文件处理示例与技术解答

此示例展示了在z/OS上使用COBOL进行文件处理的方法。通过读取和写入文件记录，实现了简单的数据处理功能。代码中展示了如何打开、读取和关闭顺序文件，并对文件中的数据进行简单处理。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE-HANDLING.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       SELECT IN-FILE ASSIGN TO 'INPUT.FILE'
           ORGANIZATION IS LINE SEQUENTIAL.
       SELECT OUT-FILE ASSIGN TO 'OUTPUT.FILE'
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD IN-FILE.
       01 IN-RECORD.
          05 IN-NAME     PIC X(20).
          05 IN-AGE      PIC 99.
       FD OUT-FILE.
       01 OUT-RECORD.
          05 OUT-NAME    PIC X(20).
          05 OUT-AGE     PIC 99.
       WORKING-STORAGE SECTION.
       01 EOF-SWITCH       PIC X VALUE 'N'.
       PROCEDURE DIVISION.
           OPEN INPUT IN-FILE
               OUTPUT OUT-FILE.
           PERFORM UNTIL EOF-SWITCH = 'Y'
               READ IN-FILE
                   AT END
                       MOVE 'Y' TO EOF-SWITCH
                   NOT AT END
                       PERFORM PROCESS-RECORD
               END-READ
           END-PERFORM.
           CLOSE IN-FILE
               OUT-FILE.
           STOP RUN.
       PROCESS-RECORD.
           MOVE IN-NAME TO OUT-NAME
           MOVE IN-AGE TO OUT-AGE
           WRITE OUT-RECORD.

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