从事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 |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
