請教各位:如何通過編程實(shí)現(xiàn)將400上的SPOOLED FILE下載到PC文件?

China_Free_Man

客戶需要有時(shí)不把帳票打印出來,而是要將它作為郵件附件發(fā)出去.那需要先將SPOOLED FILE轉(zhuǎn)到PC文件格式:.XLS或是.TXT.
但是通過FTP,CA的拖拉相對用戶來說,還是有點(diǎn)麻煩.我想是不是可以利用什么API,通過編程實(shí)現(xiàn)這功能?
如果可以的話,用戶只要在應(yīng)用系統(tǒng)里選個(gè)功能選項(xiàng),按一下ENTER鍵,就可以達(dá)到目的了.
請大家談?wù)効?

hammerdin

需要編程嗎？你做個(gè)BAT，把所有FTP的命令都寫好，一運(yùn)行BAT就可以把那個(gè)指定的文件下到PC里了。

China_Free_Man

BAT可以在400上調(diào)用嗎?
我主要是想客戶在用應(yīng)用系統(tǒng)的時(shí)候,更方便些.只要在應(yīng)用系統(tǒng)里面執(zhí)行一個(gè)選項(xiàng),而不用再切換到PC里面執(zhí)行個(gè)什么命令.或是打開CA再作什么操作.

qingzhou

我說說個(gè)人思路吧，僅供參考！

一、先將SPOOLED FILE轉(zhuǎn)成PC文件格式:*.TXT；

二、將AS/400配置成具備郵件服務(wù)的功能，將轉(zhuǎn)成的TXT格式文件發(fā)送到指定的E-Mail中；
具體配置步驟如下：
(1)用命令CFGTCP設(shè)定TCP/IP環(huán)境:
選擇10(Work with TCP/IP host table entries),把外部MailServer名稱和對應(yīng)IP地址登記注冊進(jìn)HostTable.

(2)使用命令CHGSMTPA, 確認(rèn)參數(shù)設(shè)置:
AUTOSTART(*YES) 和 MAILROUTER(mail-server-name).

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

(4)修改分發(fā)屬性:
CHGDSTA SMTPRTE(INTERNET SMTPRTE)

(5)重啟TCP的SMTP服務(wù):
ENDTCPSVR *SMTP, STRTCPSVR *SMTP

(6)使用 WRKDIRE ,確認(rèn)要使用這個(gè)功能的用戶也注冊加入了 Directory Entry.

三、創(chuàng)建一個(gè)CLP程序，含“以附件的形式 SNDDST TYPE(*DOC) 發(fā)送”語句:

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

四、在應(yīng)用系統(tǒng)上建立一個(gè)快捷操作命令，如:EMAIL

這樣應(yīng)該可以達(dá)到你的要求。。。

China_Free_Man

感謝QINGZHOU的參與哦!
這個(gè)思路我試試看.
不知道還有沒有更簡單點(diǎn)的辦法?
我想主要功能就是把SPOOLED FILE從400上下到PC文檔就可以.

wildfish

又學(xué)到怎么配置外部mail
可惜對系統(tǒng)管理一竅不通

qingzhou

原帖由 "China_Free_Man"]客戶需要有時(shí)不把帳票打印出來,而是要將它作為郵件附件發(fā)出去.那需要先將SPOOLED FILE轉(zhuǎn)到PC文件格式:.XLS或是.TXT[/color 發(fā)表：
.
但是通過FTP,CA的拖拉相對用戶來說,還是有點(diǎn)麻煩.我想是不是可以利用什么API,通過編程實(shí)現(xiàn)這功能..........

我從樓主問的問題角度看時(shí)是將SPOOL FILE以郵件的形式發(fā)送給客戶，所以就從配置400為郵件服務(wù)器角度闡述了。

如果只實(shí)現(xiàn)將SPOOL FILE發(fā)送到PC端，可能要考慮BATCH FTP或者借助第三方商業(yè)軟件里的傳送功能的可執(zhí)行文件（如：CA/400里面實(shí)現(xiàn)Transfer功能的cwbtf.exe可執(zhí)行文件等等）。
想快捷、簡便實(shí)現(xiàn)一些功能有時(shí)往往不怎么容易。。。

qingzhou

我這段時(shí)間幫你留意了一下，發(fā)覺AS/400可以實(shí)現(xiàn)將spool file以pdf的形式轉(zhuǎn)換后輸出到PC端。。。
具體我這邊已經(jīng)作成WORD形式文檔，由于圖片不好帖，請給e-mail，我轉(zhuǎn)發(fā)給你！
《如何將AS/400系統(tǒng)中的spool file打印PC硬盤文件中？》
大致內(nèi)容如下：
有兩種方法可以實(shí)現(xiàn):
第一種方法:
1.打開打印仿真會話, 點(diǎn)開"文件"==>;"打印機(jī)設(shè)置":

[IMAGE]
2. 在打印機(jī)設(shè)置畫面中可以看到:
　 "打印到磁盤-附加": 每一次打印的內(nèi)容都在指定的文件末尾附加;
"打印到磁盤-分隔": 每一次打印的內(nèi)容都保存在名為PRTDSK的文件中, 但是每一次文件的后綴名將從.000增至.999

[IMAGE]

2.選擇PDT文件:

[IMAGE]

3.選擇打印到磁盤文件:

[IMAGE]
這樣, AS/400系統(tǒng)中的假脫機(jī)文件就可以打印到指定的PC硬盤文件中了!


第二種方法:
1. 首先，要在PC上建立一個(gè)以Generic text為驅(qū)動的打印機(jī):
      (注意: 打印端口要指定位FILE: Create file on disk! )
[IMAGE]


2. 在配置打印會話中, 做如下設(shè)置:

[IMAGE]

4.當(dāng)AS/400假脫機(jī)文件送到打印機(jī)時(shí), 彈出下列窗口，要求輸入PC文件名:

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

qingzhou

補(bǔ)充一下。
OS/400 V5R2M0版本以后，IBM對打印支持改進(jìn)了不少。如果用戶的OS/400有安裝5722IP1這個(gè)LICPGM，可以支持將Spool file以郵件、PDF、IFS等形式轉(zhuǎn)移到PC端。
OS/400 V5R2M0以前的版本我不知道是否也具備這個(gè)LICPGM。

China_Free_Man

感謝QINGZHOU兄的大力支持!
我的MAIL是:  wiseyifei@hotmail.com
麻煩轉(zhuǎn)發(fā)一下...