当你在AS/400之间进行数据传输遇到困难时,不妨试试'FTPGET'!

My FAQ,最新最全的IT技术FAQ

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置： > 操作系统 > IBM Server

当你在AS/400之间进行数据传输遇到困难时,不妨试试'FTPGET'!

作者:未知时间:2005-09-13 15:43 出处:ChinaUnix.net 责编:My FAQ

摘要：当你在AS/400之间进行数据传输遇到困难时,不妨试试'FTPGET'!

[color=blue:86709a72c4]关于使用FTP命令在PC←→AS/400之间进行传输数据的文章大家可能遇到不少，如何在AS/400←→AS/400之间进行数据传输，并将许多诸如FTP
、CL等一些命令整合在一起，而使用户不必面对许多烦琐的命令，直接在一个窗口中完成；以下这遍文章将对此进行说明，并提供源代码，以供参考！[/color:86709a72c4]

[size=18:86709a72c4][b:86709a72c4]1、借助SEU工具创建以下源代码：[/b:86709a72c4][/size:86709a72c4]

1)CREAT PF:FTPINP

[code:1:86709a72c4] Columns . . . :    1  71           Browse                         LIU/QFTPSRC
SEU==>                                                                  FTPINP
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
0001.00      A*****************************************************************
0002.00      A*   PROGRAM VERSION   : V1.0                                    *
0003.00      A*   SYSTEM NAME   :  FTP Communication Service                  *
0004.00      A*   FILE NAME     :  FTP Description File                       *
0005.00      A*   FILE ID       :  FTPINP                                     *
0006.00      A*   TYPE          :  PF                                         *
0007.00      A*   MADE DATE     :  2002/01/06  MR. LIU YUANYAO                *
0008.00      A*   CHANGE DATE   :  0000/00/00                                 *
0009.00      A*****************************************************************
0010.00      A*
0011.00      A          R FTPINPR
0012.00      A*
0013.00      A            FTPD01        80A         COLHDG(' 数据 ')
        ****************** End of data **************************************** [/code:1:86709a72c4]

2)CREAT RPG :FTPGETR

[code:1:86709a72c4] Columns . . . :    1  71           Browse                         LIU/QFTPSRC
SEU==>                                                                 FTPGETR
FMT *  ..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
0001.00      H****************************************************************
0002.00      H** RICOH (FUZHOU) CO.                                         **
0003.00      H**------------------------------------------------------------**
0004.00      H** PROGRAM ID        : FTPGETR                                **
0005.00      H**                                                            **
0006.00      H** DESCRIPTION       : FTP INPUT FILE WRITE                   **
0007.00      H**                                                            **
0008.00      H**                                                            **
0009.00      H** PROGRAMMER NAME   : MR.  LIU YUANYAO                       **
0010.00      H**                                                            **
0011.00      H** CREATION DATE     : 02/01/06                               **
0012.00      H** MODIFICATION DATE : YY/MM/DD (XXXXXXXXXXXXXXXX)            **
0013.00      H****************************************************************
0014.00      F**
0015.00      FFTPINP  O   E                    DISK
0016.00      F**
0017.00      E                    #RC     1   5 80
0018.00      I****************************************************************
0019.00      I            DS
0020.00      I                                        1  80 WKREC
0021.00      I                                        5  36 W#FROM
0022.00      I                                       38  69 W#TO
0023.00      I                                       71  71 W#OPT1
0024.00      I                                       72  78 W#OPT2
0025.00      C****************************************************************
0026.00      C**                   MAIN ROUTINE                             **
0027.00      C****************************************************************
0028.00      C**
0029.00      C                     EXSR @INZ
0030.00      C**
0031.00      C           1         DO   5         I       30
0032.00      C                     MOVEL*BLANK    FTPD01
0033.00      C                     MOVEL#RC,I     FTPD01
0034.00      C           I         IFEQ 4
0034.00      C           I         IFEQ 4
0035.00      C                     MOVEL#RC,4     WKREC
0036.00      C                     MOVELP#FROM    W#FROM
0037.00      C                     MOVELP#TO      W#TO
0038.00      C           P#OPT     IFEQ '*YES'
0039.00      C                     MOVEL'('       W#OPT1
0040.00      C                     MOVEL'REPLACE' W#OPT2
0041.00      C                     ELSE
0042.00      C                     MOVEL*BLANK    W#OPT1
0043.00      C                     MOVEL*BLANK    W#OPT2
0044.00      C                     ENDIF
0045.00      C                     MOVELWKREC     FTPD01
0046.00      C                     ENDIF
0047.00      C**
0048.00      C                     WRITEFTPINPR
0049.00      C                     ENDDO
0050.00      C** PGM-END
0051.00      C                     EXSR @END
0052.00      C**
0053.00      C****************************************************************
0054.00      C**         @INZ :    INITIALIZE                               **
0055.00      C****************************************************************
0056.00      C**
0057.00      C           @INZ      BEGSR
0058.00      C** DEFINE P-LIST
0059.00      C           *ENTRY    PLIST
0060.00      C                     PARM           P#FROM 32
0061.00      C                     PARM           P#TO   32
0062.00      C                     PARM           P#OPT   4
0063.00      C**
0064.00      C                     ENDSR
0065.00      C**
0066.00      C****************************************************************
0067.00      C**         @END    : END OF JOB                               **
0068.00      C****************************************************************
0069.00      C**
0070.00      C           @END      BEGSR
0071.00      C** PGM END
0072.00      C                     SETON                     LR
0073.00      C                     RETRN
0074.00      C**
0075.00      C                     ENDSR
0076.00      C**
0077.00 ** #RC
0078.00 TSS99 TSS99
0079.00 BINARY
0080.00 NAMEFMT 0
0081.00 GET XXXXXXXXXX/XXXXXXXXXX.XXXXXXXXXX XXXXXXXXXX/XXXXXXXXXX.XXXXXXXXXX (REPLACE
0082.00 QUIT
        ****************** End of data ****************************************[/code:1:86709a72c4]
3)CREATE CL:FTPGETC

[code:1:86709a72c4] Columns . . . :    1  71           Browse                         LIU/QFTPSRC
SEU==>                                                                 FTPGETC
FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
0001.00   PGM (&RMTSYS &FROM &FROMMBR &TO &TOMBR &MBROPT &LOG)
0002.00
0003.00              DCL        VAR(&RMTSYS)  TYPE(*CHAR) LEN(15)
0004.00              DCL        VAR(&FROM)    TYPE(*CHAR) LEN(20)
0005.00              DCL        VAR(&FROMMBR) TYPE(*CHAR) LEN(10)
0006.00              DCL        VAR(&TO)      TYPE(*CHAR) LEN(20)
0007.00              DCL        VAR(&TOMBR)   TYPE(*CHAR) LEN(10)
0008.00              DCL        VAR(&MBROPT)  TYPE(*CHAR) LEN(4)
0009.00              DCL        VAR(&LOG)     TYPE(*CHAR) LEN(20)
0010.00
0011.00              DCL        VAR(&FFILE) TYPE(*CHAR) LEN(10)
0012.00              DCL        VAR(&FLIB)  TYPE(*CHAR) LEN(10)
0013.00              DCL        VAR(&TFILE) TYPE(*CHAR) LEN(10)
0014.00              DCL        VAR(&TLIB)  TYPE(*CHAR) LEN(10)
0015.00              DCL        VAR(&LFILE) TYPE(*CHAR) LEN(10)
0016.00              DCL        VAR(&LLIB)  TYPE(*CHAR) LEN(10)
0016.00              DCL        VAR(&LLIB)  TYPE(*CHAR) LEN(10)
0017.00
0018.00              DCL        VAR(&OBJT)  TYPE(*CHAR) LEN(10)
0019.00
0020.00              DCL        VAR(&FPARM) TYPE(*CHAR) LEN(32)
0021.00              DCL        VAR(&TPARM) TYPE(*CHAR) LEN(32)
0022.00
0023.00              CHGVAR     VAR(&FFILE) VALUE(%SST(&FROM  1 10))
0024.00              CHGVAR     VAR(&FLIB)  VALUE(%SST(&FROM 11 10))
0025.00              CHGVAR     VAR(&TFILE) VALUE(%SST(&TO    1 10))
0026.00              CHGVAR     VAR(&TLIB)  VALUE(%SST(&TO   11 10))
0027.00              CHGVAR     VAR(&LFILE) VALUE(%SST(&LOG   1 10))
0028.00              CHGVAR     VAR(&LLIB)  VALUE(%SST(&LOG  11 10))
0029.00              IF         COND(&TOMBR *EQ '*FROMMBR') THEN(CHGVAR +
0030.00                           VAR(&TOMBR) VALUE(&FROMMBR))
0031.00
0032.00 /* TO FILE */
0033.00              CHKOBJ     OBJ(&TLIB/&TFILE) OBJTYPE(*FILE)
0034.00              MONMSG     MSGID(CPF0000) EXEC(DO)
0035.00              SNDPGMMSG  MSG(' TO FILE ERROR ')
0036.00              GOTO       CMDLBL(END)
0037.00              ENDDO
0038.00
0039.00              IF         COND(&TOMBR *NE '*NONE') THEN(DO)
0040.00              CHKOBJ     OBJ(&TLIB/&TFILE) OBJTYPE(*FILE) MBR(&TOMBR)
0041.00              MONMSG     MSGID(CPF9815) EXEC(GOTO CMDLBL(NEXT1))
0042.00
0043.00              IF         COND(&MBROPT *EQ '*NO') THEN(DO)
0044.00              SNDPGMMSG  +
0045.00                           MSG(' TO FILE MEMBER duplicate error, +
0046.00                             Please use *YES configure record again. ')
0047.00              GOTO       CMDLBL(END)
0048.00              ENDDO
0049.00              ENDDO
0050.00 /**/
0051.00              IF         COND(&TOMBR *EQ '*NONE') THEN(DO)
0052.00              RTVMBRD    FILE(&TLIB/&TFILE) SRCTYPE(&OBJT)
0053.00              MONMSG     MSGID(CPF3027) EXEC(GOTO CMDLBL(NEXT1))
0054.00              IF         COND(&OBJT *NE ' ') THEN(DO)
0055.00              SNDPGMMSG  +
0056.00                           MSG(' Having source file occasion, +
0057.00                            Please appoint source member name.')
0058.00              GOTO       CMDLBL(END)
0059.00              ENDDO
0060.00              ENDDO
0061.00 /**/
0062.00 NEXT1:
0063.00 /* LOG FILE CHECK */
0064.00              CHKOBJ     OBJ(&LLIB/&LFILE) OBJTYPE(*FILE)
0065.00              MONMSG     MSGID(CPF0000) EXEC(DO)
0066.00              CRTPF      FILE(&LLIB/&LFILE) RCDLEN(80) IGCDTA(*YES) +
0067.00                           TEXT('FTP LOG FILE')
0068.00              ENDDO
0069.00 /**/
0070.00              CLRPFM     FILE(QTEMP/FTPINP)
0071.00              MONMSG     MSGID(CPF0000) EXEC(DO)
0072.00              CRTPF      FILE(QTEMP/FTPINP) SRCFILE(QGPL/QFTPSRC) +
0073.00                           TEXT('FTP INPUT FILE') OPTION(*NOSRC *NOLIST)
0074.00                           ENDDO
0075.00 /**/
0076.00              IF         COND(&FROMMBR *EQ '*NONE') THEN(CHGVAR +
0077.00                           VAR(&FPARM) VALUE(&FLIB *TCAT '/' *CAT +
0078.00                           &FFILE))
0079.00              ELSE       CMD(CHGVAR VAR(&FPARM) VALUE(&FLIB *TCAT +
0080.00                           '/' *CAT &FFILE *TCAT '.' *TCAT &FROMMBR))
0081.00 /**/
0082.00              IF         COND(&TOMBR *EQ '*NONE') THEN(CHGVAR +
0083.00                           VAR(&TPARM) VALUE(&TLIB *TCAT '/' *CAT +
0084.00                           &TFILE))
0085.00              ELSE       CMD(CHGVAR VAR(&TPARM) VALUE(&TLIB *TCAT +
0086.00                           '/' *CAT &TFILE *TCAT '.' *CAT &TOMBR))
0087.00 /**/
0088.00              CALL       PGM(FTPGETR) PARM(&FPARM &TPARM &MBROPT)
0089.00 /**/
0090.00              CLRPFM     FILE(&LLIB/&LFILE) MBR(*FIRST)
0091.00              OVRDBF     FILE(INPUT) TOFILE(QTEMP/FTPINP) MBR(*FIRST)
0092.00              OVRDBF     FILE(OUTPUT) TOFILE(&LLIB/&LFILE) MBR(*FIRST)
0093.00              STRTCPFTP  RMTSYS(&RMTSYS) CCSID(897)
0094.00        DLTOVR FILE(INPUT)
0095.00        DLTOVR FILE(OUTPUT)
0096.00  END:        ENDPGM
        ****************** End of data **************************************** [/code:1:86709a72c4]

说明：CCSID:897表示日语对应场合。

4)CREAT TXT:FTPLOG

[code:1:86709a72c4] Columns . . . :    1  71           Browse                         LIU/QFTPSRC
SEU==>                                                                  FTPLOG
FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
0001.00 输出时文件将被送出.
0002.00 同时被指定的临时变更文件被读取.
0003.00 使用21端口,主机172.31.193.111在接线中......
0004.00 220-QTCP ** S65F6F8B.APPN.SNA.IBM.COM.
0005.00 220 C********* **** ***** ** **** **** **** 5 *******.
0006.00 请输入login ID (        )
0007.00 331 E**** ********.
0008.00 230 QPGMR ****** **.
0009.00 OS/400 ** *** ****** ********* ******. T** TCP/IP ******* ** "V4R2M0".
0010.00 250  N** ***** ****** ****** "0".
0011.00 257 "QGPL" ** ******* *******.
0012.00 FTP子命令
0013.00 > BINARY
0014.00 200 R************* **** ** ****** IMAGE.
0015.00 FTP子命令
0016.00 > NAMEFMT 0
0017.00 250  N** ***** ****** ****** "0".
0018.00 服务器 NAMEFMT 置为 0
0019.00 客户端 NAMEFMT 置为 0
0020.00 FTP子命令
0021.00 > GET COMTECLIB/QRPGSRC.MJI76R COMTECLIB/QRPGSRC.MJI76R
0022.00 Library- COMTECLIB File- QRPGSRC Member-
0023.00 MJI76R 已经存在.
0024.00 子命令.选项指定为REPLACE.
0025.00 FTP子命令
0026.00 > QUIT
0027.00 221 QUIT ********** ********.
        ****************** End of data **************************************** [/code:1:86709a72c4]

5)CREAT TXT:BATCHMBR

[code:1:86709a72c4] Columns . . . :    1  71           Browse                         LIU/QFTPSRC
SEU==>                                                                BATCHMBR
FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
0001.00 QPGMR QPGMR
0002.00 BINARY
0003.00 NAMEFMT 0
0004.00 GET FROMLIB/FROFILE.FROMMBR  TOLIB/TOFILE.TOMBR  (REPLACE
0005.00 QUIT
        ****************** End of data **************************************** [/code:1:86709a72c4]


6)CREAT CL:FTPGET:

[code:1:86709a72c4] Columns . . . :    1  71           Browse                         LIU/QFTPSRC
SEU==>                                                                  FTPGET
FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
0001.00              CMD        PROMPT(' FTP  Communication  Service ')
0002.00
0003.00              PARM       KWD(RMTSYS) TYPE(*CHAR) LEN(15) REL(*NE ' ') +
0004.00                           SPCVAL(('133.139.113.18') +
0005.00                           ('192.168.16.50') ('172.31.193.111')) +
0006.00                           MIN(1) MAX(1) PROMPT(' REMOTE SYSTEM ')
0007.00
0008.00              PARM       KWD(FROMFILE) TYPE(FROMFILE) MIN(1) MAX(1) +
0009.00                           PROMPT(' FROM  FILE ')
0010.00  FROMFILE:   QUAL       TYPE(*NAME) LEN(10) MIN(1)
0011.00              QUAL       TYPE(*NAME) LEN(10) MIN(1) +
0012.00                           PROMPT(' LIBRARY ')
0013.00
0014.00              PARM       KWD(FROMMBR) TYPE(*CHAR) LEN(10) +
0015.00                           SPCVAL((*NONE)) MIN(1) MAX(1) +
0016.00                           PROMPT(' FROM  MEMBER ')
0017.00
0018.00              PARM       KWD(TOFILE) TYPE(TOFILE) MIN(1) MAX(1) +
0019.00                           PROMPT(' TO  FILE ')
0020.00  TOFILE:     QUAL       TYPE(*NAME) LEN(10) MIN(1)
0021.00              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
0022.00                           SPCVAL((*LIBL)) PROMPT(' LIBRARY ')
0023.00
0024.00              PARM       KWD(TOMBR) TYPE(*CHAR) LEN(10) DFT(*FROMMBR) +
0025.00                           SPCVAL((*FRMMBR)) MIN(0) MAX(1) +
0026.00                           PROMPT(' TO MEMBER ')
0027.00
0028.00              PARM       KWD(MBROPT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
0029.00                           DFT(*NO) VALUES(*YES *NO) MIN(0) MAX(1) +
0030.00                           PROMPT(' RECORD CHANGE ')
0031.00
0032.00              PARM       KWD(LOGFILE) TYPE(LOGFILE) MIN(1) MAX(1) +
0033.00                           PROMPT(' LOG FILE ')
0034.00  LOGFILE:    QUAL       TYPE(*NAME) LEN(10) DFT(FTPLOG)
0035.00              QUAL       TYPE(*NAME) LEN(10) DFT(QTEMP) +
0036.00                           PROMPT(' LIBRARY ')
        ****************** End of data **************************************** [/code:1:86709a72c4]
[size=18:86709a72c4][color=blue:86709a72c4]2、编译顺序：[/color:86709a72c4][/size:86709a72c4]
1）编译FTPINP
2）编译FTPGETR
3）编译FTPGETC
4）用CRTCMD创建CL:FTPGET

CRTCMD CMD(LIB/FTPGET) PGM(LIB/FTPGETC)...

[size=18:86709a72c4][color=blue:86709a72c4]3、全部调试通过后，在OS/400上执行FTPGET，结果如下：[/color:86709a72c4][/size:86709a72c4]
[code:1:86709a72c4]
               FTP Communication Service (FTPGET)

Type choices, press Enter.

  Remote System  . . . . . . . .
  From File  . . . . . . . .                          名称
    Library . . . . . . . .                             名称
  From Member . . . . . . . .                           文字值, *NONE
  To File . . . . . . . . .                             名称
    Library . . . . . . . .     *LIBL                   名称, *LIBL
  To Member  . . . . . . . . .  *FROMMBR                文字值, *FRMMBR
  Record Change . . . . . . .   *NO                     *YES, *NO
  Log File . . . . . . . .      FTPLOG                  名称
    Library . . . . . . . .     QTEMP                   名称




                                                                         Bottom
F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display
F24=More keys                                                   [/code:1:86709a72c4]

[color=blue:86709a72c4]说明：
1、以上程序在OS/400 V5R2上编译通过；
2、FTPGET可以作为用户自定义的CL被其它程序直接调用，可提高用户编写相关程序的效率；
3、以上所提供的源码有些地方需要根据用户的实际环境进行修正后才能编译使用。[/color:86709a72c4]

QFTPSRC Library

xuguopeng 回复于：2003-12-16 10:08:59

过分了哈~ 总是搞出这么好的东西:)

cpxm 回复于：2003-12-16 11:13:10

精神可嘉，不过只能传递objtype为*file的文件，象*PGM之类的OBJ传递还是没有解决。

qingzhou 回复于：2003-12-16 12:54:54

[quote:5ed93a049d]不过只能传递objtype为*file的文件，象*PGM之类的OBJ传递还是没有解决。[/quote:5ed93a049d]

哈！CPXM兄弟：你有调试过吗。
不试试怎么知道行不行呢。

xuguopeng 回复于：2003-12-16 13:11:59

RPGiii太不爽了
0077.00 ** #RC
0078.00 TSS99 TSS99 我怎么写到这SEU界面通不过呢?

qingzhou 回复于：2003-12-16 13:22:48

我上次不是已经将qftpsrc.savf文件发到你邮箱中了吗？
直接导入编译不就OK啦！

xuguopeng 回复于：2003-12-16 13:28:15

靠~ 别提了,公司没400啊,我是在网上的400呢,没有FTP的权限,我只是想一边写一边看,会印象深点.
我现在用别人的PC,只能用GUEST登陆,WORD都用不了的,还好可以上网.
RPGiii格式太恶了

cpxm 回复于：2003-12-16 13:43:48

[quote:0208d5a1f4="qingzhou"]我上次不是已经将qftpsrc.savf文件发到你邮箱中了吗？
直接导入编译不就OK啦！[/quote:0208d5a1f4]

也请发一份给我，邮箱是cpxm@163.com，谢谢！

qingzhou 回复于：2003-12-16 13:47:47

NO PROBLEM！

andrewleading_he 回复于：2003-12-31 14:51:30

[quote:4cc7883b08="qingzhou"]NO PROBLEM！[/quote:4cc7883b08]

請給我也發一份。
我的MAIL : andrewleading_he@hotmial.com
or andrew_he@leadingtech.biz

謝了！

andrewleading_he 回复于：2003-12-31 14:53:45

[quote:eb12a03995="qingzhou"]NO PROBLEM！[/quote:eb12a03995]

fairyboy 回复于：2005-07-02 15:49:15

那么能实现ＰＣ端的文本文件传送到４００端的某个ＰＦ的功能吗？

qingzhou 回复于：2005-07-02 22:55:22

[quote:74fc61be55="fairyboy"]那么能实现ＰＣ端的文本文件传送到４００端的某个ＰＦ的功能吗？[/quote:74fc61be55]
RUNRMTCMD可以支持从AS/400端执行PC端程序：
[b:74fc61be55]RUNRMTCMD CMD('C:\Program Files\IBM\Client Access\cwbtf.exe /f
') RMTLOCNAME('*.*.*.*' *IP) RMTUSER(user) RMTPWD(password)[/b:74fc61be55]

另外，还可以先执行strpco,接着strpccmd。

自行测试看看。

stephenxie2003 回复于：2005-07-04 17:44:20

我也要一份,谢谢!^_^

大肥肥回复于：2005-07-27 11:30:35

关于在AS400之间传送数据，我个人喜欢用STRTCPFTP.
1. STRTCPFTP + F4
2.输入目标机器的IP地址，然后提示登陆，输入目标机器用户名字，密码。
3. 输入BINARY，这样即使有中文，也不会导致乱码。
4. PUT LIB/FILE(MUMBER) LIB/FILE(MUMBER)
GET LIB/FILE(MUMBER) LIB/FILE(MUMBER)

qingzhou 回复于：2005-07-27 11:53:56

方法有很多种，如果本地环境的OS/400的版本比较高的话，也可以借助ObjectConnect/400来实现双机传输数据，具体参考这个帖子：
《利用ObjectConnect/400功能在不同的iSeries之间实现快速对象移动》
http://www.chinaunix.net/jh/10/435206.html

我这个FTPGET作为工具，目前使用在集团内部子公司向总公司开发机上下载新版本的ERP数据时所采用，是个很实用的工具，有时间可以在本地环境测试放心使用。