2个以上PF文件合成一个多记录名的逻辑文件，对此文件的操作及性能

xiayu176

如题，想把两个以上的PF文件和成一个逻辑文件，然后对该文件操作，怎么操作？速度怎样？

建逻辑文件LF1 如下：


A       R    PFR1
A             FLD1A
A             FLD1B
A             FLD1C
A       K    FLD1A
A       K    FLD1B
A
A       R    PFR2
A             FLD2A
A             FLD2B
A             FLD2C
A       K    FLD2A
A       K    FLD2B

文件1和文件2的KEY值是相同的，假设PF1有3条记录，PF2 有5条记录，那么合并后的LF1有几条记录呢？而且该文件有2个记录名，该怎样操作呢？
如果该文件有2个以上的文件后操作速度怎样呢？

xiayu176

还有，因为有两个不同的记录名与不同的两套字段名，程序用时按第一个记录名下的字段名吧？

Eagle_wolf

好久以前试过，我用的方法是pfile里指定了多个文件，使用这个文件的时候要先rename

leason

照2楼的方法做就可以了,如果是由两个PF合成一个LF,那么这两个PF要用到的栏位,全部重新定义一个名字,RPG中每次使用这个LF的时候,就直接会采用新定义的栏位名字了,如下原理一样:

A          R DDF452R                                   
A                                            PFILE(ZDF452)   
A            N45201                    RENAME(F45201)  
A            N45202                    RENAME(F45202)  
A            N45203                    RENAME(F45203)  
A            N45204                    RENAME(F45204)  
A            N45205                    RENAME(F45205)  
A            N45206                    RENAME(F45206)  
A            N45207                    RENAME(F45207)  
A            N45208                    RENAME(F4520  
A            N45209                    RENAME(F45209)  
A            N45210                    RENAME(F45210)  
A            N45211                    RENAME(F45211)

shanda928161

关于操作，读取的时候不可以写它的纪录名，要写文件名，更新的时候要更新纪录名，要用指示器标明的，好像

pantierui

PF

1. 
   
2. A          R U1R01                     PFILE(POTU1)     
   
3. A*  《キー》                                            
   
4. A          K U1SDNO                                    
   
5. A*  《選択》                                            
   
6. A          S U1JTX                     COMP(EQ ' ')     
   
7. A          R JKR01                     PFILE(SDTJK)     
   
8. A*  《キー》                                            
   
9. A          K JKSKNO                                    
   
10. A*  《選択》                                          
    
11. A          S JKJTX                     COMP(EQ ' ')   
    

复制代码

RPG

1. 
   
2. FPOTU1J01IF  E           K        DISK
   
3. IU1R01      78      
   
4. IJKR01       79      
   
5. C           *LOVAL    SETLLPOTU1J01                           
   
6. C                     SETOF                     7879         
   
7. C                     READ POTU1J01                 74        
   
8. C           *IN74     DOWEQ*OFF                              
   
9. C           *IN78     IFEQ *ON  
   
10. C                     ..
    
11. C                     ..
    
12. C                     ENDIF   
    
13. C           *IN79     IFEQ *ON     
    
14. C                     ..
    
15. C                     ..
    
16. C                     ENDIF   
    
17. C                     READ POTU1J01                 74   
    
18. C                     ENDDO                              
    

复制代码

xiayu176

我知道是那样读的，但请教楼上的，如果三个PFILE有不同字段名时读到后的字段名应该是怎样取值？RPG程序中都只用U1R01中的字段RFLD吗？ 如下所示：
A          R U1R01                     PFILE(POTU1)     
A*  《キー》                                            
A             RFLD
A          K U1SDNO                                    
A*  《選択》                                            
A          S U1JTX                     COMP(EQ ' ')   
A            JFLD  
A          R JKR01                     PFILE(SDTJK)     
A*  《キー》                                            
A          K JKSKNO                                    
A             SFLD
A*  《選択》                                          
A          S JKJTX                     COMP(EQ ' ')