z/OS中处理COBOL文件的示例代码

本示例代码展示了如何使用z/OS上的COBOL程序处理文件，包括打开文件、读入数据、输出数据和关闭文件等操作。

IDENTIFICATION DIVISION.
   PROGRAM-ID. COBOLPRG.

   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT INPUT-FILE ASSIGN TO 'SYS1.INPUT.FILE'
      ORGANIZATION IS SEQUENTIAL.

   DATA DIVISION.
   FILE SECTION.
   FD INPUT-FILE
      RECORDING MODE IS F
      RECORD CONTAINS 80 CHARACTERS.

   WORKING-STORAGE SECTION.
   01 WS-RECORD.
      05 WS-NAME      PIC X(20).
      05 WS-ID        PIC X(10).
      05 WS-GRADE     PIC X(3).

   PROCEDURE DIVISION.
   OPEN-FILES.
       OPEN INPUT INPUT-FILE.
   PROCESS-FILES.
       READ INPUT-FILE INTO WS-RECORD.
       PERFORM UNTIL WS-RECORD = ' '
           MOVE WS-NAME TO WS-OUT-NAME
           MOVE WS-ID TO WS-OUT-ID
           MOVE WS-GRADE TO WS-OUT-GRADE
           WRITE WS-OUT-RECORD
           READ INPUT-FILE INTO WS-RECORD
       END-PERFORM.
   CLOSE-FILES.
       CLOSE INPUT-FILE.
       STOP RUN.

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