基于OS400平台更新数据的常见方法总结

My FAQ,最新最全的IT技术FAQ

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置： > 操作系统 > IBM Server

基于OS400平台更新数据的常见方法总结

作者:未知时间:2005-09-13 15:44 出处:ChinaUnix.net 责编:My FAQ

摘要：基于OS400平台更新数据的常见方法总结

从事400工作，会经常遇到要求更新数据(PF)的情况；总结一下，会发现常见有如下几种方法，欢迎大家补充~~~

一、使用最频繁、最实用的办法是采用RPG编程，此外还有其它支持OS400的开发语言，但要求用户必须具备相关的编程能力:
例如：采用RPG语言更新MCLTMP物理文件

[code:1:2b7822ebbb]
     F** -------- FILE DEFINE ---------------------------------------*
     FMCLTMP  UF  E           K        DISK
     C****************************************************************
     C**                   RPG < MRMCLTM1 > ROUTINE                 **
     C****************************************************************
     C**
     C** INTIALIZE-RTN
     C                     EXSR @INZ
     C** MAIN-RTN
     C                     EXSR @MAIN
     C** END-RTN
     C                     EXSR @END
     C**
     C****************************************************************
     C**         @INZ :    INITIALIZE                               **
     C****************************************************************
     C**
     C           @INZ      BEGSR
     C**
     C                     ENDSR
     C**
     C****************************************************************
     C**         @MAIN   : MAIN RTN                                 **
     C****************************************************************
     C**
     C           @MAIN     BEGSR
     C**
     C                     EXSR @RED
     C**
     C           *IN91     DOWEQ'0'
     C**
     C                     EXSR @UPD
     C                     EXSR @RED
     C**
     C                     ENDDO
     C** PGM-END
     C                     ENDSR
     C**
     C******************************************************
     C**         @UPD      MCLTMP UPDATE                  **
     C******************************************************
     C**
     C           @UPD      BEGSR
     C**
     C           CBLTTM    IFEQ 2.0                        ----+
     C**                                                       |
     C           CBSE      IFEQ 'AN3'                      --+ |
     C**                                                     | |
     C                     Z-ADD1         CBLTTM             | |       DATE
     C                     UPDATMCLTMR                       | |          GM
     C**                                                     | |
     C                     ENDIF                           --+ |
     C**                                                       |
     C                     ENDIF                           ----+
     C**
     C           CBLTTM    IFEQ 1.5                        ----+
     C**                                                       |
     C           CBSE      IFEQ 'AN2'                      --+ |
     C**                                                     | |
     C                     Z-ADD1         CBLTTM             | |       DATE
     C                     UPDATMCLTMR                       | |          GM
     C**                                                     | |
     C                     ENDIF                           --+ |
     C**                                                       |
     C                     ENDIF                           ----+
     C**
     C                     ENDSR
     C**
     C****************************************************************
     C**         @RED   : MCLTMP  READ RTN                          **
     C****************************************************************
     C**
     C           @RED      BEGSR
     C**
     C                     READ MCLTMP                   91
     C**
     C                     ENDSR
     C**
     C****************************************************************
     C**         @END    : END OF JOB                               **
     C****************************************************************
     C**
     C           @END      BEGSR
     C** PGM END
     C                     SETON                     LR
     C                     RETRN
     C**
     C                     ENDSR
     C**
[/code:1:2b7822ebbb]

二、采用SQL语句进行更新数据，前提是机器有安装支持SQL语句的LICPGM:

1、执行SQL语句大家都比较熟悉，执行单句SQL语句好办，直接在命令行执行即可。

2、如果遇到多个SQL语句时，比较麻烦些，可以考虑如下步骤：
1）在QGPL/QTXTSRC下增加一个source menber(TEST), 把想要执行的所有语句写入其中;
2）在命令行执行: RUNSQLSTM SRCFILE(QGPL/QTXTSRC) SRCMBR(TEST).
注意:
(1)每条语句要以分号(；)结束；
(2)不支持SELECT语句；
(3)RUNSQLSTM命令一次性执行source member中定义的所有SQL语句.

三、采用CA/400或PCMM的Transfer机能下载数据，PC端常见使用格式为*.xls，通过EXCEL修正,然后上传；操作简单，但安全性较低:

1.download data from AS/400
2.update data with EXCEL
3.upload data to AS/400

注意：
(1)如果记录有超过16,000，PC端输出设备的文件类型应选取BIFF8(MS Excel8)，否则系统传输报错；
(2)建议使用已经打过补丁的CA/400、PCMM对数据进行Transfer，以免出现传输故障.

四、借助ADTS/400工具箱中的DFU进行更新数据，但只能逐条更新:

1、STRDFU
2、Update data using temporary program
3、......

zzzddd 回复于：2004-03-17 15:55:47

谢谢qinzhou!

dadaup 回复于：2004-03-18 10:00:34

command :

upddta

qingzhou 回复于：2004-03-18 10:42:44

[quote:ce78b704e0="dadaup"]command :
upddta[/quote:ce78b704e0]

哦，谢谢你的补充~~~
不过UPDDTA实质就是STRDFU→5.Update data using temporary program ，请自行测试看看是否同一个结果。。。

stephenxie2003 回复于：2004-03-18 17:26:45

嗯，总结的真好啊！
设为精华一点都不为过！
:)

fh2001 回复于：2004-03-18 18:25:01

支持ODBC的客户端。如ACCESS, EXCEL, VB....;
支持JDBC的客户端。APPLET， JAVA APPLICATION, 支持SERVERLET的服务器，如WEBSHERE, DOMINO...

qingzhou 回复于：2004-03-19 09:45:18

fh2001补充得不错。。。
关于VB、VFP、LOTUS访问DB2的问题这个论坛也以前有讨论过，是一种方法，但可能不是很常用的方法。
谢谢先~~~

jzcg001 回复于：2004-03-19 11:44:48

支持！
学习中.........

smile-wz 回复于：2004-03-19 13:34:57

还可以写一个SQLRPGLE的程序。MEMBER TYPE为SQLRPGLE.然后编译成普通*PGM。call即可。
参考代码如下：
C/EXEC SQL
C+     DELETE FROM LSDPDTA/POSTRKEY WHERE
C+                  TRPOLN='0100001221'
C/END-EXEC
C                    SETON                         LR
格式很自由，所有SQL语句都可以用。

ibmas400 回复于：2004-03-19 13:56:45

[quote:3bc33f7f65="smile-wz"]还可以写一个SQLRPGLE的程序。MEMBER TYPE为SQLRPGLE.然后编译成普通*PGM。call即可。
参考代码如下：
C/EXEC SQL
C+ DELETE FROM LSDPDTA/POSTRKEY WH..........[/quote:3bc33f7f65]

这个注意不错，对用户当前的运行环境有什么具体要求吗？

smile-wz 回复于：2004-03-19 14:01:38

没有什么特殊要求。只要你可以使用RPGLE就没问题。

andrewleading_he 回复于：2004-03-22 14:34:43

^_^，幾天沒有上線。一看就這麼多好文章！收藏了，呵呵

不錯，繼續啊

ibmas400 回复于：2004-03-23 12:38:46

方法通俗易懂，来得实在。。。
谢谢.

人世间回复于：2004-03-23 15:26:07

very good
thanks