谁能帮我看看这段代码，在线等

adam_0_0_0

0041.00      C*********************INSERT PRREC************  
0043.00      C           TCUNOS    SETLLSDREC                          
0044.00      C                     READ SDREC                    90   
0045.00      C           *IN90     DOWEQ*OFF                           
0046.00      C           TSDTA     DSPLY                              
0047.00      C           TSSUM     DSPLY                              
0048.00      C*          TSDTA     CHAINTPREC                91        
0049.00      C*          *IN91     IFEQ *ON                           
0050.00      C*                    MOVE TSDTA     DATE                 
0051.00      C*                    WRITETPREC                          
0052.00      C*                    ENDIF                              
0053.00      C                     READ SDREC                    90   
0054.00      C                     ENDDO                              


就是一个从表中循环读取数据的过程，这样是没有问题的。
如果将注释的地方打开，就会出现死循环。

我试过两个读取表的循环嵌套，会出现外层循环只循环一次的情况。我怀疑是指针在循环的时候出了问题，请各位帮忙解决一下。

waiting811013

这么写应该不会出现死循环，是不是别的地方出问题了？

[ 本帖最后由 waiting811013 于 2009-11-13 23:21 编辑 ]

huangxkst

SDREC 和TPREC有没有关系。。。？？？

afeng8848

怀疑是chain完了之后没有unlock,导致再次chain的时候发生锁定吧，应该不是死循环。

huangxkst

这不是死锁的问题，他的代码看上去是没有问题的，可是当两个记录是同一个pf的时，就可能会出现死循环。。。
例如：
pf为pf1 ，lf为lf1，lf1为pf1的逻辑文件
程序：
f pf1   if     e               k    disk
f lf1    O     e               k    disk  rename（SDREC ：TPREC）

。。。
这样就可能会出现死循环

adam_0_0_0

回答三楼-》
SDREC和TPREC是两个物理文件中的记录。

adam_0_0_0

不知道怎样unlock,我平时用都不用unlock吧

adam_0_0_0

SDREC 和TPREC是两个不同的物理文件中的记录。 在RPG中，只调用了一个逻辑文件。 逻辑文件中定义里了上述两个物理文件，不知道这样有没有问题。

adam_0_0_0

我还想问一下，抛出死循环之后，如何才能结束程序。现在我只能断开连接，然后再重新连接。

wooacau

Shift + Esc 然后输入2，回车
看看好用不？