RPGIV编程技巧8 数组定义和使用（DS数组、二维数组）

一维的DS的定义：

d RecDsSet             ds                             likeds（RecDs） dim（100）
* 1）
d RecDs                ds                             qualified
    fld1                                       10     inz
    fld2                                        3s  0 inz
    fld3                                       50     inz
    .....
2）
fMyFile  if  a               disk
f                                                     rename(rec:rec01)
 * 
d RecDsSet             ds                             likeds（RecDs） dim（100）
 * 2）OS/400 V5R4以上版本
dRecDs                ds                               likerec(rec01)   

 * 3）OS/400 V5R3以下版本
dRecDs                ds                               extname(MyFile)   

 

二维的数组定义和使用：

D Array            S               20    Dim(5)
D ArrPointer       S                 *   Inz(%Addr(Array))     
D ArrOptRow        DS                    Dim(5) Qualified       
D                                                Based(ArrPointer)       
D   ArrOptCol                       3    Dim(4)                 
 *
d             s              100     varying
d             s               2s 0  inz
d             s               2s 0  inz
 *
 /free
      ....
      = 1;
         = 1;
      = 'Hello, World!';
      ArrOptRow() = ;
      ....
 /end-free