如何在z/OS中使用COBOL编写程序来读取和写入VSAM数据集

使用COBOL编写程序来读取和写入VSAM数据集是z/OS中非常普遍的任务。本示例代码将演示如何使用COBOL编写程序来读取和写入VSAM数据集，包括如何打开和关闭数据集以及如何处理数据集中的记录。

IDENTIFICATION DIVISION.
       PROGRAM-ID. READ-VSAM.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       SELECT VSAM-FILE ASSIGN TO DDNAME.
       ORGANIZATION IS INDEXED.
       ACCESS MODE IS RANDOM.
       RECORD KEY IS VSAM-KEY.
       FILE STATUS IS VSAM-STATUS.
       DATA DIVISION.
       FILE SECTION.
       FD VSAM-FILE.
       01 VSAM-RECORD.
         05 VSAM-KEY PIC X(10).
         05 VSAM-DATA PIC X(30).
       WORKING-STORAGE SECTION.
       01 WS-FILLER PIC X(10).
       01 WS-STATUS PIC X(02).
       01 WS-DATA PIC X(30).
       01 WS-RBA PIC 9(08) COMP.
       PROCEDURE DIVISION.
       OPEN INPUT VSAM-FILE.
       READ VSAM-FILE KEY IS VSAM-KEY INVALID KEY
           SET WS-STATUS TO "01"
           NOT INVALID KEY
           MOVE VSAM-DATA TO WS-DATA
           SET WS-STATUS TO "00".
       WRITE VSAM-FILE INVALID KEY
           SET WS-STATUS TO "01"
           NOT INVALID KEY
           MOVE WS-DATA TO VSAM-DATA
           SET WS-STATUS TO "00".
       READ NEXT VSAM-FILE KEY IS VSAM-KEY
           INVALID KEY SET WS-STATUS TO "02".
       CLOSE VSAM-FILE.

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