READ和CHAIN组合

 FMT C  CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq....

0046.00 C                   READ      DISAORPF                               46    

0047.00 C                   DOW       *IN46 = '0'                                  

0048.00 C                   IF        SAORFNTX = '1'                               

0049.00 C                   EVAL      RUKEY=SAORORNO+'*'+SAORWHSE                  

0050.00 C*    SAORORNO      DSPLY                                                  

0051.00 C*    SAORWHSE      DSPLY                                                  

0052.00 C*    RUKEY         DSPLY                                                  

0053.00 C     RUKEY         CHAIN     FIMPRU                             1718      

0054.00 C                   IF        *IN17 = '1'                                  

0055.00 C                   IF        *IN18 = '0'                                  

0056.00 C     'NOT FIND'    DSPLY                                                  

0057.00 C                   ELSE                                                   

0058.00 C     'LOCKED'      DSPLY                                                  

0059.00 C                   ENDIF                                                  

0060.00 C                   ELSE                                                   

0061.00 C     'FIND!'       DSPLY                                                  

0062.00 C                   ENDIF                                                  

0064.00 C                   ENDIF                                                  

0065.00 C                   READ      DISAORPF                               46    

0066.00 C                   ENDDO                                                  

CHAIN和READE有必要比较一下.

2012-10-24 19:27:32  呃

回头来看下这个代码，很有问题啊。。。。

READ操作可以不用声明Record Address Type的，即顺序读取；

CHAIN操作必须声明Record Address Type=K的，如果不声明，编译会出错的。   并且，对声明为K的File进行READ操作时，如果直接READ(读第一条Record）那么读到的一般不是第一天Record的。。。所以吧，用的时候自己心里要清楚。。。。