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

IBM AS/400 は昔からあるから古い
今の時代にはそぐわない

そんなの古臭すぎる
そんなコンピューターで作ったシステムは止めて
今時のコンピューターで作り直せ

昔からあるよね
開業はたしか１９６４年だったかな？

もう、６０年前の代物
だから、新幹線は古い？

そんなことを言う奴が居たらバカにされるよね

そんなことを言う奴がいたら、僕はそいつをバカにするね(笑)
どこをどう見たら古いっていえるのか？
常に先進的な技術を吸収してきた

そして、エンドユーザーが簡単に利用できるようにさえして
ましてや、どこぞのＯＳやプラットフォームみたいに
ヴァージョンアップしたら、前のアプリが動かなくなる・・・とか

そうでなくても、動くかどうか検証しなければならないって
私のようにシステムの面倒をみるものからすれば

W●●●●●●やi〇〇なんて、ヴァージョンアップするってニュースが流れるたびに
憂鬱になる

だって、そこに生産性は殆どゼロ
良くなるのは何？

そりゃ、家庭ユーザーにはいろいろおまけみたいなのが付くけど
ビジネスユーザーには・・・


もう、素敵





人気ブログランキング

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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




人気ブログランキング

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

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

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

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

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

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

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

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

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

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

としていました

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

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

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

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

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

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

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

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






人気ブログランキング



" allowfullscreen>

教会で私は会計担当執事をやらせてもらっています
２００５年ほどからずっとです（笑）

執事の任期は２年で、三選禁止規定があるので
２期（４年）やって、１年休み・・・となるはずです

２００５年（約２０年前）あるご婦人が
会計監査として選出されました

ただ、当時の教会の会計処理は帳面です
当時と言っても２００５年なので、Ｗｉｎｄｏｗｓ９５が出て１０年
だいぶＩＴ化が進んだ・・・？　と言えます

ところが、帳面での会計処理だったので
会計担当執事が、毎週日曜日、礼拝が終わってから夕方まで
会計処理をしているという悲しい状況でした

その会計監査に選出されたご婦人は、職場でＰＣを使い慣れているので
（大きな病院の麻酔科ドクターだったので）
帳面でやられた会計処理を監査するなんて嫌だ！

教会の年次総会でそう言われました。
皆は【えっ？】という感じでした（笑）

そのご婦人の主張は、
【会計処理をＩＴ化するなら、会計監査を引き受ける】
というもので、私としては至極ごもっとも（笑）

と、言う事で当時（今もですが）バリバリのシステムエンジニアだったので
【私が会計処理用のソフトウェアを開発しましょう】
と名乗りを上げました

その後２０年弱
機能もどんどん取り込んで、結構な大きさのシステムになりました
でも、まだまだ必要な機能があり、これ以上組み込むと

パソコン上で動くソフトとしては、少し重いかなって
入力すると、１〜２秒待たされることもあり、これがイライラの原因（笑）
なので、会社でＡＳ／４００を使っているので、その早さに焦がれて

教会にもＩＢＭ　ＡＳ／４００が欲しいなぁって思い始めた次第
まぁ、会社のＡＳみたいにバカでかくなくていいので
小さいのでも・・・・

プログラムは自分で作れるし、何しろ機能拡張が容易で
最適化なんてしなくても爆速で動作してくれるし

あぁぁぁぁ・　教会にＡＳ４００が欲しいなぁ（笑）





人気ブログランキング



" allowfullscreen>

今日は、来客があり、そのお客様にRPG4フリーフォームを勧めると聞いていました
午後２時の予定でした

RPG4フリーフォームを勧めるにあたって
そのお客様がRPG3でシステムを構築されている事から
今回、RPG4フリーフォームを勧めて、開発効率を良くしてもらおうと

そこで、RPG3も使い尽くし、RPG4フリーフォームでもプログラミングできる私に
そのRPG4フリーフォームの良さを実際に使っている立場で話して欲しいと
お呼びがかかる予定

その時間になって、はっと気づいた！
あれっ？お呼びがかかっていない？？
どうしてかなー？

まぁ、営業の方によると、いろいろと話してその時になったら・・・
と、言っておられたので、その時が来たら呼ばれるかなって

午後４時・・・　私は別のお客様の問題解決に集中していたので
はっと気づいたら午後４時
まだかなーと思い、会議室（ガラス張りです（笑））を見ると、真っ暗

あっれー？ 帰ったー？
あらあらー！　お呼びじゃなかったのねー

午後5時半退勤時に、その営業の方に聞いたら
今日の話ではそこまで話を勧められなかったそうな・・・

あーーー！　楽しみにしてたのに(^_-)-☆　おあずけ






人気ブログランキング



" allowfullscreen>

昨日は、プログラム改修などの予定はありませんでした
その前の日の課題を解決する必要があったので
それで一日一杯かかるかなって思っていました

ただ、お客様の方も根気よく問題の原因を追究して下さって
出していただいた差額が、私の抽出した差額と一致したので
原因を特定でき、問題解決となりました

これは、朝９時少し過ぎたところで、一日仕事が１０分程度で
（もちろん、前日には相当の作業をしましたが（笑））
終了しました

そこで、次の相談をお客様から受け、対応することにしました

お客様のシステムは、ＲＰＧ４固定形式でコーディングされています
例外なくそうです（笑）

なので、私もそのお客様のシステムを改修する場合は、
ＲＰＧ４固定形式でコーディングしていました。

と、言う事です

なぜなら、お客様がシステム変更をしたいと思い
他のソフトハウスに依頼した場合に
そのソフトハウスがソースコードを見た時に

あるソースは、ＲＰＧ４固定形式
あるソースは、ＲＰＧ４フリーフォーム形式
とか

あるソースは、ＲＰＧ４固定形式だけど、一部分だけフリーフォーム形式
とか

そんな風になっていると保守する人が大変だからです
でも

今回は、少し改修するだけの部分はＲＰＧ４固定形式でコーディングしましたが
さすがにある一つの機能をサブルーチン化する必要があったため

そのサブルーチンを、最初はＲＰＧ４固定形式でコーディングしようと・・・
思いましたが、頭がスパゲッティーになりかけたので、効率が悪いと思い

ＲＰＧ４フリーフォームでコーディングしちゃいましたー(*^▽^*)
だって、バグが出にくくて、ロジックが組みやすくて、結果として
開発時間が短くて済んだからでーす(^_-)-☆

まぁ、落ち着いたらＲＰＧ４固定形式にコーディングし直そうかなって思っています
とりあえず、緊急要件だったので急いで作るためそうしました





人気ブログランキング



" allowfullscreen>

前職でのＳＥ時代、ＩＢＭ担当営業の方からお誘いを受け
ＩＢＭ Power Salonなるもので発表させていただきました。
それは、ＩＢＭ　Ｐｏｗｅｒ（通称ＡＳ４００，エーエス）の宣伝でもあるのですが（笑）

私としては、愛するＡＳ／４００を好きになってもらえる人が一人でも増えてくれればと
それはもう快く承諾しました(笑)
その時の発表動画（一般公開）は視聴できるようになっています。

IBM Power Salon 第11回 (2022/10/12)
患者様の命のために – 〇〇〇〇〇〇〇のDXを支えるIBM i

恥ずかしいからです…
私が作り上げてきたシステムは、どうしようもないシステムにとってかわられ
（経緯はこのブログの２０２０年から２０２２年頃に記しています）

取って代わられた経緯も書いていますので、興味のある方はお読みください（笑）

ただ、経営者が変わるまでは、ＩＢＭ　ＡＳ／４００を基幹コンピューターとした
基幹システムを構築し、トップクラスのお客様から
『わざと間違えようとしても間違えられないシステムですね』と
最大級の誉め言葉を頂きました

それは、とにもかくにも基幹コンピューターがＡＳ／４００だったからです（笑）
この子のおかげで、下手なプログラムを書いても一流プログラマかと錯覚しそうなぐらい
爆速で動作するアプリケーションが作れたからです。

なぜ、爆速で動作するか？
それは、ＣＰＵ性能が良い／ＳＬＡだから／ＤＢ性能が良い／その他も良い
いいことづくめだからです

前回のサロンの時に誘ってくださったＩＢＭ営業の方が
なんと、現職の会社にも来社される事がたびたび
これまでも、何度か挨拶をしたことがあります（笑）

今日も来られていて（今日と言えど金曜日ですが）
帰る間際に呼んでくれて、上司の方ともご挨拶ができました
その際に、ＲＰＧ４フリーフォームについて話してもらえないかなぁって

早速Ｏｋしちゃいました(笑)
多分、当社の営業の方も応援してくれるでしょう(^_-)-☆
今年は、９月まで予定が決まっているので私には１０月に・・・と

丁度、２年前が１０月だったので、偶然の一致かー(*^▽^*)とか思いつつ

前職ではＲＰＧ３メインでしたので、現職で獲得したフリーフォームスキル
前職で利用できていれば、もっともっと多くのサブシステムや機能拡張が出来たのにと
思っていました
その事も同時にお伝えできればと、今から楽しみにしています





人気ブログランキング



" allowfullscreen>

ＲＰＧ３ユーザーが来週、来社されると言う
ＲＰＧ４を勧めるらしい
それで、私に同席して欲しいと営業さんから依頼が

ＲＰＧ３とＲＰＧ４の何が違うのか？
それにサクッと答えられるようにしとかないと

今日、考えてみたけれど、聞かれた瞬間には思い浮かばない
でも、今では・・・

特筆すべきは、ＲＰＧ４　ＦＦ
ＦＦとは Free Form の略
フリーフォーム？　はて？何のこと？って

Visual Cとか、Visual Basic, Delphi, PHPなどなど
様々な言語では、プログラムコードを書く時に桁数の制限なんてないですよね

たとえば、IF 命令を１桁目から書こうが、30桁目に書こうが
コンパイル時にそれがエラーとなることはありません。

でも、RPG3とかRPG4の固定形式（フリーフォームの対語として）なら
決まった桁数の位置に配置しなければならないのです
一桁でも右や左にずれたら、コンパイラがエラーとします
（その前にエディタがエラーではじきますけどね(笑)）

なので、
IF あなたは生物か？
IF あなたは動物か？
IF あなたは無脊椎動物か？
<違いますよー(笑)>
ELSE
IF あなたは哺乳類か？
<あなたの居場所>
ENDIF
ENDIF
ELSE
＜それなら植物だ＞
ENDIF
ELSE
＜それならあなたは何者だ？＞
ENDIF
ってな具合で、IF命令とENDIF命令は同じ位置から書き始めなければなりません。
この例では割と簡単なので、どのIF命令に対応するENDIFかがわかると思いますが（分ります？）
複雑なロジックになると・・・頭がスパゲッティになります。

それに比して、フリー形式の言語では
IF あなたは生物か？
　IF あなたは動物か？
　　IF あなたは無脊椎動物か？
　　　<違いますよー(笑)>
　　ELSE
　　　IF あなたは哺乳類か？
　　　　<あなたの居場所>
　　　ENDIF
　　ENDIF
　ELSE
　　＜それなら植物だ＞
　ENDIF
ELSE
　＜それならあなたは何者だ？＞
ENDIF
という風に、かなり分かりやすくなったと思います。

ＲＰＧ４では、それまでの固定形式の記述法に加え、
上記のフリーフォーム形式でのコーディングが出来るようになりました

これによって、他の言語でのプログラミングスキルを持っている方は
ＲＰＧ４　ＦＦでも同じ感覚でプログラミングできるようになっています

もちろん、ＲＰＧ４　ＦＦでも、AS400のＯＳ　IBM i の優れたデータベース機能は
簡単な命令で使用できるようになります

前職では、ＲＰＧ３がほとんどでした。
ＲＰＧ４はかじる程度・・・いやかじりかけでした

しかし、昨年９月に転職し、現職ではＲＰＧ４でのプログラミングを要求され
最初は固定形式で行っていました

しかし、複雑な論理式を固定形式でプログラミングするのは非常に苦痛で
バグも発生しやすいため、フリーフォームでコーディングを始めました

すると、もう今ではとりこになってしまって
フリーフォーム以外でプログラミングなんて出来るかー！
みたいな感じになってしまいました

もし、前職時代の私のような方がおられたら
一度騙されたと思って、ＲＰＧ４　ＦＦを試してみてください
たぶん、１０人中７人はとりこになってしまうと思います（笑）






人気ブログランキング



すみません。　補足です

IBM AS/400を基幹コンピューターとしたシステムを構築していました
システムには多数のプリンターが接続されており
あるＰＣから任意のプリンターに出力することが出来るようにしていました

それが当たり前・・・最低限の印刷運用だと思っていました

去年９月に転職し、勤務している今の会社
ＩＴサービスを提供しているわけです
お客様としてはグループ企業の職員の方もありますし
純粋にお客様の企業の職員の方も居られます

金曜日に対応したお客様のシステムでは

複数のプリンターがあるにも関わらず
初期試用のせいか、印刷出力プログラムでは
プリンターの選択が出来ず、省略時のプリンターにのみ印刷されます

別のプリンターで印刷したいときは
一旦印刷されかけたスプールファイル（印刷データファイル）の出力先を変更し
印刷したいプリンターに移すと言う事をしています

前の会社の運用でも、困ったちゃんがいましたが
このお客様の職員の方も困ったちゃんが居られて

ただ、前の会社の職員の方は、直接がみがみ言えたこともあってか（笑）
スキルが割りと高かったと思います
今にして思えば(*^▽^*)

その時には、なんでこんなことも出来ないのか？って
いぶかる事もありましたが
世間では、もっともっと・・・

という事で、転職するまでは井の中の蛙だったんですね
前の会社しか知らなかったから、
エンドユーザーのスキルはこれほど低いのかって

いやいや、世間にはもっと・・・ですねー
思い知りました

ただ、お客様なので、丁寧に対応しました
すると、取締役から『お手数をおかけいたしました』って
お礼を頂きました(*^▽^*)



人気ブログランキング



" allowfullscreen>

今日は年末年始休暇の最終日
明日からは出勤しなければ
いや、しなければという表現は事実にそぐわない

仕事に休みは必要だ
でも、私の仕事は趣味も兼ねている
好きな事を停められる気持ちは子供にはよくわかるかも

もう、中毒と思えるぐらいＡＳ４００が触りたい
（実際に触るんじゃないですよ(笑)）
ＡＳ４００でプログラミングがしたいって想い

いよいよ明日から出勤できる
それが本当の気持ち
やばいなぁー

でも、趣味と実益を兼ねてるんだから(*^▽^*)
うらやましいでしょ(^_-)





" allowfullscreen>