RPGLE中怎样使用SQL?

Question

SQL中要引入程序中的变量, 并且输出结果能被程序获得
能提供个小示例最好

Answer 1

本帖最后由 woiny456 于 2010-08-11 19:00 编辑

FP11       UF   E           K DISK  
C     *ENTRY        PLIST                                       
C                   PARM                    APDPTC            6
C                   PARM                    APDATE            8
C*                                                              
C/EXEC SQL                                                              
C+ UPDATE TESTLIB/P11T  SET AKDSTD=:APDATE                              
C+  WHERE AKASYN<>AKMDLN                                                
C/END-EXEC                                                              
C*                                                                     
C                   SETON                                        LR     
C                   RETURN

Answer 2

用动态光标可遍历结果集

Answer 3

本帖最后由 pure 于 2010-08-05 17:17 编辑

我用的是select a,b,sum(c) from ... group by ...
得到的结果如何遍历呢?

另外上面的示例编译失败，XDATE不存在

Answer 4

SQL中要引入程序中的变量, 并且输出结果能被程序获得
能提供个小示例最好
pure 发表于 2010-08-05 16:14

D  XDATE                        8P 0 INZ(0)                               *Dummy Date

C/EXEC SQL SELECT MAX(F00085_OED) INTO :XDATE FROM F00085
C+     WHERE F00085VC = :X1VC AND
C+           SUBSTR(F00085PON,1,2) = SUBSTR(:X1PON,1,2)
C/END-EXEC