RPGIV编程问题百解(20)多数据区数据读入程序
问题:
我们有些程序,它们需要读入10条以上的数据区数据。程序代码如下:
Sample
D dtaara1 s 1 Dtaara
D dtaara2 s 1 0 Dtaara
D dtaara3 s 5 Dtaara
D dtaara4 s 9 2 Dtaara
........
/FREE
in dtaara1;
in dtaara2;
in dtaara3;
in dtaara4;
in ......
/END-FREE
有没有较好的办法,只用一行代码,把所有的数据区数据读入程序?
回答:
用如下代码:
IN *DTAARA
阅读(909) | 评论(0) | 转发(0) |