使用IBM iSeries Access for Windows自动下载源代码

发布于 2022-10-15 04:52:30 字数 20658 浏览 17 评论 0

在下载源代码的时候，大多数人是使用FTP的，但是在一些系统环境下面是关闭或者没有FTP用户或者权限的情况下。
同样可以使用程序进行批量下载。不解释，直接上代码，有问题再回答。

注意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 里面的设定
I Series File name:YOULIB/DS001F
PC File name:c:\DS001F.DTF

PFS001F

A R DS001R
A DS001 140

里面的数据，注意顺序。

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