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

2019.05.29

ソースファイルをコピーする
事前にIFSに「/xxxx/QCLSRC」ディレクトリーを作成してください。
xxxxは対象ライブラリー

PGM                                                                    
            DCLF       FILE(QAFDMBR)                                   
            DCL        VAR(&TOSTMF)     TYPE(*CHAR) LEN(70)            
                                                                       
            DSPFD      FILE(xxxx/QCLSRC) TYPE(*MBR) +                 
                       OUTPUT(*OUTFILE) OUTFILE(QTEMP/QAFDMBR)         
            OVRDBF (QAFDMBR) (QTEMP/QAFDMBR)                           
                                                                       
LOOP:       RCVF                                                       
            MONMSG     MSGID(CPF0864) EXEC(GOTO END)                   
            CHGVAR     VAR(&TOSTMF) VALUE('/xxxx/QCLSRC/' || &MBNAME) 
            CPYTOIMPF  FROMFILE(xxxx/QCLSRC &MBNAME) +                
                       TOSTMF(&TOSTMF)               +               
                       STMFCODPAG(943) RCDDLM(*CRLF) STRDLM(*NONE)     
            GOTO LOOP                                                  
END:        ENDPGM

PGM

DCLF FILE(QAFDMBR)

DCL VAR(&TOSTMF) TYPE(*CHAR) LEN(70)

DSPFD FILE(xxxx/QCLSRC) TYPE(*MBR) +

OUTPUT(*OUTFILE) OUTFILE(QTEMP/QAFDMBR)

OVRDBF (QAFDMBR) (QTEMP/QAFDMBR)

LOOP: RCVF

MONMSG MSGID(CPF0864) EXEC(GOTO END)

CHGVAR VAR(&TOSTMF) VALUE('/xxxx/QCLSRC/' || &MBNAME)

CPYTOIMPF FROMFILE(xxxx/QCLSRC &MBNAME) +

TOSTMF(&TOSTMF) +

STMFCODPAG(943) RCDDLM(*CRLF) STRDLM(*NONE)

GOTO LOOP

END: ENDPGM

FTPでダウンロードする(PCのコマンドプロンプトから実行)

FTP
BIN
PROMPT *OFF
MGET /XXXXXX/QCLSRC/*

FTP

BIN

PROMPT *OFF

MGET /XXXXXX/QCLSRC/*

古い記事へ新しい記事へ