写了个批量下载AS400 RPG源码的程序，共享给大家玩玩！

ux400

我一般这样下载源文件：
1、下载为 EBCDIC 文件：
1）如果要保留AS/400上的修改日期，就通过安装了 CA/400 V3R2 的 PC，通过网上邻居下载：
COPY  \\AS400名字\QSYS.LIB\你的库.LIB\你的文件.FILE\*.MBR  你的PC本地目录
例如：
COPY  \\AS400名字\QSYS.LIB\QSYSINC.LIB\H.FILE\*.MBR  你的PC本地目录
2）如果不必保留AS/400上的修改日期，可以通过 FTP 下载：
C>FTP 你的AS400IP
用户名
口令
cd 你的库
bin
prompt off
mget 你的文件.*
quit

2、EBCDIC 文件转码为 ASCII 文件，例如：
CODE400   2  你的文件.*   *.*   80
80 是你的文件的记录大小（假设）

ux400

原帖由 visualnc 于 2008-8-30 10:53 发表
我想了解楼主使用的原理？是用FTP还是其他连接？
能否讨论一下

1 楼不是说了用 FTP 吗?