最後のイベント、問題なく

本日、本番環境への移行、及び移行後の走行確認を行い、問題なく終了した。
予定が早まることも考え午後２時に出勤して待機したが、実際には逆に予定より遅く、始めたのは六時半ころだった。

始めは暇であったので、ドキュメントメディアの入れ替えのためのＶＢＡのツールの整備を行った。
昨日の帰り際に、ツールプログラムの整備をしているうちに、反っておかしくなってしまったのが、今日の出勤の電車の中で考えたら見当がつき、行ってから調べたらすぐにわかって解決できた。

リカーシブ構造のプログラムで、レベルごとの使用変数の定義を始めは宣言なしで使用していたのを宣言ありにしたのだが、複数のサブで使用しているループ制御変数をモジュールレベルにしてしまったために、リカーシブのレベル間での共通変数になってしまった訳だ。
サブ内でも宣言することによりサブ内レベルの変数となり、前のように動作するようになった。
さらに入れ替え処理も作ったので、あとはこれを生かして、入れ替え作業を行っていくだけだ。