z/OS COBOL程序中使用VSAM文件实现随机访问

本示例演示了在z/OS环境下使用COBOL编写程序，通过VSAM文件实现随机访问记录的功能。通过该示例，你可以学习如何在z/OS平台上使用COBOL处理文件，并利用VSAM提供的随机存取能力。

IDENTIFICATION DIVISION.
PROGRAM-ID. RandomAccessDemo.

DATA DIVISION.
FILE SECTION.
FD EmployeeFile
   LABEL RECORDS ARE STANDARD
   VALUE OF FILE-ID IS "EMPLOYEE"
   DATA RECORD IS EmployeeRecord.

01 EmployeeRecord.
   05 EmployeeID     PIC 9(5).
   05 EmployeeName   PIC X(30).
   05 EmployeeSalary PIC 9(7)V99.

WORKING-STORAGE SECTION.
01 KeyToBeSearched   PIC 9(5) VALUE 12345.

PROCEDURE DIVISION.
   OPEN I-O EmployeeFile.
   READ EmployeeFile INVALID KEY DISPLAY "File not found." STOP RUN.

   PERFORM UNTIL KeyToBeSearched = 99999
      READ EmployeeFile
         INVALID KEY DISPLAY "Record not found." 
      END-READ

      IF EmployeeID = KeyToBeSearched
         DISPLAY "EmployeeID: " EmployeeID
         DISPLAY "Name: " EmployeeName
         DISPLAY "Salary: " EmployeeSalary
      END-IF
   END-PERFORM.

   CLOSE EmployeeFile.

STOP RUN.

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