debug中一个有趣的问题

osky555

各位高人，请教一个问题
写了一段代码，
001 FMYPF    O          DISK
002 DO    I<=10
003 EVAL  FD1=I
004 EVAL  FD2=I
005 EVAL  FD3=I
006 WRITE    MYPF
007 ENDDO
008 SETON              LR

程序只是表达意思，没有问题
编译好，debug时 ，在第2行打断点，每做完一次write，然后去表MYPF中看数据，没有，但是当程序跑完，再看表，有10条数据。
看看大家有什么方法，没做完一次write就可以在MYPF中看到当时插入的数据。

shanghang

好象是因為seton lr之前  data隻是寫在內存，隻有之後才寫到PF
      不知道對不對

kkfly

原帖由 shanghang 于 2008-2-29 09:57 发表
好象是因為seton lr之前  data隻是寫在內存，隻有之後才寫到PF
      不知道對不對

如果是这样的话,我有个疑问, 如果在set lr之前 程序又调用了某个程序去更新刚write的这条数据(实验证明这样是可以更新的) 这个又做如何解释 期待高手解答

fairyboy

你的程序是RPG？

我这边是RPGLE，用STRDBG，

数据F表定义为FA01       UF A E           K DISK    没遇到LZ所说的问题。

和SETON  LR之前没有关系

fairyboy

好象用STRISDB，会遇到LZ所说的问题。

passthru

如果定义文件类型为O型，最好也定义O表，然后用EXCEPT输出。

fairyboy

原帖由 passthru 于 2008-2-29 12:50 发表
如果定义文件类型为O型，最好也定义O表，然后用EXCEPT输出。

如果把0表改成下面那样的话。


FMYPF     UF  E           K        DISK                      A


不会遇到上面的问题。


RPG如果用0表，用EXCPT就可以避免上面的问题了吗？


谢谢，PASSTHRU前辈解答

fairyboy

C*******************************************
FA01     O   E           K        DISK                      A         
C*******************************************
C                     Z-ADD7         NO                              
C                     MOVEL'G'       NA                              
C                     EXCPTADDREC                                    
  *                                                                    
C                     SETON                     LR                    
C                     RETRN

O* -----------------------------------------------------
OR01     EADD             ADDREC                        
O                         NO                           
O                         NA         

这样用O表，用EXCPT测试了一下...还是无法避免.郁闷!

zyzng

In ILE RPG, change to  FA01     O   E           K        DISK                      A BLOCK(*NO)
In RPG, add FEOD after EXCPET/WRITE

fairyboy

原帖由 zyzng 于 2008-2-29 13:43 发表
In ILE RPG, change to  FA01     O   E           K        DISK                      A BLOCK(*NO)
In RPG, add FEOD after EXCPET/WRITE

恩，在EXCPT ADDREC
后面加了一句,FEOD A01,在STRISDB中，就避免了那个问题了.

谢谢楼上的高手解答.