Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1269373
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2009-05-03 01:05:32

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   
阅读(868) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~