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

視線をパソコン画面に移したら、左上にいつもとは違うものが・・・


こんなところにいたのかぁ
部屋に入って来た時［にゃっ］って声が聞こえたかと思ったら（笑）

いやいや、部屋のドアを閉めた時に［にゃっ］だったから
きっと、［部屋のドアを閉めたら僕が出られなくなるから締めないで］って意味

と、言う事で開けときました(*^▽^*)

社長との面談があり、持ち時間より数分超過した時間、色々と話しました
まぁ、気落ちする必要は全くない・・・という事が分ったので一安心
ただ、私も気を付けなけれはならないことがあると言う事ですね

昨晩は、午後１０時１０分にソファーの上に横になってたのは記憶にあり
今朝、午前４時３０にソファーの上で目覚めたのは覚えています
なので、まるまる６時間以上寝てたことになります

今日は頭すっきりでガンガンに仕事出来るかも〜〜〜
周りでガヤガヤされても集中力を持続出来たら効率が上がる

がんばるぞー




人気ブログランキング

朝6時45分に目が覚めた
まだ寝れる！そう思って二度寝した
次に7時ちょうどに目が覚めた

起きたのは2回ともアラームで起きた
7時に起きた時『何で土曜日で会社が休みなのにアラームをかけたんだろう』と、思いまた寝ようとした！

もしかしたら7時10分とかにアラームをセットしているかもしれない
また起こされるのは敵わない
そう思ってスマホを確認（笑）

スマホを確認すると日付の右に火という文字が
ようやく寝ぼけていた 頭がすっきりし
『やべ！』と叫んで飛び起きた（笑）

これはもう昨日の件が影響しているな！
明らかに 登校拒否………ならぬ出社拒否症候群だ〜！
やばいやばい！
そんなごっちゃ日銭を稼げない！
頑張って働かにゃ（笑）




人気ブログランキング

私は、前職で基幹システムをほぼ１から作った
臨床検査を基幹業務とする年商５０億程度の企業でだ
毎年２〜３個のペースでサブシステムも新規追加

その中には勤怠管理システムや入退館管理システムもあった
これってＳＥ（システムエンジニア）だよね
私はＳＥだと思っていた

５月１３日（月曜日）
部の会議で、ある工程の１部分以外のミーティングには参加しなくてもいいと
そう言われた

システムを構築する場合、前後のつながりが分れば
なお良いシステムを構築できる
そんなことは常識の範疇だ

それを責任者が知っているならば
私は単なるプログラマーになったと言う事だ

これは、大工の棟梁から１作業員にされた・・・みたいな感じ
プライドのある自称システムエンジニアとしては
前職でもらったきつい言葉［新しいことをしてはならない］の次に辛い言葉

こころの中で、オフコースの「さよなら」って歌がぐるぐる回り始めた
♬　もう　終わりだね〜　♬

システム部門に限らず、どんな組織でもリーダーの良し悪しで組織良し悪しが決まる
良い所が見つかるまで転々とするしかないのかな？




人気ブログランキング

前職でも同様の経験があった
ある現場から要請があり、それを部下に造らせてみた
部下より、出来たと報告があり、テスト仕様書とテスト結果も確認した

リリースを指示し、部下はそれに従った
その後しばらくは何事も無く運用できていたみたいだ
みたい・・・とは、現場からクレームなど一切なかったからだ

現場で運用形態が変わった
その事は認識していた
しかし、その運用形態の変更が、以前開発したアプリの不具合を浮上させるものとなった

その不具合とは

どうやら、運用形態が変わり、そのアプリの動作時間に制限が出来た
変更以前は、起動して気付いたら思っている・・・それでよかった
しかし、運用形態変更後は起動して、遅くても数分以内に終了しなければならないとの事

私は、要望書を取り出してきて、プログラムソースを確認
確かに、アプリは要望書に書かれてい通りに動作するようにコーディングされていたが
基本ロジックはべた読みで、しかも繰り返し処理が沢山

これじゃ、いくら京都で一番大きい（と納入業者から聞かされていた）マシンでも３０分以上かかるわな
そこで、私が作り替え、現場にお詫びするとともにニューバージョンをリリースした

すると、現場から【一瞬で完了するようになった】と喜びの声・・・
喜んでくれるのは嬉しいが、そもそもはプログラムの作り方が悪く
また、テスト結果に所要時間を加えていなかったのが私の落ち度

先週確認した、顧客システムでプロが作ったアプリ
べた読みで３０秒かかっていたのが、論理ファイルとロジック見直しで
１秒未満になったこと、それを今思い出して

そーだ！　昔、こんなことがあったなぁと同じような事をしていたのを思い出したわけ
このプロのソフトハウスも要件定義書通りに作成し、動作させ検収を受けたんだろう
最初はデータ数が少なかったから一瞬で終わっていたんだろうが・・・・（笑）




人気ブログランキング

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

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

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

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

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

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


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


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

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

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

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

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

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

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

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


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

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

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

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




人気ブログランキング

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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




人気ブログランキング

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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







人気ブログランキング



" allowfullscreen>

IBM AS400に触れてから既に３５年以上
最初は、共通ユーザーで運用していました

ユーザーアカウントは、事業部ごとに１つずつ作り
ログオン（サインオン）した時に表示するメニューを選ぶため
それだけのために、ユーザーアカウントを使用していました

でも、それだけでは何らかのトラブルが発生した時
完全に追跡できません

そして、2005年に個人情報保護法が施行され
前職の企業は医療業界なので、特に厳しく管理運用することになりました

Windowsでも一人一人に固有のアカウントを振り出すことはできますが
事実上出来ない業務もあります

緊急対応をしなければならない場合、Windowsでログオンしてアプリを立ち上げて・・・
なんてことをしていると人の命が危うくなることもあります
なので、Windowsでは仕方なしに共通ユーザーを使用していました
（もちろん、営業やシステム部門、管理部門、経営部門では個人ごとのアカウント運用でした）

ところが、ＡＳ４００を使用する場合は
共通アカウントは厳禁とし、全職員に個別アカウントを振り出しました
これで、IBM i オペレーティングシステムは全てのログにユーザーアカウント名を書き出してくれます

システム部門要因は、複数のアカウントを使用できるようにしました
通常運用用のアカウントと、機密保護管理者権限を持つアカウントです
機密保護管理者とは、AS400の世界で言われる最高権限ユーザーで、WindowsではAdministratorと呼ばれます

医療業界のプライバシーマークを取得し、
システム部門だけですがＩＳＭＳも取得し
アカウント管理はますます厳密になりました

パスワードは、８桁以上で、英字・数字・記号の３種類を全て含ませ
世代管理は１４世代
有効期限は６０日

としていました

ムカついたのは、プライバシーマークの審査を受けている時に
審査員から［御社のパスワード要件はかなり厳しいですね。運用できているんでしょうか？］と言われ
［心の中で］要求事項に書いてあるからしてるんだど(# ﾟДﾟ)

まぁ、確かにとんでもなく厳しいみたいでした（笑）
前職で構築してきたシステムはセキュリティー面から個別アカウントにしたわけですが
そのおかげで、労務管理・勤怠管理・入退館管理などいろいろな場面で有効活用できました

お客様から問い合わせメール［ＡＳ４００でのアカウントの登録方法を教えてほしい］があり
営業担当がそのやり方を画面コピーを添えて答えていましたが
そのやり方が・・・確かに簡単にするにはそれが一番ですが

セキュリティーのセの字も無い・・状態でした
まぁ、業種が業種なだけにそこまで高度なアカウント管理は必要ないとは思いますが

でも、現職の会社でも
システム開発は共有アカウントを使用しています
なので、誰かがツールを使うと、その設定値が残ってて
大変鬱陶しい

だけど、今は下っ端なので、ブツブツ心の中で文句を言いながら使っています（笑）

本当、個別アカウントにすれば、かなり有効活用できそうな場面が沢山あるのに
それを面倒くさい・・・かな？　良く分からないのかな？
それだけの理由で使わないって、、、食わず嫌いもいいとこです

どうやって、システム責任者を教育していったら良いんだろう・・・
大きな課題ですねー(*^▽^*)






人気ブログランキング



" allowfullscreen>

前職では日付は８桁の文字として処理していました
現職では日付の年と月と日をそれぞれ４桁、２桁、２桁の数値として処理しています
前職の方が扱いやすかった………

でも、数値のほうがコンパイラにとっては良いのかも

RPG4では、日付型の変数も使えるようにはなっている
でも、今から新規開発するシステムでもない限り
文字列型や数値型の日付フィールドを日付型に変更するなんてことはしない
変更のための努力の結果得られるのは
開発者の達成感だけ（笑）

利用者は………何も恩恵が得られない（笑）
やるだけ無駄

こないだ、システム改修のためにプログラムソースを見た
その会社のシステム、ソースを見た限りなんだか変だ
AS/400のソースは一行ごとに更新日付が付されている
なので、それを見るとどこのロジックをいつ変更したかがだいたい見当がつく

でもその会社のシステムのプログラムソースを見たら
290408とか設定されているのがあった
おかしいな？このフィールドはYYMMDDのはずなのに
まさか欧米式にMMDDYYとかDDMMYYで入力されているのか？
もっと見ると、右2桁に31とか入力されているのを見つけてしまった

さっぱり理由がわからず、そこを担当するもう一人に聴いてみた
すると、驚くべき答えが………






人気ブログランキング



" allowfullscreen>

５月７日　連休明け
現場の方から、どうも数値が合わない・・・という連絡があった
現象を確認すると

四捨五入が上手く行っていないようだった

それは、もう読んで字のごとく（笑）
ある桁が、4以下なら切り捨て５以上なら切り上げをすること
ですが・・・落とし穴がありました。

たとえば、３．５を整数にしようとしたら、四捨五入すると　４になります。
３．８を四捨五入しても４、　４．２を四捨五入しても４ですね。
これを数学的に実現しようとすると、０．５を足して整数化すればよい・・・と考えました

実際に・・・
３．５＋０．５　＝　４．０　⇒　整数化すると　４
３．８＋０．５　＝　４．３　⇒　整数化すると　４
４．２＋０．５　＝　４．７　⇒　整数化すると　４
目論み通りですね

でも、落とし穴と言うのは、この演算方法は、マイナスの値には通用しないんです。
−３．５＋０．５　＝　−３．０　⇒　整数化すると　−３　本当は　−４であってほしい
−３．８＋０．５　＝　−３．３　⇒　整数化すると　−３　これも　−４であってほしい
こんな感じです

どうすればいいか？　答えは簡単なんですが・・・

本当は、四捨五入をするための拡張命令を使用すればよかったんですが・・・
それを知らなかったので、上記のようなしちめんどくさいことをしてしまい
結局、バグを出してしまいました。

ＲＰＧ４での具体的な命令はというと、　EVAL 命令に (H) を付けて
ＥＶＡＬ（Ｈ）　とすればよかったんです。
あ〜〜〜あ！

このバグによる被害は些少で済んだんですが
プログラム改修に１時間程度かかってしまいました
ほんとに、もう・・・恥ずかしい

穴があったら入りたい・・・
無くても穴を掘って埋まりたい（笑）
そんな感じでした

まぁ、一つ賢くなった
それで自分を慰めときます（笑）





人気ブログランキング



" allowfullscreen>