z/OS上使用QSAM文件的示例代码

本示例展示了如何在IBM z/OS操作系统上使用QSAM（Queued Sequential Access Method）文件处理数据。通过这段代码，您可以熟悉如何打开、读取、写入、关闭QSAM文件以及处理读取到的数据。

// 定义文件名和数据结构
#define FILENAME "MYFILE"
struct MYRECORD {
   int id;
   char name[20];
};

// 打开文件
int fd = open(FILENAME, O_CREAT | O_RDWR, 344);

// 写入数据
struct MYRECORD record;
record.id = 1;
strcpy(record.name, "John");
if (write(fd, &record, sizeof(record)) != sizeof(record)) {
   perror("Write error");
}

// 读取数据
lseek(fd, 0, SEEK_SET);
while (read(fd, &record, sizeof(record)) == sizeof(record)) {
   printf("ID: %d\tName: %s\n", record.id, record.name);
}

// 关闭文件
close(fd);

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