急!请问在RPG如何读取没有KEY的资料

Vivian-wu

FGTX这个表在PF时没有KEY， 我在RPG写下如下代码，可它总是读第一条，
请各位高手指教。


C           CPY#1     BEGSR                                
C                          READ FGTX                  32     
C           *IN32     DOWEQ'0'                                             
C           FG#08     IFGE @DTF                           
C           FG#08     ANDLE@DTT                           
C                          WRITER171B                           
C                          ENDIF                                
C                          ENDDO                                
C                          ENDSR

xuguopeng

因为你就从没有读第2条记录

在ENDDO前面加READ FGTX才可以实现循环

Vivian-wu

哎，是呀，都湖涂!
谢谢!

USING_AS400

1. C           CPY#1     BEGSR                                
   
2. C                          READ FGTX                  32   
   
3. C           *IN32     DOWEQ'0'                                            
   
4. C           FG#08     IFGE @DTF                           
   
5. C           FG#08     ANDLE@DTT                           
   
6. C                          WRITER171B                          
   
7. C                          ENDIF                                
   
8. C                          READ FGTX                  32              /*增加的*/
   
9. C                          ENDDO                                
   
10. C                          ENDSR

复制代码