使用DOW循环读取file信息

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

0045.00 C*                                                                          

0046.00 C                   READ      DISAORPF                               46     

0047.00 C                   DOW       *IN46 = '0'                                   

0048.00 C                   IF        SAORFNTX = '1'                                

0049.00 C     SAORORNO      DSPLY                                                   

0050.00 C                   ENDIF                                                   

0051.00 C                   READ      DISAORPF                               46     

0052.00 C                   ENDDO                                                   

0053.00 C*                                                                          

循环有很多中(DO, DOU, DOW),一般比较容易理解的就的DO循环和DOW循环了.

DO循环用于已知循环次数的情况下

DOW用于当条件成立时执行循环, 有些人喜欢用 DOW 1=1 死循环,然后在循环体内进行判断在特定条件下LEAVE.

READ是从file的第一天record开始顺序读取file中的所有records.          

46是EQ指示器.   当没有读取到records时 *IN46='1'

                当成功读取到records时 *IN46='0'

注意: 指示器里存放的是一位char, 因此要加引号.