z/OS中使用VSAM文件实现记录的删除与修改

本示例代码演示了在z/OS中使用VSAM文件实现记录的删除与修改的功能。实现方式是在COBOL编程语言中使用ESDS（Entry-Sequenced Data Set）数据集来存储和处理数据。

IDENTIFICATION DIVISION.
PROGRAM-ID. DELETE-UPDATE-VSAM.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-DATA.
   05 EMPLOYEE-ID PIC 9(5).
   05 EMPLOYEE-NAME PIC X(20).
   05 EMPLOYEE-AGE PIC 9(3).
   05 EMPLOYEE-SALARY PIC 9(8)V99.
   05 FILLER PIC X(72).
01 FILE-STATUS.
   05 COMPANY-NAME PIC X(6) VALUE "IBM".
   05 FILLER PIC X(1).
   05 FILE-NAME PIC X(8) VALUE "EMPLOYEE".
   05 FILLER PIC X(2).
   05 FILE-STATUS-CODE PIC XX.
01 WS-TO-DELETE.
   05 EMPLOYEE-ID-TO-DELETE PIC 9(5).
01 WS-TO-UPDATE.
   05 EMPLOYEE-ID-TO-UPDATE PIC 9(5).
   05 NEW-EMPLOYEE-NAME PIC X(20).
   05 NEW-EMPLOYEE-AGE PIC 9(3).
   05 NEW-EMPLOYEE-SALARY PIC 9(8)V99.
01 WS-FILE-STATUS.
   05 FILLER PIC X(2) VALUE SPACES.
   05 FILE-STATUS-CODE PIC XX.
01 WS-REC.
   05 WS-EMPLOYEE-ID PIC 9(5).
   05 WS-EMPLOYEE-NAME PIC X(20).
   05 WS-EMPLOYEE-AGE PIC 9(3).
   05 WS-EMPLOYEE-SALARY PIC 9(8)V99.
   05 FILLER PIC X(72).
01 WS-FILE-POSITION PIC S9(9) COMP.
01 WS-FILE-EOF PIC X.
PROCEDURE DIVISION.
   OPEN I-O EMPLOYEE-FILE.
   PERFORM UNTIL WS-FILE-EOF = 'Y'
      READ EMPLOYEE-FILE INTO WS-REC
         AT END
            SET WS-FILE-EOF TO 'Y'
            CONTINUE
         NOT AT END
            IF WS-EMPLOYEE-ID = EMPLOYEE-ID-TO-DELETE
               DELETE EMPLOYEE-FILE
               SET WS-FILE-EOF TO 'Y'
            ELSE IF WS-EMPLOYEE-ID = EMPLOYEE-ID-TO-UPDATE
               MOVE NEW-EMPLOYEE-NAME TO WS-EMPLOYEE-NAME
               MOVE NEW-EMPLOYEE-AGE TO WS-EMPLOYEE-AGE
               MOVE NEW-EMPLOYEE-SALARY TO WS-EMPLOYEE-SALARY
               REWRITE EMPLOYEE-FILE
               SET WS-FILE-EOF TO 'Y'
            ELSE
               CONTINUE
            END-IF
      END-READ
   END-PERFORM.
   CLOSE EMPLOYEE-FILE.
   STOP RUN.

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