ソースファイルを一括でUploadする

2019.05.27

1. アップロードしたいソースメンバーを特定フォルダーに格納する
2. AS上に一時ライブラリーを作成
3. FTPでアップロード

LCD C:\TEST
CD FTPTEST
QUOTE TYPE C 943
PROMPT
MPUT *

LCD C:\TEST

CD FTPTEST

QUOTE TYPE C 943

PROMPT

MPUT *

4.　一時ライブラリーより該当のソースファイルへコピー

PGM PARM(&SRC)                                                             
             DCL        VAR(&SRC) TYPE(*CHAR) LEN(10)                      
             DCLF       FILE(QTEMP/OUTMBR)                                 
             DSPFD      FILE(FTPTEST3/*ALL) TYPE(*MBRLIST) +               
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/OUTMBR)           
LOOP:                                                                      
             RCVF                                                          
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))              
             CPYF       FROMFILE(FTPTEST3/&MLFILE) TOFILE(RFCSRC/&SRC) +   
                          FROMMBR(*FIRST) TOMBR(&MLFILE) MBROPT(*ADD) +    
                          FMTOPT(*CVTSRC)                                  
             GOTO LOOP                                                     
END:

PGM PARM(&SRC)

DCL VAR(&SRC) TYPE(*CHAR) LEN(10)

DCLF FILE(QTEMP/OUTMBR)

DSPFD FILE(FTPTEST3/*ALL) TYPE(*MBRLIST) +

OUTPUT(*OUTFILE) OUTFILE(QTEMP/OUTMBR)

LOOP:

RCVF

MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

CPYF FROMFILE(FTPTEST3/&MLFILE) TOFILE(RFCSRC/&SRC) +

FROMMBR(*FIRST) TOMBR(&MLFILE) MBROPT(*ADD) +

FMTOPT(*CVTSRC)

GOTO LOOP

END:

古い記事へ新しい記事へ