2010-11-25から1日間の記事一覧

SELECT命令一括実行ツールのプログラム例(3/3)

IBM eSever iSeries専用。RPGとCLPから構成。 (3)プログラム名:EXSQ30C タイプ:CLP PGM PARM(&POUT) DCL VAR(&POUT) TYPE(*CHAR) LEN(1) DCL VAR(&WSID) TYPE(*CHAR) LEN(10) DCL VAR(&USER) TYPE(*CHAR) LEN(10) DCL VAR(&NBR) TYPE(*CHAR) LEN(06) DC…

SELECT命令一括実行ツールのプログラム例(2/3)

IBM eSever iSeries専用。RPGとCLPから構成。 (2)プログラム名:EXSQ20R タイプ:RPG H Y/ 1 FQCLSRC IF E DISK F QCLSRC KRENAMEDBREC F KINFDS W#INFO FEXSQDT IF E DISK A UC F EXSQDT KRENAMETXREC ITXREC 99 I SRCDTA A133 I*レコード数 IW#INFO DS …

SELECT命令一括実行ツールのプログラム例(1/3)

IBM eSever iSeries専用。RPGとCLPから構成。 (1)プログラム名:EXSQ10C タイプ:CLP PGM PARM(&PLIB &PSRC &PMBR &PCTL) DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) DCL VAR(&PSRC) TYPE(*CHAR) LEN(10) DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) DCL VAR(&PCTL) TY…

SELECT命令を一括実行するツールを作成してみた(RPG,OS/400)

わたしは今は、レガシーシステムの保守運用の仕事をしている。それは80年代の終わりに登場したIBM AS/400シリーズの流れのeSever iSeriesマシン構成上に、2000年頃に本番稼動したシステムだ。OSはi5/OS (OS/400)。 開発言語はRPG(※)。くわしくいうと、シス…