请教初级问题: 如何在程序里面嵌入SQL?

红像

我用RPGLE写了段程序, 希望用SQL检索, 但是就是不通过编辑器的语法检查.

是不是RPGLE不支持SQL?  或者要用CL或RPG? 我想不是RPG吧.
我的代码如下:

1. 
   
2. 0054.00 C                   Z-ADD     0             #MMDD         
   
3. 0055.00 C                   MOVEL     VMONTH        #MMDD         
   
4. 0056.00 C                   MOVE      \TDAY         #MMDD         
   
5. 0057.00 C                   MOVEL     VYEAR         \TDATE        
   
6. 0058.00 C                   MOVE      #MMDD         \TDATE        
   
7. 0059.00 C*                                                        
   
8. 0060.00 C                   Z-ADD     0             \SUMQTY      
   
9. 0061.00 C/EXEC SQL                                                
   
10. 0062.00 C+ DECLARE Cur1 CURSOR FOR SELECT ATRQTY FROM STOIN      
    
11. 0063.00 C+ WHERE ADTINP>;=:\FDATE AND ADTINP<=:\TDATE              
    
12. 0064.00 C/END-EXEC                                                
    
13. 0065.00 C*                                                        
    
14. 0066.00 C/EXEC SQL                                                
    
15. 0067.00 C+ FETCH Cur1 INTO :\SUMQTY                              
    
16. 0068.00 C/END-EXEC                                                

复制代码

我知道有个OPEN C1的句子没有写, 不过/EXEC SQL就通不过检查了, 让我很恼火.

谢谢指教

XFIVE

仔细看看spool file

yj2yq

你是用什么命令编译程序的？
sqlrpg要先预先编译成rpg才能编译成*PGM
看上去好象没进行预编译处理吗！

wildfish

你把程序类型改称sqlrpgle，然后编译，就可以了

红像

谢谢~~~我去试试.

顺便问一下, SQL查出来的结果是一个集合吗? 那是不是要一个循环才可以做累加.

yj2yq

用SELECT SUM()语句更简单.

红像

那这个SQL SUM()该怎么写, 能示范一下吗? 放在哪个EXEC里面?

1. 
   
2. C/EXEC SQL                                    
   
3. C+ DECLARE C CURSOR FOR                        
   
4. C+ SELECT ATRQTY FROM STOIN                    
   
5. C+ WHERE ADTINP >;= :#FDATE AND ADTINP < :#TDATE
   
6. C/END-EXEC                                    
   
7. C*                                             
   
8. C/EXEC SQL                                    
   
9. C+ OPEN C                                      
   
10. C/END-EXEC                                    
    
11. C*                                             
    
12. C/EXEC SQL                                    
    
13. C+ FETCH C INTO :#SUMQTY                       
    
14. C/END-EXEC                                    

复制代码

其中#FDATE, #TDATE, #SUMQTY是HOST变量, 编译是报错, 我看了说明, 好像HOST变量就是这样用阿???

暴走族

首先,看你的需求没必要用动态光标.用静态的就行了.
select sum(xx) into xxx from xxxx where xx=xx
其次,用主结构的话要看你主结构的定义.
再次,用主结构一般要跟一个指示器结构用来判断空值,否则SQL会报305错误.(如果你的结果集里有NULL值)