
平臺(tái) 論壇博客文庫

› 論壇 › 操作系統(tǒng) › AS400 › 使用IBM iSeries Access for Windows自動(dòng)下載源代碼

使用IBM iSeries Access for Windows自動(dòng)下載源代碼 [復(fù)制鏈接]

HAPPY潛龍

家境小康

論壇徽章:: 0

電梯直達(dá)

1樓 [收藏(0)] [報(bào)告]

發(fā)表于 2011-06-08 16:29 |只看該作者 |倒序?yàn)g覽

在下載源代碼的時(shí)候，大多數(shù)人是使用FTP的，但是在一些系統(tǒng)環(huán)境下面是關(guān)閉或者沒有FTP用戶或者權(quán)限的情況下。
同樣可以使用程序進(jìn)行批量下載。不解釋，直接上代碼，有問題再回答。

注意

C需要安裝IBM iSeries Access for Windows
   速度沒有FTP快。
PGM PARM(&LIBRARY)
         DCL       VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
         DCL       VAR(&MBLIB)  TYPE(*CHAR) LEN(10)
         DCL       VAR(&MBFILE) TYPE(*CHAR) LEN(10)
         DCL       VAR(&MBNAME) TYPE(*CHAR) LEN(10)
         DCL       VAR(&MBSEU2) TYPE(*CHAR) LEN(10)

         DCLF    FILE(WORKFILE) RCDFMT(QWHFDMBR)

         CLRPFM    FILE(WORKFILE)
         DSPFD    FILE(&LIBRARY/*ALL) TYPE(*MBR) +
                     OUTPUT(*OUTFILE) OUTFILE(WORKFILE)
NEXT:    RCVF    RCDFMT(QWHFDMBR)
         MONMSG    MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))

         IF       COND(&MBSEU2 *NE ' ' *AND &MBSEU2 *NE 'LF' +
                     *AND &MBSEU2 *NE 'PF') THEN(DO)

         CALL    PGM(DSR) PARM(&MBLIB &MBFILE &MBNAME &MBSEU2)

   /*----------------------------------------------------------*/
      STRPCO
      MONMSG    MSGID(CPF0000)
      RMVMSG    PGMQ(*SAME) CLEAR(*ALL)
      STRPCCMD PCCMD('C:\PROGRA~1\IBM\CLIENT~1\RTOPCB +
                     C:\DS001.dtf')
      STRPCCMD PCCMD('C:\PROGRA~1\IBM\CLIENT~1\RTOPCB +
                     C:\DS001F.dtf')

   /*----------------------------------------------------------*/

         ENDDO

         GOTO    CMDLBL(NEXT)
ENDPGM:
         ENDPGM

FDS001F  UF  E                   DISK
I             'FROM       '       C       C0001
I             'D:\TEST\ '       C       C0002
C*****************************************************************
C*****************************************************************
C*
C          *ENTRY PLIST
C                   PARM          MBLIB  10
C                   PARM          MBFILE 10
C                   PARM          MBNAME 10
C                   PARM          MBSEU2 10
C*
C                   MOVE *BLANKS C80 140
C                   MOVELC0002    C80
C                   MOVE '.txt' EXT    4
C          C80    CAT  MBLIB:0 C80
C          C80    CAT  '.':0    C80
C          C80    CAT  MBFILE:0  C80
C          C80    CAT  '.':0    C80
C          C80    CAT  MBNAME:0  C80
C          C80    CAT  '.':0    C80
C          C80    CAT  MBSEU2:0  C80
C          C80    CAT  EXT:0    C80
C                   Z-ADD1       II    30
C                   READ DS001R                88
C          *IN88    DOWEQ*OFF
C                   SELEC
C          II       WHEQ 3
C                   MOVEL*BLANK DS001
C          C0001    CAT  MBLIB    DS011  22
C          DS011    CAT  '/':0    DS001
C          DS001    CAT  MBFILE:0  DS001
C          DS001    CAT  '(':0    DS001
C          DS001    CAT  MBNAME:0  DS001
C          DS001    CAT  ')':0    DS001
C                   UPDATDS001R
C          II       WHEQ 8
C                   MOVELC80    DS001
C                   UPDATDS001R
C                   LEAVE
C                   ENDSL
C                   ADD  1       II
C                   READ DS001R                88
C                   ENDDO
C*
C                   MOVE *ON    *INLR
C*

DS001.DTF 里面的設(shè)定
I Series File name:YOULIB/DS001F
PC File name:c:\DS001F.DTF

PF

S001F

A       R DS001R
A          DS001       140

里面的數(shù)據(jù)，注意順序。

TRTOPC

FROM
SELECT    *
WHERE
ORDER BY
3
D:\TEST\
1322
13211 661

22
JOIN BY
GROUP BY
HAVING
SYSTEM    192.168.1.54
OPTIONS    2:-.HMSYMDN11

HP LaserJet 2100
winspool
\\pc150\hp2100
1
10
6
0
SQLSEL
HTML       000 2 2  1  1  1  10000000000100000000100001000003006160010
HCSET    big5
HTITLE
HCTEXT
PROPS    000110