Chinaunix

标题: 关于sqlrpgle的材料 [打印本页]

作者: cyberspace4601 时间: 2008-09-27 14:38
标题: 关于sqlrpgle的材料
不知道论坛内有没有这样的材料啊，如果没有，哪位大哥能提供点啊！！！谢谢了！

作者: perfectit 时间: 2008-09-27 16:27
我还以为你要共享点资料给大家呢

作者: fairyboy 时间: 2008-09-28 13:05
SQLRPGLE?

作者: kib72312 时间: 2008-11-07 17:21
source type 請修改為 SQLRPGLE
compile 時請修改參數 COMMIT(*NONE)
以下為SQLRPGLE部分 Source code
   D CURT          S             4 DIM(99)
   C                CLEAR                CURT
   C                CLEAR                II             2 0
   C                CLEAR                FLDA             4
C**取得工作檔幣別代號搬入陣列
C**-- SQL_01 START
   C/EXEC SQL
   C+ DECLARE C1 CURSOR FOR SELECT DISTINCT
   C+  WR046A060 || WR046A050 AS FLDA
   C+ FROM RCR046WA
   C/END-EXEC
   C**
   C/EXEC SQL
   C+    OPEN C1
   C/END-EXEC
B1--C                DOW    SQLCOD = 0
C/EXEC SQL
C+    FETCH C1
C+    INTO
C+ :FLDA
C/END-EXEC
C**-- SQL_01 END
B2-C                IF       SQLCOD <> 0
C                LEAVE
E2-C                ENDIF
B2-C                IF       FLDA <> *BLANK
C                Z-ADD    1          II
C    FLDA       LOOKUP CURT(II)                            13
B3C                IF       *IN13 = *OFF
  C                Z-ADD    1          II
  C    *BLANK       LOOKUP CURT(II)                            14
BC                IF       *IN14 = *ON
C                MOVEL    FLDA       CURT(II)
EC                ENDIF
E3C                ENDIF
E2-C                ENDIF
E1--C                ENDDO
C**--
C** CLOSE CURSOR
   C/EXEC SQL
   C+ CLOSE C1
   C/END-EXEC
C**--
C                ENDSR

作者: qingzhou 时间: 2008-11-07 17:31
记得以前有多次讨论过sqlrpgle,你搜索看看.

作者: li_love 时间: 2008-11-09 10:36
这里讨论太多了, sou sou kan

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)