急问PF KFLD与OPNQRYF的问题

shibuya1212

PF001, DDS定义如下

1. A                                      UNIQUE                                 
   
2. A*                                                                           
   
3. A        R PF001R                                                                                 
   
4. A*                                          
   
5. A            KFLD1        10P 0   
   
6. A            KFLD2          1A
   
7. A            FLD3            3A
   
8. A            FLD4            5A
   
9. A          K KFLD1
   
10. A          K KFLD2              

复制代码

在程序中希望改写KEY FIELD, CLP 中加入如下代码

1. 
   
2. OVRDBF     FILE(PF001) OVRSCOPE(*JOB) SHARE(*YES)      
   
3. OPNQRYF    FILE((PF001 *FIRST *ONLY)) KEYFLD((FLD3 +
   
4.              *ASCEND *N) (FLD4 *ASCEND *N)) +         
   
5.               OPNSCOPE(*JOB)                           

复制代码

在RPG程序中

1. FPF001     IF   E           K DISK
   
2. .
   
3. .
   
4. .
   
5. .
   
6. .
   
7. .
   
8. .
   
9. .
   
10. C     K0CUSP        KLIST                                             
    
11. C                   KFLD                    CODE1             3      
    
12. C                   KFLD                    CODE2             5  
    
13. C*     
    
14. C                   MOVE            'XXX'                     CODE1
    
15. C                   MOVE            'YYYYY'                  CODE2  
    
16. C*                                                                    
    
17. C     K0CUSP        CHAIN     PF001R                            81   

复制代码

编译CHAIN报错 Key Field 类型不匹配
*RNF7072 30      1 Type of KFLD is not the same as corresponding key field in file.         

问在不建立logical file的前提下，能实现这样的改写key field吗， 谢谢各位

0406410525

OPNQRYF应该只能给没有KEY的PF使用KEYFLD吧

junlee1986

OPNQRYF应该只能给没有KEY的PF使用KEYFLD吧
0406410525 发表于 2011-11-21 21:49

可以的

junlee1986

是可以这么用的
你的问题我觉得是
你既然跑了IP就别CHAIN
你试试用SETLL +READE
来读取试试

或者是你是不是CLP里面写的有问题
比如在你已经 DLTOVR 之后你在去CALL你的这个程式就有问题的。

shibuya1212

回复 4# junlee1986


    大哥没答在点上，Call RPG肯定是在CLOF和DLTOVR之前的。想问怎么样在RPG中使用非定义在DDS的PF的key field? 如果chain编译有问题的话，setll和reade也不会成功的吧，都是key值跟PF定义不一致啊

NINERI

用OPNQRYF改變KEY, 在RPG中就不要CHAIN
如果需要CHAIN的話，正常是使用符合的LF

yayuyo

照我使用的经验：
如果用OPNQRYF可以设置一个PF/LF的Key。
但是这种用法时，RPG里必须IP来逐条读取才有效。
如果RPG没有IP，而是IF，那只能用本身的Key来chain、setll等等。

vicky___lee

我看你是在编译的时候出错, 可能编译时用的还是旧的PF;
建议你可以在OVRDBF  的时候改个新的文件名, 然后OPNQRYF时,用这个新的文件, 同时RPG中也用这个新的文件名.
但是在编译时要先执行下OVRDBF 和OPNQRYF;

仅仅是建议, 对与不对,你可以验证下;


如下:   
OVRDBF     FILE(PF002)  TOFILE(PF001)OVRSCOPE(*JOB) SHARE(*YES)      

OPNQRYF    FILE((PF002 *FIRST *ONLY)) KEYFLD((FLD3 +

             *ASCEND *N) (FLD4 *ASCEND *N)) +         

              OPNSCOPE(*JOB)            

在RPG程序中
FPF002  P   IF   E           K DISK

.

C     K0CUSP        KLIST                                             

C                   KFLD                    CODE1             3      

C                   KFLD                    CODE2             5  

C*     

C                   MOVE            'XXX'                     CODE1

C                   MOVE            'YYYYY'                  CODE2  

C*                                                                    

C     K0CUSP        CHAIN     PF002                           81

shibuya1212

回复 8# vicky___lee


    谢谢， 测试过，在rpg中先需要定义PF002，看来不多定义一个FILE是不行的？？

vicky___lee

回复 9# shibuya1212


    其实不是多定义一个FILE, 你只是需要把原来的file 改下名字而已.  PF001改为PF002.