BBS.ChinaUnix.net
首页 | 新闻 | Linux | FreeBSD | AIX | Windows | 博客 | 论坛 | 存储 | 网络 | 人才 | Wiki | 资料 | 读书 | 手册 | 下载 | 空间 | 搜索
  会员: 密码: 免费注册 | 忘记密码 | 会员登录 | 搜索 | 帮助 


关于数组 请教 急!
首页 » 论坛 » AS400 »  
[打印] [订阅] [收藏] [本帖文本页] [推荐此主题给朋友,立即获积分]
Stealer
圣骑士



UID:348316
注册:2005-12-12
最后登录: 2008-10-13
帖子:134
精华:0

可用积分:145 (白手起家)
信誉积分:100
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


1楼 发表于 2008-5-28 08:28 
错误信息:

*RNF8043 10      1  配列またはテーブルを初期設定するソース・レコードが指定
                    れていない。                                          
*RNF0257 30      2  メイン・プロシージャーの仕様書コードの項目が正しくない
                    ,順序が違っている。           


源代码:
0007.00 DARRAY            S             78    DIM(2) PERRCD(1) CTDATA  

0148.00 C                   ENDSR                                
0149.00 ***********************************                     
0150.00 **ARRAY                                                  
0151.00    レコードがファイル MEMBERL01 に存在しません。         
0152.00    レコードがファイル SCOREL01 に存在しません            
        ***************** データの終わり ************************

这是rpgle的,我这么写有什么错误吗?
在线等。先谢谢各位大虾了。



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

我是快乐的
你是幸福的
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
wjhgod
新手




UID:695856
注册:2008-4-23
最后登录: 2008-09-26
帖子:10
精华:0

可用积分:10 (白手起家)
信誉积分:0
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


2楼 发表于 2008-5-28 08:44 
写的具体点啊 别用日语



您对本贴的看法:鲜花[0] 臭蛋[0]
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
wjhgod
新手




UID:695856
注册:2008-4-23
最后登录: 2008-09-26
帖子:10
精华:0

可用积分:10 (白手起家)
信誉积分:0
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


3楼 发表于 2008-5-28 08:49 
给你个例子估计你就明白了

D DIMTEXT S 3 DIM(10) CTDATA PERRCD(2)
在keywords这个地方,使用了DIM,CTDATA,PERRCD三个关键字
DIM(10) 指DIMTEXT这个数组共含有10条记录
CTDATA 表明数组DIMTEXT是一个编译时赋初值的数组.
PERRCD(2) 表明数组DIMTEXT的初始值使用底部数据,每行包含2条记录
如底部为:
C SETON LR
C RETURN
**
123456
789ABC
DEFGHI
****************** End of data ****************************************
1. 底部数据的定义,要顶头写(在RPGLE中,Shift+F7屏幕左移;之后按两下F11,
可回到正常编辑的画面),位置可对比上面的C行.
2. 首行的"**",是标识以下为数据项,必须要有.
3. *****End of data********,是系统自动给出的结束行.
4. 如上述定义之后,那么当编译了这个程序后,程序会将DIMTEXT初始化为:
DIMTEXT(1) = '123'
DIMTEXT(2) = '456'
DIMTEXT(3) = '789'
DIMTEXT(4) = 'ABC'
DIMTEXT(5) = 'DEF'
DIMTEXT(6) = 'GHI'
DIMTEXT(7),DIMTEXT(,DIMTEXT(9),DIMTEXT(10)都为空.



您对本贴的看法:鲜花[0] 臭蛋[0]
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
wjhgod
新手




UID:695856
注册:2008-4-23
最后登录: 2008-09-26
帖子:10
精华:0

可用积分:10 (白手起家)
信誉积分:0
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


4楼 发表于 2008-5-28 08:50 
一定要注意每一行键字的位置



您对本贴的看法:鲜花[0] 臭蛋[0]
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
Stealer
圣骑士



UID:348316
注册:2005-12-12
最后登录: 2008-10-13
帖子:134
精华:0

可用积分:145 (白手起家)
信誉积分:100
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


5楼 发表于 2008-5-28 08:56 
我是按照和你一样的写的,可是不对阿。如果和c表对齐的话,总是打亮,后对一个格就好了,但是编译不通过。

*RNF8043 10      1  配列またはテーブルを初期設定するソース・レコードが指定
                    れていない。                                          
*RNF0257 30      2  メイン・プロシージャーの仕様書コードの項目が正しくない
                    ,順序が違っている。           

第一个是说配列没有初期化,第二个说主流程的式样代码项不对,顺序错了。



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

我是快乐的
你是幸福的
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
Stealer
圣骑士



UID:348316
注册:2005-12-12
最后登录: 2008-10-13
帖子:134
精华:0

可用积分:145 (白手起家)
信誉积分:100
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


6楼 发表于 2008-5-28 09:05 
问题就出在最下面的日文字了,位置总是不对阿



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

我是快乐的
你是幸福的
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
wjhgod
新手




UID:695856
注册:2008-4-23
最后登录: 2008-09-26
帖子:10
精华:0

可用积分:10 (白手起家)
信誉积分:0
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


7楼 发表于 2008-5-28 09:18 
C                   RETURN                  
**CTDATA ARRAY                                   
レコードがファイル  MEMBERL01  に存在しません。
レコードがファイル  SCOREL01  に存在しません



您对本贴的看法:鲜花[0] 臭蛋[0]
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
wjhgod
新手




UID:695856
注册:2008-4-23
最后登录: 2008-09-26
帖子:10
精华:0

可用积分:10 (白手起家)
信誉积分:0
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


8楼 发表于 2008-5-28 09:19 
仔细看好了 这样就可以了
下面三行一定要顶左面 不要和c对齐 最左面 我编译通过了没有问题



您对本贴的看法:鲜花[0] 臭蛋[0]
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
Stealer
圣骑士



UID:348316
注册:2005-12-12
最后登录: 2008-10-13
帖子:134
精华:0

可用积分:145 (白手起家)
信誉积分:100
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


9楼 发表于 2008-5-28 09:29 
方在最左面怎么总是打亮阿?晕了



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

我是快乐的
你是幸福的
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?
KienR9
圣骑士




UID:630883
注册:2007-10-20
最后登录: 2008-10-14
帖子:149
精华:0

可用积分:170 (白手起家)
信誉积分:0
专家积分:0 (本版:0)
空间积分:0
推广积分:0

状态:...离线...

[个人空间] [短信] [博客]


10楼 发表于 2008-5-28 09:46 
数据前的两个**号也要从第一列开始写啊



您对本贴的看法:鲜花[0] 臭蛋[0]
积分兑换专区 | IT节能和TPC-E活动获奖名单 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘 | 站长如何获得资金?

首页 » 论坛 » AS400 »


 


Copyright © 2001-2008 ChinaUnix.net All Rights Reserved     联系我们:

感谢所有关心和支持过ChinaUnix的朋友们    转载本站内容请注明原作者名及出处

京ICP证041476号


清除 Cookies - ChinaUnix - Archiver - WAP - TOP

Processed in 0.127325 second(s), 4 queries , Gzip enabled