求教：关于RPG中表的操作

waiting811013

如题：顺序读取一个表file1，将读到的数据存储在一个数组中，然后再将数组中的数据逐条写入到另一个表file2中，这个数组该如何定义？请前辈们指导一下！！比较着急在线等，谢谢~~~~

cloudrack_chen

如果字段少，可以使用多个数组来定义，或者结合DS来处理，数据量大的情况下还可以考虑用DATAQ来处理

waiting811013

就想用数组跟DS结合的办法来做，但是之前没用过，能给个例子么？

cloudrack_chen

因为不能定义DS类型的数组，所以你可以考虑定义字符类型的数组，然后将数据元素赋值给一个DS，再将DS的值对应写入到表的相应字段

huangxkst

回复 1# waiting811013


    file1和file2结构相同吗？？



简单举例()：

ffile1    if    e               disk
ffile2    o    e               disk



Daryf        s              2000         dim（1000）
Delmf      eds                             extfile（file1）
Delmf2      eds                             extfile（file2）

d i              s                   3 0      inz(1)
//读file1
C         *loval    setll    file1
C                       dow     1=1
c                        read   file1                       10
c       10            leave
c                        move   elmf                 aryf（i）
C                      eval        i=i+1
C                      if           i=1000
c                       leave
c                      endif
c
c                     enddo
//写file2

c               dou   i=0
c                move      aryf（i）       elmf2
c               write    file2
c               eval      i=i-1
c               enddo
eval   *inlr=‘1’

这里需要说明file1和file2的结构需要相同,否则就会出现乱码！！

waiting811013

3Q

huangxkst

回复 6# waiting811013


    不客气，一起学习

passthru

fFile1    if    e                     disk       rename(rec:rec1)
*
fFile2   uf a e                     disk       rename(rec:rec2)
*
d RecDs                    ds                 likerec(rec2:*output)
*
/free
    ....
    read rec1 RecDs;
    dow  not %eof(file1);
        write rec2;
        read rec1 RecDs;
   enddo;
   ....
/end-free

huangxkst

回复 8# passthru


      学习了。。！

passthru

如果没有用到数组，可以用传统+现代RPGIV技术快速实现：
fFile1    ip   e                     disk       rename(rec:rec1)
*
fFile2   o     e                     disk      
*
d RecDs           ds                           likerec(rec1:*input)
*
oFile2
o     RecDs                     1   //File2记录起始位

无需C表操作。