Comments on: Fetch to datastructure in RPG/400 http://itknowledgeexchange.techtarget.com/itanswers/fetch-to-datastructure-in-rpg400/ Sat, 25 May 2013 23:02:16 +0000 hourly 1 By: alicsc http://itknowledgeexchange.techtarget.com/itanswers/fetch-to-datastructure-in-rpg400/#comment-54649 alicsc Mon, 14 Jul 2008 16:36:17 +0000 #comment-54649 Great !!! Thanks to all

]]> By: sloopy http://itknowledgeexchange.techtarget.com/itanswers/fetch-to-datastructure-in-rpg400/#comment-54642 sloopy Mon, 14 Jul 2008 15:21:03 +0000 #comment-54642 If you want to select more than one record through the SQL SELECT, you need a loop :

C/EXEC SQL DECLARE C1 CURSOR FOR              
C+         SELECT   SUM(NDTCFT),              
C+                  SUM(NDTCF2), SUM(NDTCL2), 
C+                  SUM(NDTCF4), SUM(NDTCL4), 
C+                  NDSTPRCC, NDPOD           
C+         FROM     VDNDDOC                   
C+         WHERE    NDSTPRCC >= :D WSTPF AND   
C+                  NDSTPRCC <= :D WSTPT AND   
C+                  NDSH      = :D WP101       
C+         GROUP BY NDSTPRCC, NDPOD           
C+         ORDER BY NDSTPRCC, NDPOD           
C/END-EXEC                                    
                                              
C/EXEC SQL                                    
C+         OPEN C1                            
C/END-EXEC

Then :

C/EXEC SQL WHENEVER NOT FOUND GO TO FINISHED                       
C/END-EXEC                                                         
                                                                   
C                   DoU       SQLCOD      = 100                    
                                                                   
C/EXEC SQL                                                         
C+         FETCH C1 INTO                                           
C+                  :NDTCFT,   :NDTCF2, :NDTCL2, :NDTCF4, :NDTCL4, 
C+                  :NDSTPRCC, :NDPOD                              
C/END-EXEC

(process the received records here)

C                   EndDo                             
                                                      
 * End of data - print the totals and end the report :
                                                      
C     Finished      Tag                               
                                                      
C/EXEC SQL                                            
C+         CLOSE C1                                   
C/END-EXEC

Regards,

Sloopy

]]> By: alicsc http://itknowledgeexchange.techtarget.com/itanswers/fetch-to-datastructure-in-rpg400/#comment-54626 alicsc Mon, 14 Jul 2008 12:58:19 +0000 #comment-54626 Hi,

Can you give me one example of FETCH statment to fetch next and last record

]]>