请高手指点一下400中Array的用法～～～？

水桶畅畅

我一直对400中array的用法不是很清楚，各位仁兄知道可以告知小弟～～？
比如说：我用一个klist去chain表，然后得到一个栏位，当这个栏位是‘1’的时候，我要把这个栏位的值放到array里面，我应该用的命令是什么？？谢谢各位指教～～～

wildfish

eval  a(1)=b
记住自己维护array的count
lookup 之类的去查找，不过我发现lookup性能不是太好。

yoyoage

example:LOOKUP Operation on an Array with an Index

*...1....+....2....+....3....+....4....+....5....+....6....+....7...
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++
FARRFILE      IT      F    25               DISK
F*
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++
DDPTNOS                          S                           5S 0 DIM(50) FROMFILE(ARRFILE)
DDPTDSC                           S                           20A DIM(50) ALT(DPTNOS)
D*
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq..
C* The Z-ADD operation begins the LOOKUP at the first element in DPTNOS.
C                                      Z-ADD     1      X          3 0
C* At the end of a successful LOOKUP, when an element has been found
C* that contains an entry equal to the search argument DPTNUM,
C* indicator 20 is set on and the MOVE operation places the department
C* description, corresponding to the department number, into DPTNAM.
C           DPTNUM              LOOKUP           DPTNOS(X)    20
C* If an element is not found that is equal to the search argument,
C* element X of DPTDSC is moved to DPTNAM.
C                                      IF                     NOT *IN20
C                                      MOVE              DPTDSC(X)    DPTNAM 20
C                                      ENDIF