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

お客様から、要望を頂いてプログラムソースを分析する前
動作させてみて現状を確認
すると・・・・たった一か月の資料を出すためにかなり時間がかかる

詳しくは、前のブログを参照してください一回目の結果を捨てる理由
そこで、どんなデータベースのアクセスをしているのか？
内部ロジックは何なのか？
それを重点的に調べました。すると

一つ目は前回のブログでお話しした通り、【データベースのベタ読み】
これは、これで愚の極みなんですが・・・（プロレベルでは）

しかし、もう一つが、理解不能なロジック
この難解なロジックをずーーーっと見ていても
このコーディングをしたＳＥの意図が理解できない

もしかして、僕ってベテランＳＥと思っていたのに実はバカ？
そう自虐的に思えるほどさっぱりわからない
そのコードはこうなんです

これは、RPG4 固定形式の記法なので分かりにくいと思うので
RPG4 フリー形式に書き換えたのがこちら


これよりかは VBAの記法で書いたらこう


どうです？
めちゃくちゃ意味不明でしょ

これが、ソフトウェアハウスが書いたコードなんです
つまりお金をもらってプログラムを作るプロフェッショナルが書いたコード
これに意味がないなんて思えないですよね

でも、どう考えても理解できません

つまりこんな感じです
私が生物でありコンクリートを食べないか、もしくは私が生物でなくコンクリートを食べないならば
＜処理するんだー＞
って事なんですね

これって、処理する条件には、私が生物であろうがなかろうがコンクリートを食べなきゃいいんだってことになろうかと・・・

なんで、わざわざ、私が生物であるかどうかを条件に組み込んでいるのか・・・・
不思議で仕方がありませんでした

そして、いろいろ論理式での展開や、ベン図（ご存じ？）での検証とかを行い、たどり着いた結論
作ったやつがへぼ過ぎる
良くこんなコードを顧客に納品して恥ずかしくないもんだね

例えて言えば、例えて言えば・・・・たとえて言えば・・・・


例えられなーい！　酷すぎて
結局、コンクリートを食べないならばだけにしてプログラムを書き換えたところ
印刷出力した結果は全く同じ
しかも、速度は、前回お話しした通り

プロの仕事は、大阪から東京まで最速で移動したい顧客に対して
新幹線や飛行機をお勧めせず、各駅停車の在来線で乗り継いでいったら最速ですよー
って感じの納品をしている

そんなの納品されて黙っていられますか？（笑）
まぁ、そのプロのソフトウェアハウスを紹介したのが、当社だってことを聞いているので
口が裂けてもお客様にそんな事はばらせませんが・・・・

（多分、私のブログの読者にはお客様は居ないと・・・
居たとしても、まさか自分の事だと気付かないと・・・信じたい（笑））




人気ブログランキング

IBM AS/400でのプログラムやプロシージャなどの動作について
記憶装置は全て主記憶（Windowsでは主記憶の一部にページング用メモリ）をシミュレート
つまりＣＰＵからは、全てのＯＳ・プログラム・データベースなどは主記憶にあるように見える

当然、ＡＳ／４００にもＨＤＤやＳＳＤは存在する
それらは、主記憶の一部を構成する
（えっ？それって遅いんじゃない？）そんな声が聞こえてきそう（笑）

でも、そのように見せるため仕組みが・・・賢い（笑）
もちろん、主記憶全部がメモリであるわけはない

最近では、補助記憶部分の全てをＳＳＤで構成することも行われているが
ＳＳＤと言えども主記憶メモリの速度に比べたらかたつむり

なので、主記憶のうちメモリ部分とＨＤＤやＳＳＤとの間のデータ転送は必要
これはページングとかメモリスワッピングとか呼ばれる

なので、あるプログラムを起動すると
１回目から早い場合もあり、遅い場合もある
主記憶のうち、メモリ上にある場合は早く、ＨＤＤやＳＳＤ上に有れば遅い

それはWindowsでも同じ
ただ・・・・
IBM i というOSがメモリ管理しているわけではない

IBM i というＯＳが全てのジョブ、全てのプロセスを管理しているため
主記憶のメモリ上に読み込んでこなければならないオブジェクト（プログラム、データベースなどもろもろ）を全て知っており
全てのジョブがどのデータベースを使用しているかを把握

効率よいページングを行っている

いろいろなジョブで良く使われるプロシージャとかデータベースは
恐らくいつもメモリ上に存在しているから２回目以降は極端に早くなる

また、データベース機能が素敵だから
インデックスを張った場合、必要なレコードだけがメモリ上に展開されたりと
プログラムが最高に早く動作できる環境を提供してくれている

そして、冒頭に話したページング・・・これを
ＩＢＭ　ＡＳ／４００ではハードウェアで行っている
ＣＰＵがしているわけではない

なので、ＣＰＵはブログラムを実行するだけ
その実行に必要な全てのオブジェクトはハードウェアが用意してくれる
このため、めちゃ早になる

前職での話
グループ他社が前職のシステムをWindowsベースで開発すると・・・
どうやら親会社が自分とこのシステムを前職の会社に導入させようとした
そこで、要件定義をするとき、処理時間も加えた

これからが大変だった
処理速度が３分以上のプログラムを探すというとんでもない業務が降りかかってきた

２週間ぐらい探しまくったが、見つからなかった
プログラム本数は３，０００本ほど

仕方なく、オーディエンスを行った(笑)
現場の方に、遅い処理に何があるか聞いてみた

結果、１個のプログラムが候補に挙がった
それで試してみると、結果がでるまで３分１９秒
（これで細工（サイク＝３１９）は流々と思ったので覚えてる(笑)）

ところが、２回目以降に時間が短縮される事を思い出し
同じプログラムをもう一度起動してみた・・・・

悲しいことに３秒程度で終わってしまった
と、いうことで３分以上時間がかかる処理は
・夜間バッチ（これはWindows化対象外）
全報告書印刷出力ジョブなので３０分はかかる
・請求明細作成（これもWindowsか対象外）
全顧客の一か月分の請求明細を作成するため３分半はかかる
のみ（笑）

どんだけ早いねん！と思ってた




人気ブログランキング

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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







人気ブログランキング



" allowfullscreen>