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)都为空.