COBOL - 数据库接口

在 COBOL 中，程序与 DB2 数据库交互。 DB2 是 Data Base2，由 IBM 开发。它是一个关系数据库。 关系数据以 TABLE 的格式存储，其中包含元组 (行) 和属性 (列)。

DB2 类似于 SQL，但具有一些高级功能，主要用于存储大量大型机应用程序数据。

在数据库接口的上下文中，COBOL 包含以下术语

• 嵌入式 SQL
• DB2 应用程序编程
• 宿主变量
• SQLCA
• SQL 查询
• 游标

嵌入式 SQL

COBOL 使用嵌入式 SQL 语句来执行标准 SQL 操作。 在编译应用程序程序之前，这些语句由 SQL 处理器进行预处理。

COBOL 是宿主语言。 COBOL-DB2 应用程序包括 DB2 和 COBOL。

嵌入式 SQL 语句的工作方式类似于普通的 SQL (结构化查询语言) 语句，但有一些小改动。 例如，查询的输出将定向到一组预定义的变量，这些变量称为宿主变量。 SELECT 语句中放置了一个额外的 INTO 子句。

DB2 应用程序编程

以下是在编写 COBOL-DB2 程序时要遵循的规则

• 所有 SQL 语句都必须用 EXEC SQL 和 ENDEXEC 括起来。
• SQL 语句必须在 AREA B 中编码。
• 程序的所有表都必须通过 INCLUDE 语句在 Working-Storage 部分中定义。
• 除 INCLUDE 和 DECLARE TABLE 之外的所有 SQL 语句都必须显示在 Procedure Division 中。

宿主变量

在 COBOL 程序中指定的数据项是宿主变量。 宿主变量接受表的数据或将数据插入表中。 这些变量用于从数据库传输值和检索它们。

您可以在 COBOL 程序的 File 部分、Local Storage 部分、Linkage 部分或 Working-Storage 部分中分配宿主变量，并且可以使用 1 到 48 的任何级别编号。 级别 49 专用于 VARCHAR 数据项。

宿主变量不能是组项目，但在宿主结构中，它们可以分组。 它们不能被重新定义或重命名。

如果在嵌入式 SQL 语句中使用宿主变量，则必须使用冒号 (:) 作为数据项名称的前缀。 冒号 (:) 用于使编译器能够理解具有相同名称的宿主变量和列/表之间的区别。

宿主变量可以使用两种方式

• 输入宿主变量：用于定义将从 COBOL 程序传输到数据库的数据。
• 输出宿主变量：用于保存从数据库返回到 COBOL 程序的数据。

语法

SQLCA

SQLCA 是一个 SQL 通信区域，DB2 将 SQL 执行反馈传输到程序。 SQLCA 是一组变量，将在每个 SQL 语句执行结束时进行更新。 具有可执行 SQL 语句的程序可以提供一个 SQLCA，但不能超过一个。

它只是告诉程序执行是否成功。 SQLCA 下有几个预定义的变量，例如 SQLCODE，其中包含错误代码。 SQLCODE 中的值“000”指定了成功执行。

语法

以下是在 Working Storage 部分中声明 SQLCA 的语法

游标

DB2 支持一种称为游标的机制。 游标用于一次从表中逐行处理一组行。 它一次处理多行选择。 游标是保存查询所有结果的数据结构。

我们可以在工作存储部分或过程部分中定义游标。 以下是与游标相关的操作

• 删除
• 开放
• 关闭
• 取指令

声明游标

可以在 Working storage 部分或过程部分中进行游标声明。 第一条语句是 DECLARE 语句，它不是可执行语句。

语法

打开

在使用游标之前，应执行 Open 语句。 Open 语句为执行准备 SELECT。

语法

关闭

close 语句用于释放游标占用的所有内存。 在程序结束之前，应关闭游标。

语法

FETCH

Fetch 语句用于标识游标并将值放入 INTO 子句中。 Fetch 语句在循环中编码，因为我们一次获取一行。

语法