2012-06-18

プロセス監視

「システムは止めてはならない」

どのようなシステムもそうですが、
証券システムはその最たるものです

トレーダーはその瞬間の売買、1秒1秒を勝負していますから
システムが止まって売買ができなければ損を被るわけです

システムの可用性を語る時に
プロセス障害時のフェイルオーバーの仕掛けが必要になってきます

Serviceguardのような製品でパッケージを組んでフェイルオーバーすることもあれば・・・

http://h50146.www5.hp.com/products/software/oe/hpux/component/ha/serviceguard.html

監視用シェルを用意して障害の検知及びフェイルオーバーを仕掛ける場合もあります

監視用シェルは監視対象のプロセスとは別サーバーに配置します

なぜなら、プロセスの障害のうちサーバー障害などのH/W障害が起因の場合
監視用シェルも同様にダウンしてしまうからです

監視用シェルの大まかな仕掛けとしてはこんな感じでしょうか

(1)pingでサーバー疎通確認
(2)remshでpsコマンド等を実施して監視対象のプロセスの起動を確認
　⇒バックグラウンドでremshを実行する場合、
　　監視シェル側でremshが完了したかを確認する
　　一定時間remshが終わってなければ問題があるため障害とする
(3)(2)確認結果から障害か否かを判断
　⇒障害であれば待機系フェイルオーバーさせる

製品の導入が一番確実ですが、
なかなか高価なものなのでどこにでも導入するというのは現実的ではないですね

2012-06-05

ITに詳しい顧客

顧客企業のシステム部門のある程度の年次の人は
若手SEよりもITに詳しいことが多々あります

若手SEよりもシステムに長く携わっていれば
顧客の方がITに詳しくても仕方がない部分はあります

とはいえ、「顧客の方がITに詳しい」という事実を
「仕方がない」で受け入れることは中々難しいようで、
そういった顧客からの質問や疑問に
すぐに答えられなかった自分に引け目を感じて
ドッと疲れてしまう・・・

お恥ずかしながら私はよくあります

では、どうするのか

「ITに劣っている自分が顧客のために何ができるのか」
そこを考えて行動することです

顧客よりITのスキルが劣っているのが現状であり、
一朝一夕で差が埋まるようなものでもありません

それは仕方がない現実です

であるのであれば、
顧客の希望を汲み取り、
調べてでも聞いてでも全力でそれに応じることは
若手だろうができることです

立ち回った結果
時には間違った回答をしてしまうこともあります

ITに詳しい顧客に先に解決策をもらってしまうこともあります

間違った時には
謝れば良い
正しい回答を伝えれば良い

顧客に解決策をもらったら
お礼を言えば良い
今度は先に解決策を出せるように精進すれば良い

「顧客のために真摯に行動できているか」
そこが一番重要だと感じています

2012-05-31

【VBA】UTF-8のBOM取り

職場ではソース管理とドキュメント管理に
Apache Subversionを利用しています

Apacheには主に認証とログ出力の役割を持たせています

認証自体は外部のドメインコントローラが行い、
認証後の権限はテキストファイル(svnaccessfile)で制御しています

svnaccessfileには権限を設定するリポジトリパスと、
そのパスに対してユーザーに与える権限を記述します

この時、Excelにてユーザー名やリポジトリ名・権限を記載し、
svnaccessfileを出力するようなマクロを利用しています

このsvnaccessfileは文字コードがUTF-8でなければいけないため、
マクロによるテキスト出力はADODBオブジェクトを利用して行っています
(TextStreamオブジェクトではUTF-8は出力できません)

しかし、ただUTF-8にするだけでは正常に作動せず、
BOM(エンディアンを判別するための先頭3バイトのマーク)を削除する必要があります

実装はこのような感じで行いました

- - - - -

Private target_txt As Object
Private result_txt As Object

'オブジェクト作成
Set target_txt = CreateObject("ADODB.Stream")
Set result_txt = CreateObject("ADODB.Stream")

〜〜〜〜省略〜〜〜〜

'''BOM削除'''

target_txt.Position = 0 'ファイルの先頭に戻る
target_txt.Type = 1 'テキストからバイナリへ変更
target_txt.Position = 3 'BOMのサイズ分位置をずらす
result_txt.Type = 1 'テキストからバイナリへ変更
result_txt.Open
result_txt.CopyTo result_txt '結果出力ファイルへBOMを抜いた部分をコピー

'ファイル保存
result_txt.SaveToFile "ファイル名" 2