DBMOTOLIB Libraryの手動での作成方法（AS/400)【リアルタイムレプリケーションツールDBMoto】

投稿日: 2007年4月19日 作成者: climb
このエントリーをはてなブックマークに追加
LINEで送る

DBMOTOLIB Libraryの手動での作成方法

本来、DBMOTOLIB Libraryは自動的に作成されるのですが
何らかの理由で自動作成されない場合、下記の手順にしたがって下さい。

１　．DBMotoの２つのsavefileの存在を確認して下さい。
　　　※格納場所：C:Program Files_HiT Software_DBMoto V6ServerFiles

２　．DBMLIB43.SAVFとDBMLIB51.SAVFのファイルが存在しており、
　　　ローカルPC(e.g., C:DBMLib)にSAVEFileを退避してください。
　　　※OS Ver.V4R3を使用している場合：DBMLIB43.SAVF
　　　　OS Ver.V5R1を使用している場合：DBMLIB51.SAVF

３　．DOSプロンプトを実行して、ファイル退避したディレクトリに移動して下さい。
　　　※(e.g., C:>cd C:DBMLib)

４　．iSeries/AS400 IP addressのFTPセクションに接続してください。
　　　※(e.g., C:/DBMLib>ftp 111.111.1111.111)

５　．更新権限のあるユーザかQSECOFRで、iSeries/AS400に接続してください。

６　．iSeries/AS400のQGPLディレクトリに移動して下さい。
　　　※(e.g., ftp> cwd QGPL)

７　．iSeries/AS400のQGPLディレクトリにSavefileを作成して下さい。
　　　※(ftp> quote rcmd crtsavf file(QGPL/DBMLIBSAVF) AUT(*ALL))

８　．BINARY modeに変更して下さい。
　　　※(e.g., ftp> bin)

９　．ローカルPC(e.g., C:DBMLib)に格納されているSAVEFILEを
　　　iSeries/AS400のQGPLディレクトリに移動します。
　　　※(e.g., ftp> put DBMLIB43.SAVF dbmlibsavf)

１０．DBMLIBSAVFをリストアーします。
　　　※(e.g.,ftp> quote rcmd rstlib savlib(DBMOTOLIB) dev(*savf) savf(qgpl/dbmlibsavf))

１１．DBMLIBSAVFを削除します。
　　　※(e.g., ftp> quote dele DBMLIBSAVF)

１２．ＦＴＰをクローズします。
　　　※(e.g.,ftp> quit)

１３．最後に、iSeries/AS400にDBMOTOLIB.JRNSQNMストアードプロシジャーを作成します。

【作成コマンド】
コマンドは、バージョンによって２通りあります。
【バージョンV5R0M0以前の場合】

CREATE PROCEDURE DBMOTOLIB.JRNSQNM
(IN JOUR CHAR(10),
IN JLIB CHAR(10),
IN FNMS CHAR(900),
IN JDAT CHAR(8),
IN JTIM CHAR(6),
INOUT NUMSEQ DECIMAL(10,0),
INOUT RECVR CHAR(10),
INOUT LIBRCV CHAR(10),
OUT LSTSQN DECIMAL(10,0),
OUT LSTRECVR CHAR(10),
OUT LSTLIBREC CHAR(10),
OUT FLAG CHAR(1),
OUT CODC CHAR(7),
OUT MSGG CHAR(100))
LANGUAGE CL SPECIFIC DBMOTOLIB.JRNSQNM
NOT DETERMINISTIC
NO SQL
EXTERNAL NAME ‘DBMOTOLIB/JRNSQNM’
PARAMETER STYLE GENERAL

【バージョンV5R0M0以降の場合】

CREATE PROCEDURE DBMOTOLIB.JRNSQNM
(IN JOUR CHAR(10),
IN JLIB CHAR(10),
IN FNMS CHAR(900),
IN JDAT CHAR(8),
IN JTIM CHAR(6),
INOUT NUMSEQ DECIMAL(10,0),
INOUT RECVR CHAR(10),
INOUT LIBRCV CHAR(10),
OUT LSTSQN DECIMAL(10,0),
OUT LSTRECVR CHAR(10),
OUT LSTLIBREC CHAR(10),
OUT FLAG CHAR(1),
OUT CODC CHAR(7),
OUT MSGG CHAR(100))
LANGUAGE CL SPECIFIC DBMOTOLIB.JRNSQNM
NOT DETERMINISTIC
NO SQL
CALLED ON NULL INPUT
EXTERNAL NAME ‘DBMOTOLIB/JRNSQNM’
PARAMETER STYLE GENERAL

関連したトピックス