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

China_Free_Man

客户需要有时不把帐票打印出来,而是要将它作为邮件附件发出去.那需要先将SPOOLED FILE转到PC文件格式:.XLS或是.TXT.
但是通过FTP,CA的拖拉相对用户来说,还是有点麻烦.我想是不是可以利用什么API,通过编程实现这功能?
如果可以的话,用户只要在应用系统里选个功能选项,按一下ENTER键,就可以达到目的了.
请大家谈谈看?

hammerdin

需要编程吗？你做个BAT，把所有FTP的命令都写好，一运行BAT就可以把那个指定的文件下到PC里了。

China_Free_Man

BAT可以在400上调用吗?
我主要是想客户在用应用系统的时候,更方便些.只要在应用系统里面执行一个选项,而不用再切换到PC里面执行个什么命令.或是打开CA再作什么操作.

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

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

China_Free_Man

感谢QINGZHOU的参与哦!
这个思路我试试看.
不知道还有没有更简单点的办法?
我想主要功能就是把SPOOLED FILE从400上下到PC文档就可以.

wildfish

又学到怎么配置外部mail
可惜对系统管理一窍不通

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。

China_Free_Man

感谢QINGZHOU兄的大力支持!
我的MAIL是:  wiseyifei@hotmail.com
麻烦转发一下...