RPG数组的问题

pantierui

1. 
   
2.      E                    INXX    4   5  3                     
   
3.      C           INXX,5    DSPLY                              
   
4.      C                     SETON                     LR        
   
5.      C                     RETRN                              
   
6. ** INXX **                                                     
   
7. A 1B 2C 3D 4                                                   
   
8. E 5   
   

复制代码

我的理解是这个数组共有5个元素，长为3个字符。因为是预定义数组，所以在定义它的时候是每行有四个元素，其余的写下一行。

如果如下写,INXX,5将没有值。

1. 
   
2.      E                    INXX    4   5  3                     
   
3.      C           INXX,5    DSPLY                              
   
4.      C                     SETON                     LR        
   
5.      C                     RETRN                              
   
6. ** INXX **                                                     
   
7. A 1B 2C 3D 4E 5                                             
   
8.                         
   

复制代码

magicdandan

对对，他们是这么告诉我的，但是我用rpg3转换rpgle的时候
那句给转成这个了
D KNA             S              2    DIM(26) CTDATA PERRCD(21)      


  CTDATA键字指示数组或表使用编译时数据装入，此数据在程序未跟在**或**CTDATA（数组/表名）后说明。
    数组或表在编译时装入，它和源程序一起编译并且包含在程序中，这样的数组或表不用在程序每次运行时装入。

PERRCD键字规定编译时和运行前数组或表每个记录中的元素个数，如果没有说明PERRCD键字，每个记录元素的个数为一。
    数字常量参数必须为大于零的无小数值，它可以是数字字母，转换为数字值的内部函数或数字常量，如果参数为命名常数，它必须在此规范前定义。
    当规定键字FROMFILE、TOFILE或CTDATA时，PERRCD键字才有效


怎么都觉得不对劲啊，perrcd（21）是元素的长度，那2是什么呢，我真的不知道啊，晕死我了

magicdandan

定义一个叫MYARRAY的数组，共含3条记录，每条记录为1位字符型
D  MYARRAY        S        1        DIM(3)

1代表的是每条记录的长度，那perrcd（21）也是元素的长度，不自相矛盾吗

pantierui

perrcd（21）表示在声明数组时一行写的元素个数，不是长度。
我就是这么理解的。

magicdandan

原帖由 pantierui 于 2008-7-30 11:45 发表
perrcd（21）表示在声明数组时一行写的元素个数，不是长度。
我就是这么理解的。

哦，那我就明白了，高人高人，嘿嘿

pantierui

如下面代码：
代码1

1. 
   
2.      H DATFMT(*USA) TIMFMT(*HMS)                                             
   
3.      D KNA             S             15    DIM(8)  CTDATA PERRCD(3)         
   
4.      C     KNA(8)        DSPLY                                               
   
5.      C                   SETON                                        LR     
   
6.      C                   RETURN                                             
   
7. ** KNA                                                                       
   
8. Toronto        Winnipeg       Calgary                                       
   
9. Sydney         Edmonton       Saskatoon                                      
   
10. Regina         Vancouver                                                     
    

复制代码

代码2

1. 
   
2.      H DATFMT(*USA) TIMFMT(*HMS)                                          
   
3.      D KNA             S             15    DIM(8)  CTDATA                  
   
4.      C     KNA(8)        dsply                                             
   
5.      C                   SETON                                        LR   
   
6.      C                   RETURN                                            
   
7. ** KNA                                                                     
   
8. Toronto                                                                    
   
9. Winnipeg                                                                  
   
10. Calgary                                                                    
    
11. Sydney                                                                     
    
12. Edmonton                                                                  
    
13. Saskatoon                                                                  
    
14. Regina                                                                     
    
15. Vancouver                                                                  
    

复制代码

有PERRCD这个关键字的。就是代码1的写法。
没有的就是代码2的写法。

magicdandan

哦，这么回事啊，看来我还真的要编一个试试了
好复杂啊，和我当初学习的都不一样

当初学的时候，说定义数组内容就在下面写一串
比如01234657890123456782012354
如果数组元素是3位大小的，那系统就自动取前3个当作第一个元素的值（012），第二个就是（346）

pantierui

以前我也不懂。
今天才算明白一些。
数组的用法还有很多我都没有用过。

magicdandan

哎，RPG太深奥啦

pantierui

本身就不浅。
就是我们接触的太少了。