上一篇：求DOMINO FOR AS40...

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

AS/400开发经验点滴（三）

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

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

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

要使用分布式关系数据库，首先需要创建关系数据库目录，即Relational Database Diretory。用WRKRDBDIRE可以查看关系数据库目录，其界面如下：
[code:1:77907562ca]
                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[/code:1:77907562ca]该示例显示在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地址。

[code:1:77907562ca]                      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              [/code:1:77907562ca]
关系数据库目录创建好后，我们就可以在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语句为下面四条：
[list:77907562ca]CONNECT TO
SET CONNECTION
DISCONNECT
RELEASE[/list:u:77907562ca]

yokel 回复于：2003-12-25 08:29:07

谢谢!!!

xuguopeng 回复于：2003-12-25 08:47:51

好 UP~

wildfish 回复于：2003-12-25 10:44:51

老大，嗯，不错，我们都喜欢

yj2yq 回复于：2003-12-25 10:55:06

顶顶,再顶顶!

kevingao 回复于：2003-12-25 11:47:26

blogliou 回复于：2003-12-25 15:34:38

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

我们不仅可以使用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支持，分布式程序就可以正常运行了。

qingzhou 回复于：2003-12-25 17:15:40

顶！！！
辛苦了！！！

fairyboy 回复于：2004-12-01 08:05:09

哈，楼主真厉害，加油！

Red_Crow 回复于：2004-12-01 08:53:11

支持，加油。

╰●-●╯ 回复于：2004-12-01 09:20:08

Its Good !!

thursday 回复于：2004-12-01 09:43:35

收藏,帮顶!

thursday 回复于：2004-12-01 09:43:35

收藏,帮顶!

最热门文章推荐：
>· 家庭无线局域网
>· 什么是无线局域网
>· 无线局域网的标准
>· 无线宽带局域网
>· 信息安全论坛
>· 信息安全标准
>· rsa信息安全公司
>· 注册组件

下一篇：INZTAP的参数问题

↓相关文章：