ＩＢＭ　ＡＳ４００とパソコンを愛するＳＥのブログ

お客様のシステムプログラムの改修が必要となった
どうやら、大した改修でもなさそう

売り上げた月に請求せず、次月請求となる販売があり
その場合に印刷された日付が請求日となっているが
これは売上日でなければならないというもの

つまりプログラムの中で、請求日を印刷している部分を
売上日にすればいいと・・・・
そして、データベースには両方とも存在し、ソース中には両方ともある

しめしめ
これは、とても簡単！　フィールド名を１か所変えればＯｋ
と、言う事でフィールド名を変更し、コンパイル

いざ、テストだ！
まずは変更前のプログラムで実行してみる

なんだか、結果を得るための時間がえらく長い
高々３０万レコードから目的の１か月分を処理するのに３０秒以上
１秒に１万レコードしか処理できないって・・・

爆遅〜〜〜
ＩＢＭ　ＡＳ／４００でこれほど遅いのは見たことがない
って言うか、前職で数億レコードから１か月分の１５００万レコード
これを処理する請求明細作成処理で４分弱だったことを覚えている

４分として計算しても、６万／秒程度の処理速度
しかも、請求額を計算する時にそれの数十倍のマスターアクセスもしていた
それに比べると・・・・

どうしてこんなプログラム構造にしているのか・・・・
ＲＰＧサイクルを使用したいがために、系の処理速度を著しく落としている
処理速度低下の原因の一つが・・・べた読み

ありえへん！　プロの仕事じゃない！
いやいや、アマでもこれほどいい加減なコーディングはしない

まぁ、開発当初は１秒程度で済んでたんだろう（笑）
しかし、レコード数の増大を考えにいれていないのは素人さん

そこで、改修要件には入っていないが、改修しちゃった(笑)
あくまで、テストのため、毎回３０秒も待たされるのは地獄の苦痛

文書化も含めて、変更にかかった時間は・・・約１０分
いざ、テスト（笑）
ＩＢＭ　ＡＳ／４００のプログラム処理速度を測定する時は
１回目を捨てて、２回目以降の３回の処理時間を計測　（何故かは次回に！）

一回目：３１秒
二回目：３１秒
三回目：３１秒
あれっ？　ちなみに、ゼロ回目・・・本来捨てるはずの計測結果も３１秒
納得の結果になった（笑）　どれだけ無駄な動作をしてるんだろう

データベースにインデックスを張っただけ
（ＡＳ／４００的に言うと論理ファイルを作成しただけ）
そして、プログラムで元のデータベースの名前を論理ファイルの名前に変更しただけ

これだけなら１分だけど、残りの９分は・・・
悩んだーーー
何で悩んだかは、次々回に（笑）　（これでブログネタが増えた）

高速化の結果
一回目：１秒未満（笑）
二回目：１秒未満
三回目：やっぱり１秒未満

なぜ１秒未満かというと、スマホのストップウォッチで測ったけど
スタートのためのタップを左手人差し指でやったから、正確に測定できなかったΣ(￣ロ￣lll)ｶﾞｰﾝ
だって、プログラムを起動させたら、すぐに終了していたから

もちろん、テストをした結果は全く同じ印刷結果が得られたことは言う間でもない
（請求日のところは売上日にはなっていたけどね）

プロと言えど、ヘタレはいる
なんと言えば良いのか分からない

原因が分かった時には空いた口が塞がらず、気分転換しなければ
改修業務をそのまま継続できなかった（笑）

まさかデータベースのべた読みなんて（笑）
ＡＳ４００の機能性能を無視してこんな作り方をするから

でも、まあＡＳ４００だから３０秒程度で済んでたのかも（笑）
このお客様のシステムにより
お客様の被った不利益は・・・時間的損失は・・・

１回当たり３０秒だけど、このプログラムに限った事ではない
これに類することを１日５０回するとして、
１日当たり１５００秒　＝２５分
１か月あたり　　　　　≒１０時間
１年あたり　　　　　　≒１２０時間

時給１０００円（安っ！）で換算すると　１２万円

このヘタレのおかげで毎年１２万円の損失を与えていたことになる

ちなみに・・・タイトルの悩んだのは次々回に述べる事であるので念のため（笑）







人気ブログランキング



" allowfullscreen>