7.22.組み込みSQLの例

FQPRINT    O    F  132        PRINTER                                   
                                                                        

D DS1           E DS                  EXTNAME(QRPGSRC)                  
                                                                        

C                   EXCEPT    HED                                       
 *                                                                      
 *  カーソルの定義                                                      
 *                                                                      
C/EXEC SQL                                                              
C+     DECLARE C1 CURSOR FOR                                            
C+         SELECT *                                                     
C+         FROM QRPGSRC                                                 
C+         WHERE SRCDAT = 000000                                        
C/END-EXEC                                                              
 *                                                                      
 *  カーソルのオープン                                                  
 *                                                                      
C/EXEC SQL                                                              
C+         OPEN C1                                                      
C/END-EXEC                                                              
 *                                                                      
 *  データの処理                                                        
 *                                                                      
C                   DOW       SQLCOD = 0                                
 *                                                                      
 *  カーソルで行を取り出す                                              
 *                                                                      
C/EXEC SQL                                                              
C+     FETCH NEXT                                                       
C+           FROM C1 INTO :DS1                                          
C/END-EXEC                                                              
                                                                        

C                   IF        (SQLCOD >= 0) AND (SQLCOD <> 100)         
C                   EXCEPT    DTL                                       
C                   ENDIF                                               

                                                                        

C                   ENDDO                                               
 *                                                                      
 *  カーソルのクローズ                                                  
 *                                                                      
C/EXEC SQL                                                              
C+        CLOSE C1                                                   　 
C/END-EXEC                                                         　   
                                                                      

C                   MOVE      *ON           *INLR                     
C                   RETURN                                            
                                                                      

OQPRINT    E            HED             001                           
O          E            DTL       001                                 
O                       SRCSEQ           +   1                        
O                       SRCDAT           +   1                        
O                       SRCDTA           +   1