AS/400开发经验点滴（三）如何使用分布式关系数据库

五．如何使用分布式关系数据库

我们可以在AS/400系统中使用STRSQL命令来交互执行SQL语句。如果AS/400系统中没有安装交互式SQL工具，那么我们便不能使用SQL语句进行交互式查询等操作。假设有一群连网的AS/400，其中只有一台安装了交互式SQL工具，那么我们能不能只通过这台AS/400的交互SQL工具去对其他没有安装SQL交互工具机器的数据库进行操作呢？答案是肯定的，这就需要使用分布式关系数据库。

分布式数据库管理是AS/400系统提供的一个重要功能之一，其功能比较强大，在本文里只能根据作者经验对分布式关系数据库的使用作简单介绍，根据这个简单介绍，你就可以很容易体验分布式关系数据库的使用。

要使用分布式关系数据库，首先需要创建关系数据库目录，即Relational Database Diretory。用WRKRDBDIRE可以查看关系数据库目录，其界面如下：
Work with Relational Database Directory Entries

Position to . . . . . .

Type options, press Enter.
1=Add 2=Change 4=Remove 5=Display details 6=Print details

Relational Remote
Option Database Location Text

- PRODUCT PRODUCT
- BACKUP *LOCAL
复制代码
该示例显示在BACKUP机器上已经创建了PRODUCT和BACKUP两个Relational Database Directory Entry。对应界面操作选择项命令则分别是ADDRDBDIRE、CHGRDBDIRE、RMVRDBDIRE、DSPRDBDIRE。

用ADDRDBDIRE命令可以增加新的Relational Database Directory Entry。这个命令里有两个必填项（其他项可以使用缺省），RDB项是取一个关系数据库的名称，通常选择与机器系统名一致的名称，RMTLOCNAME是给定对方地址名称，如果是定义本地关系数据库，则此项填*LOCAL。如果是定义远程机器数据库，在RMTLOCNAME项实际上要填两个域，先确定通信类型，可选项是*SNA和*IP，分别表示使用SNA协议或TCP/IP协议通信。如果TYPE选择*SNA，则Name or address里需填远程机器location name，这个location name可以在远程机器上执行DSPNETA命令查到。如果TYPE选择*IP，则Name or address可以直接填IP地址。
Add RDB Directory Entry (ADDRDBDIRE)

Type choices, press Enter.

Relational database . . . . . PRODUCT
Remote location:
Name or address . . . . . PRODUCT Name, *LOCAL, *ARDPGM
Type . . . . . . . . . . . . . *SNA *SNA, *IP
Text . . . . . . . . . . . . . . *BLANK
复制代码

关系数据库目录创建好后，我们就可以在STRSQL命令里连接不同的关系数据库。

用CONNECT TO语句可以第一次连接关系数据库，比如在BACKUP机器上在STRSQL界面里执行CONNECT TO PRODUCT，那么我们就在BACKUP机器上连接上了PRODUCT机器上的数据库，接下来任何SQL语句操作都是对PRODUCT机器上数据库操作，再执行CONNECT TO BACKUP，那么又回到本地数据库操作。

如果BACKUP和PRODUCT关系数据库已经连接，那么不能再使用CONNECT TO语句切换连接，切换连接的命令则是SET CONNECTION，比如我们要重新切换到PRODUCT连接，则执行SQL语句：SET CONNECTION PRODUCT。

如果我们要关闭关系数据库连接，则可以使用SQL语句DISCONNECT，比如执行DISCONNECT PRODUCT就关闭了PRODUCT的关系数据库连接。如果在使用STRSQL的时候，你启动了事务机制，那么DISCONNECT就不再起作用了，这时候如果要关闭关系数据库连接，需要使用RELEASE语句，比如RELEASE PRODUCT，注意在RELEASE之后，还必须再执行COMMIT或ROLLBACK语句才能彻底关闭关系数据库连接。

综上，与关系数据库操作有关的SQL语句为下面四条：
CONNECT TO
SET CONNECTION
DISCONNECT
RELEASE

六．如何利用分布式关系数据库进行分布式编程

我们不仅可以使用STRSQL进行关系数据库的交互操作，还可以用关系数据库的SQL语句进行分布式编程，即我们可以在一台机器的程序里连接另一台机器的关系数据库，从而通过程序实现对另一台机器的数据库操作，这就是分布式数据库编程。

下面以ILE RPG程序为例，说明如何进行分布式编程。因为在程序中要使用SQL语句，所以程序类型（或扩展名）是SQLRPGLE。因为在程序中，需要先连接关系数据库，才能打开数据库文件，所以在F行规范定义中，不能使用隐含打开方式，需要指定USROPN关键词来显式打开文件。如下例TESTPF文件就是另一台机器上的文件：

FTESTPF IF E K DISK USROPN

连接关系数据库方式如下：

C/EXEC SQL
C+ CONNECT TO :RDBNAM
C/END-EXEC

如果关系数据库连接已经建立，则返回错误码-842，可以判断此错误码，重新SET一次关系数据库连接：

C SQLCOD IFEQ -842
C/EXEC SQL
C+ SET CONNECTION :RDBNAM
C/END-EXEC
C ENDIF

关系数据库连接建好后，我们就可以显示打开另一台机器的文件TESTPF了：

C OPEN TESTPF

之后就可以对TESTPF进行各种数据库操作了。

要退出程序时，需要关闭数据库连接：

C/EXEC SQL
C+ DISCONNECT :RDBNAM
C/END-EXEC

如果程序中使用了事务处理机制，需要用RELEASE关闭连接：

C/EXEC SQL
C+ RELEASE :RDBNAM
C/END-EXEC
C….
C/EXEC SQL COMMIT
C/END-EXEC

这样子分布式程序就写好可以编译了。分布式程序要正常工作，还需要SQL Package来支持！OS/400系统支持一种叫SQL Package的目标，其目标类型是*SQLPKG。SQL Package包含有分布式程序运行时处理SQL语句的控制和访问计划。建立SQL Package有两种方法，一种方法是在编译分布式程序时，在Relational database（RDB）选择项里填写远程机器的关系数据库名，那么编译器会自动创建一个名字与程序名一样但类型为*SQLPKG的目标。另一种方法是用CRTSQLPKG命令手工创建SQL Package：

Create SQL Package (CRTSQLPKG)

Type choices, press Enter.

Program . . . . . . . . . . . . Name
Library . . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB
Relational database . . . . . . *PGM
RDB user . . . . . . . . . . . . *CURRENT Name, *CURRENT
RDB user password . . . . . . . Character value, *NONE, ' '
Default Collection . . . . . . . *PGM Name, *PGM, *NONE
Object type . . . . . . . . . . *PGM *PGM, *SRVPGM
Module list . . . . . . . . . . *ALL Character value, *ALL
+ for more values
Text 'description' . . . . . . . *PGMTXT

在Program选项里填写上面编译后的分布式程序名，在Relational database选项里填写已经定义的另一台机器的关系数据库名。

我们在实际运行分布式程序前，可以根据配置关系数据库名称，用DELSQLPKG删除原来的SQL Package，用CRTSQLPKG重新创建一个新的SQL Package。有了SQL Packge支持，分布式程序就可以正常运行了。