rpgle中引用完整性的实现
rpgle编程中，也经常会碰到这样的问题，向B物理文件中添加数据的时候，一定要先检查A物理文件中是否有其相关数据的存在；
若不存在，则不允许添加，若存在于A中，则可以向B物理文件中添加数据。这种检查操作，叫做引用完整性。
引用完整性可理解为一个表中的数据依赖于另外一个表，也就是子表中的数据依赖于父表中的数据而存在。
下面是用rpgle去实现引用完整性的代码片段：
create table cdtd01(actype char(3) not null,actno char(4) not null,......,primary key (actype,actno))create table cdtd02(actype char(3) not null ,actno char(4) not null,......,constraint fk_actype_no foreign key(actype,actno) references cdtd01(actype,actno))这样定义之后，上面在程序中做检查的事情，我们就交给数据库管理器去做了；
如果你想添加一条未做登记的数据，那么数据库将会给你返回一个错误码，这样岂不美哉！
更多DB2表的定义，参照：create table
--the end--
