RPGIV中如何复制整条记录？

same400

有两个表A、B结构一样所的库不同，A表有数据 B表为空，想把A表中某符合一定 条件的记录 插入到B表中，应该如何操作？
要是一个一个字段赋值就 太麻烦了，A表有好多列啊。请大家帮忙给 指点一下，我是新手 不知道还有什么好方法，谢谢

same400

cpyf不知道是什么意思？拷贝文件？
PRG程序中嵌入 SQL insert 语句 应该是可吧，没试过。
除了 PRG 嵌入SQL ，没有别的 方法了？

zyzng

Define DS

gto1101

用SQL啊
要不就用RPG，用满足特定条件的关键字去遍历A表，加条件判断，符合条件的就WRITE到B表

不过SQL似乎更简单

caomangyu

结构相同的话CPYF 和 SQL 差不多

kevinpiggy

SQl最方便
cpyf有个关系判断项，挑出满足条件的项copy过去
个人而言，我比较喜欢用sql实现

bobofish29

两个表的字段名一样不?

bc3

cpyf 快

passthru

文件描述定义记录文件，用I表定义整条记录长度，不要分开定义所有字段，可以把I表中的一个组合字段定义成A型属性。如果有判断和检索，在I表定义中加入一个键值字段，把A数据表要加入到B数据表的记录找出来，然后用except从O表输出到B数据表。

大概描述如下

I  FILE1REC
I     Field1                       1 100 A
I     Key                         21   30 A
......
C               Key        Chain   FILE1REC                                               91
C               *ON       IF         *IN91   
C                             Move    Field1             Field2
C                             Except  Field2   
C                             ENDIF
....

O   ....
O           Field2            1  100 A

[ 本帖最后由 passthru 于 2008-3-21 09:54 编辑 ]