RPG程序中集合查询和修改操作时，出错，不解！(己解决)

Question

本帖最后由 ztg2006 于 2010-04-15 17:10 编辑

对记录同时进行查询和更新操作不好使，为什么呀？

错误信息：File in Factor 2 is not allowed for UPDATE or DELETE operation.
程序代码：
FUSERMAST  IF   E           K DISK    RENAME (USERMASTR: MAST007)      
FSHOW      CF   E             WORKSTN                                   
C     AGAIN         TAG                                                
C                   EXFMT     D                                         
C                   IF        *IN03='1'                                 
C                   GOTO      ENDPGM                                    
C                   ENDIF                                               
C                                                                       
C                   IF        FLD001=''                                 
C                   EVAL      FLD002=''                                 
C                   EVAL      FLD003='PLEASE INPUT!!!'                  
C                   ELSE                                                
C     FLD001        SETLL     MAST007                                44
C                   IF        *IN44='1'                                 
C                   READ      MAST007                                   
C                   EVAL      FLD002=EUCTJ                              
C                   EVAL      FLD003=''                              
C                   SETON                                        LR                                               
根据ID读取名字
C***********************************************                     
C                  IF        *IN04='1'                              
C     FLD001        CHAIN     MAST007                            17  
C                   IF        *IN17='0'                              
C                   EVAL      EUCTJ=FLD002                           
C                   UPDATE    MAST007                                
C                   SETON                                        LR  
C                   ENDIF                                            
C                   ENDIF                                                                                            
根据ID变更名字（F4快捷键）
C************************************************                    
C                                                                    
C                   ELSE                                             
C                   EVAL      FLD003=''                              
C                   EVAL      FLD002='NOT HAVE'                     
C                   ENDIF                                             
C                   ENDIF                                             
C                                                                     
C                                                                     
C                   GOTO      AGAIN                                    
C     ENDPGM        TAG                                                
C                   SETON                                        LR  
C                   RETURN

Answer 1

哈哈，解决了，谢谢你。这个字母之差，学习了。

Answer 2

File in Factor 2 is not allowed for UPDATE or DELETE operation.

FUSERMAST  IF   E           K DISK    RENAME (USERMASTR: MAST007)  

->

FUSERMAST  UF   E           K DISK    RENAME (USERMASTR: MAST007)