IMS PCB 掩饰
PCB 代表程序通信块。 PCB Mask 是 DL/I 调用中使用的第二个参数。它在链接部分中声明。下面给出的是 PCB 掩模的语法-
01 PCB-NAME.
05 DBD-NAME PIC X(8).
05 SEG-LEVEL PIC XX.
05 STATUS-CODE PIC XX.
05 PROC-OPTIONS PIC X(4).
05 RESERVED-DLI PIC S9(5).
05 SEG-NAME PIC X(8).
05 LENGTH-FB-KEY PIC S9(5).
05 NUMB-SENS-SEGS PIC S9(5).
05 KEY-FB-AREA PIC X(n).
以下是需要注意的要点-
对于每个数据库，DL/I 维护一个称为程序通信块的存储区域。它存储有关应用程序内部访问的数据库的信息。
ENTRY 语句在 Linkage Section 中的 PCB 掩码和程序 PSB 中的 PCB 之间创建连接。 DL/I 调用中使用的 PCB 掩码指示要使用哪个数据库进行操作。
您可以假设这类似于在 COBOL READ 语句中指定文件名或在 COBOL write 语句中指定记录名。不需要 SELECT、ASSIGN、OPEN 或 CLOSE 语句。
每次调用 DL/I 后，DL/I 都会在 PCB 中存储一个状态代码，程序可以使用该代码来确定调用是成功还是失败。
PCB 名称
注意事项-
PCB Name 是区域的名称，指的是 PCB 字段的整个结构。
PCB 名称用于程序语句。
PCB 名称不是 PCB 中的字段。
DBD 名称
注意事项-
DBD 名称包含字符数据。它有 8 个字节长。
PCB 中的第一个字段是正在处理的数据库的名称，它提供与特定数据库关联的数据库描述库中的 DBD 名称。
细分级别
注意事项-
段级别称为段层次结构级别指示器。它包含字符数据，长度为两个字节。
段级别字段存储已处理段的级别。当一个段检索成功时，检索到的段的级别号存储在这里。
段级别字段的值永远不会大于 15，因为这是 DL/I 数据库中允许的最大级别数。
状态码
注意事项-
状态代码字段包含两个字节的字符数据。
状态代码包含 DL/I 状态代码。
当 DL/I 成功完成呼叫处理时，空格将移至状态代码字段。
非空格值表示调用不成功。
状态代码 GB 表示文件结束，状态代码 GE 表示未找到请求的段。
过程选项
注意事项-
Proc 选项被称为处理选项，其中包含四个字符的数据字段。
处理选项字段指示程序有权对数据库进行何种处理。
保留的 DL/I
注意事项-
保留的 DL/I 称为 IMS 的保留区域。它存储四字节二进制数据。
IMS 将这个区域用于它自己与应用程序相关的内部链接。
段名称
注意事项-
SEG 名称被称为段名称反馈区。它包含 8 个字节的字符数据。
在每次 DL/I 调用后，段的名称存储在此字段中。
长度FB键
注意事项-
长度 FB 键称为键反馈区的长度。它存储四个字节的二进制数据。
此字段用于报告上次调用期间处理的最低级别段的级联键的长度。
它与关键反馈区一起使用。
敏感段数
注意事项-
存储四字节二进制数据的敏感段数。
它定义了应用程序的敏感级别。它表示逻辑数据结构中段的数量。
关键反馈区
注意事项-
关键反馈区的长度因一块 PCB 而异。
它包含可以与程序的数据库视图一起使用的最长的连接键。
在一次数据库操作后，DL/I 返回该字段中处理的最低级别段的级联键，并返回键长度反馈区中的键长度。
