急，急，紧急求助：使用COMMIT程序变慢的问题

yzclxw

现在数据库中有900条记录，程序中使用了commit命令，程序运行起来非常慢。我现在想还是用commit命令，但使程序运行速度变快， 哪位高手指点一下， 非常感谢！！！

pantierui

我们这都几百万条也没有非常慢啊。
是不是服务器的毛病，

forgot2000

我沒有發現這問題，你要把具體的代碼貼出來讓大家幫你看看。

yzclxw

我个人觉得不是服务器的问题，如果把程序中的COMMIT去掉，速度明显提高

yzclxw

FNYUKP   O   E           K        DISK                      A   
F                                              KCOMIT           
F                                              KINFSR *PSSR     

C           SOUKO     IFNE '0043'                                    
C                     MOVELTBNW1     TBN1                             
C                     WRITENYUKR                                      
**                                                                    
C                     MOVEL'0'       P2RTCD    P       リターンコード
C           TBDELT    IFNE 'Z'                                       
C                     MOVEL'3'       P2KSKB            更新区分      
C                     MOVELT1NSNO    P2SSNO    P       入荷指示№     
C                     MOVEL*BLANK    P2FGHT    P       符号反転      
C                     CALL 'CMN030B' P2CMN                           
C                     END                                             
C           P2RTCD    IFEQ '0'                                       
C                     COMIT                                          
C                     ELSE                                            
C                     MOVEL'2'       #ERKB     P       エラー区分         
C                     MOVEL*BLANK    #ESBR2    P       ｴﾗｰ 発生 ｻﾌﾞﾙｰﾁﾝ   
C                     MOVEL'CMN030B' #EERPG    P       ｴﾗｰ 発生 ﾌﾟﾛｸﾞﾗﾑID  
C                     MOVELP2RTCD    #EERST    P       ｴﾗｰﾀｽ               
C                     MOVEL#MSG,01   #EMSG1    P       ｴﾗｰﾒｯｾｰｼﾞ1         
C                     MOVEL*BLANK    #EMSG2    P       ｴﾗｰﾒｯｾｰｼﾞ2         
C                     EXSR *PSSR                                          
C                     END                                                  
C                     END                                                  
**                                                                        
C                     END                                                  
C                     END                                                  

以上是我这本程序的部分代码。

pantierui

用这个表（write或update）的程序多吗？
是不是你在写的时候，有人在用啊。

yzclxw

我现在只是这一本进行单体测试的时候就感觉到慢了，其他的程序根本没运行

wdz315

原帖由 yzclxw 于 2008-8-1 14:35 发表
FNYUKP   O   E           K        DISK                      A   
F                                              KCOMIT           
F                                              KINFSR *PSSR     ...

运行是监视一下是否有其他程序正在操作同一个文件，如果有的话，那么这个job会等待其他job结束以后才可以运行。

pantierui

这本程序调用的程序多吗。
他们的数据量大吗。

yzclxw

这本程序代码行数只有240行

总共条用了4本外部程序。

我调试的时候 READ和write表的时候很慢，有等待时间