请教各位:如何通过编程实现将400上的SPOOLED FILE下载到PC文件?

qingzhou

我说说个人思路吧，仅供参考！

一、先将SPOOLED FILE转成PC文件格式:*.TXT；

二、将AS/400配置成具备邮件服务的功能，将转成的TXT格式文件发送到指定的E-Mail中；
具体配置步骤如下：
(1)用命令CFGTCP设定TCP/IP环境:
选择10(Work with TCP/IP host table entries),把外部MailServer名称和对应IP地址登记注册进HostTable.

(2)使用命令CHGSMTPA, 确认参数设置:
AUTOSTART(*YES) 和 MAILROUTER(mail-server-name).

(3)注册用户:
ADDDIRE USRID(INTERNET SMTPRTE) USRD(‘Internet SMTP gateway’) SYSNAME(INTERNET) PREFADR(NETUSRID *IBM ATCONTXT)

(4)修改分发属性:
CHGDSTA SMTPRTE(INTERNET SMTPRTE)

(5)重启TCP的SMTP服务:
ENDTCPSVR *SMTP, STRTCPSVR *SMTP

(6)使用 WRKDIRE ,确认要使用这个功能的用户也注册加入了 Directory Entry.

三、创建一个CLP程序，含“以附件的形式 SNDDST TYPE(*DOC) 发送”语句:

PGM
CRTFLR FLR(CHSFILE)
CPYTOPCD FROMFILE(XXXX) TOFLR(CHSFILE) FROMMBR(XXX) TODOC(XXXX.TXT) TRNTBL(*NONE) TRNIGC(*SCGS)
SNDDST TYPE(*DOC) TOINTNET(E-mail address) DSTD(‘Test message’) DOC(XXXX.TXT) FLR(TEMP)
ENDPGM

四、在应用系统上建立一个快捷操作命令，如:EMAIL

这样应该可以达到你的要求。。。

qingzhou

原帖由 "China_Free_Man"]客户需要有时不把帐票打印出来,而是要将它作为邮件附件发出去.那需要先将SPOOLED FILE转到PC文件格式:.XLS或是.TXT[/color 发表：
.
但是通过FTP,CA的拖拉相对用户来说,还是有点麻烦.我想是不是可以利用什么API,通过编程实现这功能..........

我从楼主问的问题角度看时是将SPOOL FILE以邮件的形式发送给客户，所以就从配置400为邮件服务器角度阐述了。

如果只实现将SPOOL FILE发送到PC端，可能要考虑BATCH FTP或者借助第三方商业软件里的传送功能的可执行文件（如：CA/400里面实现Transfer功能的cwbtf.exe可执行文件等等）。
想快捷、简便实现一些功能有时往往不怎么容易。。。

qingzhou

我这段时间帮你留意了一下，发觉AS/400可以实现将spool file以pdf的形式转换后输出到PC端。。。
具体我这边已经作成WORD形式文档，由于图片不好帖，请给e-mail，我转发给你！
《如何将AS/400系统中的spool file打印PC硬盘文件中？》
大致内容如下：
有两种方法可以实现:
第一种方法:
1.打开打印仿真会话, 点开"文件"==>;"打印机设置":

[IMAGE]
2. 在打印机设置画面中可以看到:
　 "打印到磁盘-附加": 每一次打印的内容都在指定的文件末尾附加;
"打印到磁盘-分隔": 每一次打印的内容都保存在名为PRTDSK的文件中, 但是每一次文件的后缀名将从.000增至.999

[IMAGE]

2.选择PDT文件:

[IMAGE]

3.选择打印到磁盘文件:

[IMAGE]
这样, AS/400系统中的假脱机文件就可以打印到指定的PC硬盘文件中了!


第二种方法:
1. 首先，要在PC上建立一个以Generic text为驱动的打印机:
      (注意: 打印端口要指定位FILE: Create file on disk! )
[IMAGE]


2. 在配置打印会话中, 做如下设置:

[IMAGE]

4.当AS/400假脱机文件送到打印机时, 弹出下列窗口，要求输入PC文件名:

[IMAGE]
在指定完文件名后，即可以在指定的目录中找到生成的文件!

qingzhou

补充一下。
OS/400 V5R2M0版本以后，IBM对打印支持改进了不少。如果用户的OS/400有安装5722IP1这个LICPGM，可以支持将Spool file以邮件、PDF、IFS等形式转移到PC端。
OS/400 V5R2M0以前的版本我不知道是否也具备这个LICPGM。

qingzhou

昨晚回去翻了翻关于OS/400里头CL命令概述资料，觉得借助400的FLODER也是可以实现将400文件传输到PC端的。
我们使用命令CPYTOPCD ，然后将400的FLODER MAP成PC的驱动盘符. 这样PC端用户只要直接从驱动盘符拷贝出文件，然后再以附件形式发送出去。
如果可行，这种方法就会很简便实现楼主所要的功能。
如果CPYTOPCD不支持SPLF格式，考虑一下先将SPLF转化成PF形式，方法参照：
《AS/400如何将Spooled File 拷贝到源物理文件》—stephenxie2003
http://www.chinaunix.net/jh/10/195613.html

qingzhou

[quote]原帖由 "michael9406"]刘兄可以出书了[/quote 发表：

我也是在这里瞎吹的，如有错误之处请多多指正。。。
呵呵。。。
况且楼主是我认识的朋友，所以只是尽一份微薄之力帮帮忙而已。。。

qingzhou

原帖由 "亿城雪" 发表：
qingzhou兄
BATCH FTP那里下载？找来找去找不到。

请参考hammerdin 的回复，刚好他已经回答好了，我就不再赘述了。

<as400与windows如何互相传送文件>;
http://bbs.chinaunix.net/forum/10/20040721/371149.html