论坛徽章:: 1

电梯直达

1楼 [收藏(0)] [报告]

发表于 2008-09-27 14:38 |只看该作者 |倒序浏览

不知道论坛内有没有这样的材料啊，如果没有，哪位大哥能提供点啊！！！谢谢了！

文库|博客

perfectit

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2008-09-27 16:27 |只看该作者

我还以为你要共享点资料给大家呢

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

fairyboy

广告杀手

论坛徽章:: 0

3楼 [报告]

发表于 2008-09-28 13:05 |只看该作者

SQLRPGLE?

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

kib72312

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 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