除了CA自带的下载功能，怎么传送AS400的文件(pf)到PC(txt)??

jianzk

RT...

cloudrack_chen

使用FTP进行传送：

　由于运行视窗操作系统(Windows)的PC使用ASCII编码, 而运行OS/400的AS/400使用EBCDIC编码, 所以在两个不同编码的操作系统之间互相传送文件, 就涉及到文件编码的问题. 如果要传输的文件又包含中文, 那么系统又要做不同的转码处理, 本片文章就介绍如何在PC和AS/400之间正确地传输包含中文的文件.
　　1. 从PC往AS/400送文件PC -- Client, AS/400 -- Server)
　　示例: 将PC上e:\temp目录下的文件test.file(包含中文), 传送到AS/400上的库TESTLIB中
　　* 在Windows中运行DOS窗口;
　　* ftp as400-ip-address;
　　* 输入用户名和密码;
　　* quote site namefmt 1
　　* cd /qsys.lib/testlib.lib
　　* lcd e:\test
　　* bin
　　* quote type c 1381
　　* put test.file
　　2. 从AS/400往PC送文件PC -- Server, AS/400 -- Client)
　　示例: 将AS/400上库TESTLIB下的文件test.file(包含中文), 传送到PC上的目录e:\temp中
　　* 在AS/400命令行输入: ftp 'pc-ip-address'
　　* 输入用户名和密码;
　　* cd e:\temp
　　* namefmt 1
　　* lcd /qsys.lib/testlib.lib
　　* bin
　　* ltype c 1381
　　* put testas.file

jianzk

2，从AS/400往PC送文件时，要是PC端没开FTP，还有其他方法实现吗？？

补充一下：
400的CCSID(QCCSID)是65535，400客户端(CA)的CCSID是937（繁体中文），PC OS是XP（繁体）。

alexcmk

有很多 5250 軟件都有下載功能, 但要知道 server 上有沒有設定 exit point 限制

jianzk

请问可否描述得具体点（最好可以有代码:wink: ）。

alexcmk

http://cgs.com.hk/product/product.htm

jianzk

写了一个BAT文件名为“ftpdwn.bat”，放在D：盘
用于运行FTP命令，通过GET命令把400的文件（PF.MBR)下载到PC。


代码如下：
@echo off
set FtpFile=%temp%\TempAcc.txt
>"%FtpFile%" echo open as400-ip
>>"%FtpFile%" echo username
>>"%FtpFile%" echo password
>>"%FtpFile%" echo cd teslib
>>"%FtpFile%" echo get %1 %2
>>"%FtpFile%" echo quit
ftp -s:"%FtpFile%"
del "%FtpFile%"

然后通过STRPCCMD命令执行该文件(ftpdwn.bat)
传入两个参数(1%为400的文件，%2为将要生成在PC的文件)

STRPCO
STRPCCMD PCCMD('D:\ftpdwn.bat file1.file1 d:\file1.txt') PAUSE(*NO)

我测试了一下，如果PF里只有英文字符的话就没问题；如果是P型数字或中文的话就会出现乱码，问题有待解决，希望各位大虾不吝赐教。

cwwen

一般在PC 跟400常見的PF檔案傳輸有幾種方法可以達成
1)FTP

2)先用command "CPYTOSTMF"or "CPYTOPCD"把檔案存到IFS下
再用Netserver (網路芳鄰),把檔案抓回去.

3)ODBC,OLEDB,JDBC.
  自己寫程式把牠抓回去,DATA TRANSFER就是用這個方法

不過繁中的資料有0E0F的問題,所以抓回來的DBCS資料都把blank去掉
可以參考下面網址的說明解決這個問題

http://blog.xuite.net/vengoal/as400/14233697

jianzk

[ 本帖最后由 jianzk 于 2009-5-28 11:44 编辑 ]

wdz315

原帖由 cwwen 于 2009-5-28 00:33 发表
一般在PC 跟400常見的PF檔案傳輸有幾種方法可以達成
1)FTP

2)先用command "CPYTOSTMF"or "CPYTOPCD"把檔案存到IFS下
再用Netserver (網路芳鄰),把檔案抓回去.

3)ODBC,OLEDB,JDBC.
  自己寫程式把牠抓回 ...

关于第三种方法，有时候速度有点慢倒是真的。