请教RPG问题

richardyang

比如有个PF叫TESTPF,record叫FTESTPF，字段是
         id           9 0
             name    10   
       K    id
但是允许相同ID有重复记录。
现在想要打出TESTPF中的所有不重复id，如果用sql,直接select distinct id from testpf就可以了，如果RPG有什么好方法打出没？？？？？？

yisheng_li

要多好的方法啊，呵呵.....

roden

用刚读出的ID SETGT一下就可以了.不过只是取第一条记录.

BTW:ID不唯一不是很好的设计,也许你在PF中不需要定义,但在整个系统中一定保证ID是唯一的.

richardyang

因为现实中可能ID不是唯一的，有其它唯一的列，但必须用ID这个字段来做判断，所以需要这么做，是不是除了select distinct id，在RPG里实现比较困难啊？

roden

一点都不困难,用SETGT

hui5562lin

SETGT，简单

weeking

A->
A  SETGT   XXXX
    READ    XXXX
B->
B  SETGT  XXXX
....... \
?

passthru

严格讲，setgt后，应该用readp。

另外，用rpg V6R1版，也可以直接嵌sql语句，select distinct id from testpf。

qiao_zq

*LOVAL  SETLL     FTESTPF                                    
               READ      FTESTPF                                82   
               IF        *IN82=*OFF                                 
               输出ID                 
                                                                    
               DO        *HIVAL                                      
ID          SETGT     FTESTPF                                    
               READ      FTESTPF                                82   
               IF        *IN82=*OFF                                 
               输出ID                                 
               ELSE                                                  
               LEAVE                                                
               ENDIF                                                
               ENDDO                                                
                                                                     
               ENDIF     
                                            
               SETON                                        LR      
               RETURN

hehwltt

方法有很多。

1.SETGT可以。
2.用中断指示器可以。
3.做一个CL程序，用OPNQRYF 参数UNIQUEKEY为*ALL也可以。