关于OVRDBF问题

wuxing164

OVRDBF     FILE(INV043AA) TOFILE(MTEMP/INVCT4AA)   
CALL       PGM(INVC043R) PARM(&SYS)         
OVRDBF     FILE(INV043AA) TOFILE(MTEMP/INVCT5AA) SECURE(*YES)                          
CALL       PGM(INVC043R) PARM(&SYS)            
      
第二次CALL  INVC043R時,還是把記錄寫到INVCT4AA。怎么会这样呢，要如何修改?

huangxkst

查看一下你的程序INVC043R是否存在问题，因为正常来说overdbf是会改变的。

wuxing164

我做了個測試，DSPC004R 里面是操作DSPS01這個FILE，

1. FDSPS01  IF  E           K        DISK                  
   
2. C                     READ DSPR01                   50   
   
3. C  N50      DEPTNO    DSPLY                              
   
4. C   50      'NULL'    DSPLY                              
   
5. C                     RETRN                              
   
6. C                     SETON                         LR   

复制代码

----------------------------------------------------------------------------------------
如果

1. CALL       PGM(DSPC004R)                              
   
2. OVRDBF     FILE(DSPS01) TOFILE(XIN/DSPS03) MBR(DSPS03)
   
3. CALL       PGM(DSPC004R)                              
   
4. DLTOVR     FILE(*ALL)   

复制代码

這樣的話，OVRDBF沒生效,第二次CALL還是找DSPS01   
---------------------------------------------

1. CALL       PGM(DSPC004R)                              
   
2. OVRDBF     FILE(DSPS01) TOFILE(XIN/DSPS03) MBR(DSPS03)
   
3. CALL       PGM(DSPC004R1)                程序一樣，只是COPY一份               
   
4. DLTOVR     FILE(*ALL)           

复制代码

這樣的話，OVRDBF生效,第二次CALL會找DSPS03

wuxing164

解决了，把RETRN 去掉，世界从此安静....

junlee1986

RETRN 、、、
貌似是没把系统变量清空
所以还用前面的~

banym1982

试过先dltovr再ovrdbf么？