VSAM - RRDS

RRDS 称为相对记录数据集。RRDS 集群类似于 ESDS 集群。唯一的区别是 RRDS 记录是通过相对记录号 (RRN)访问的，我们必须在 DEFINE CLUSTER 命令中编码 NUMBERED。以下是 RRDS 的主要功能 −

• 相对记录数据集具有由相对记录号 (RRN)标识的记录，它是相对于第一条记录的序列号。

• RRDS 允许按编号访问记录，如记录 1、记录 2 等等。这提供了随机访问，并假设应用程序有办法获取所需的记录号。

• 可以按顺序、按相对记录号顺序或直接通过提供所需记录的相对记录号来访问 RRDS 数据集中的记录。

• RRDS 数据集中的记录存储在固定长度的槽中。每个记录都由其槽位号引用，槽位号可以从 1 到数据集中的最大记录数不等。

• 可以通过将新记录插入空槽位来写入 RRDS 中的记录。

• 可以从 RRDS 群集中删除记录，从而留下一个空槽位。

• 使用固定长度记录或具有上下文含义的记录号的应用程序可以使用 RRDS 数据集。

• RRDS 可以像任何其他文件一样在 COBOL 程序中使用。我们将在 JCL 中指定文件名，并且可以使用 KSDS 文件在程序内部进行处理。在 COBOL 程序中，将文件组织指定为 RELATIVE，并且您可以将任何访问模式(顺序、随机或动态)与 RRDS 数据集一起使用。

RRDS 文件结构

在 RRDS 文件结构中，空间被划分为固定长度的槽。槽可以完全空置，也可以完全填满。因此，可以将新记录添加到空槽中，并且可以从已填满的槽中删除现有记录。我们可以通过提供相对记录号直接访问任何记录。以下示例显示了数据文件 − 的基本结构

数据组件

定义 RRDS 集群

以下语法显示了创建 RRDS 集群时可以使用哪些参数。

参数描述与 VSAM - 集群模块中提到的相同。

DEFINE CLUSTER (NAME(rrds-file-name) -
BLOCKS(number) -
VOLUMES(volume-serial) -
NUMBERED -
RECSZ(average maximum) -
[FREESPACE(CI-Percentage,CA-Percentage)] -
CISZ(number) -
[READPW(password)] -
[FOR(days)|TO(date)] -
[UPDATEPW(password)] -
[REUSE / NOREUSE]) -
DATA -
(NAME(rrds-file-name.data))

示例

以下示例展示了如何使用 IDCAMS 实用程序在 JCL 中创建 RRDS 集群 −

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C
//STEP1  EXEC PGM = IDCAMS
//SYSPRINT DD  SYSOUT = *
//SYSIN    DD  *
   DEFINE CLUSTER (NAME(MY.VSAM.RRDSFILE)  -
   NUMBERED                                -
   RECSZ(80 80)                            -
   TRACKS(1,1)                             -
   REUSE                                   - 
   FREESPACE(3 3) )                        -
   DATA (NAME(MY.VSAM.RRDSFILE.DATA))      
/*

如果您要在 Mainframes 服务器上执行上述 JCL。它应使用 MAXCC = 0 执行，并将创建 MY.VSAM.RRDSFILE VSAM 文件。

删除 RRDS 集群

使用 IDCAMS 实用程序删除 RRDS 集群。DELETE 命令从目录中删除 VSAM 集群的条目，并可选择删除文件，从而释放对象占用的空间。

DELETE 数据集名称 CLUSTER
[ERASE / NOERASE]
[FORCE / NOFORCE]
[PURGE / NOPURGE]
[SCRATCH / NOSCRATCH]

上述语法显示了删除 RRDS 集群时可以使用哪些参数。参数描述与 VSAM - 集群模块中提到的相同。

示例

以下示例显示如何使用 IDCAMS 实用程序 − 在 JCL 中删除 RRDS 集群

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C
//STEPNAME EXEC PGM = IDCAMS
//SYSPRINT DD SYSOUT = *
//SYSIN DD *
DELETE MY.VSAM.RRDSFILE CLUSTER
/*

如果您将在 Mainframes 服务器上执行上述 JCL。它应该以 MAXCC = 0 执行，并将删除 MY.VSAM.RRDSFILE VSAM 集群。