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

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

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

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

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

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

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

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

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

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






人気ブログランキング



" allowfullscreen>

８時３０分だったかな？　会社の駐車場に着いたのが
最近、生活リズムが変わって、７時３０分に家を出るから
ほぼ１時間かかって・・・７時４５分に出たら、８時４０分には着けるのになー(笑)

まぁ、それは遅刻のリスクを減らす為と
息子を最寄り駅まで送るのと二つの目的があって

まぁ、そんなこんなで少し早めに出社していますが
玄関に入ると、一人のフレッシュスーツを来た女性が

おはようって声をかけたら、おはようございますって返してくれたけど
受付の電話で担当を呼び出しているからか、こちらを向いてくれなかった（笑）
少し余裕がないのかなー

早めに仕事を始めて、乗ってきたとき
さっきのフレッシュウーマン（ガール？）が真後ろの席に付いた
おーー！　やっぱ、初々しいねー

そして、早速、あいさつ回りが始まった(*^▽^*)
そして、私のところに来た

さて、どんな話をしようものかなーっと思ってたら
案内係の（笑）責任者が、私のことをニューフェースに紹介

珍しい苗字なんだよーって
そして、半年前に入社されたんですよって

おーーーーい！　言おうとしてた事全部言われてしまって（笑）
仕方がないから、私の苗字は日本に６０人しかいないんだって
って、言って・・・その後は

ＲＰＧ言語を４０年やって来ました(少しサバ読んだ（笑））と
それを期待新人ちゃん、目をおっきくして「すごーーーい」って

可愛い






人気ブログランキング



" allowfullscreen>

Instagramのリールで、岸田政権について述べるオジサンがいた
聞いてみると、現岸田政権の行いについて話していた
話す内容を聞いてみると、それは正しいことだと思えた

だけど、なんで・・・話者の前に１０Ｌぐらいの水をポリ袋にいれ
その中に金魚などが泳いでいるかの？
違和感を感じていた

アクアリウム療法が云々とさらっと言っていたけれど
気付く人もいるのかな？
割とコメントが付いていたけれど

コメントは肯定的
肯定的な意見が多い・・・
岸田政権の悪さに反応し
自民党政権打倒
衆議院解散
などが主だったもの

つまり、あまりにも刺激的な導入話題なので
それにだけ反応し、アクアリウムとかには目がいかない・・・みたいな
それにしても節操もない感じがして吐き気がした

現政権の政策が酷すぎる事はＳＮＳ等で発信されていて
テレビなどの息のかかったメディアでは流されないような情報が流れている

それをそのまま鵜呑みにする事はしないけれど、適切に調査して
信頼できる情報のみゲットしている

そのようなのをいいことに自社の宣伝に利用しようとするのは
不買運動に発展するのでは？と思えるような気がした

止めて欲しい・・・・困っている点をついて宣伝するのは・・・

●でも、体重増加で

最初は９００円の体重増加予防サプリを買ってしまった
まぁ、９００円ぐらい良いだろうと思って
でも、自動継続なので断らない限り送り付けてくる

最初の購入が昨年末で、次回発送の１０日まで迄に解約が必要
電話をしたら・・・年末年始は営業していないそうな
なので、電話がつながらない

解約申し込みは電話のみ

あり得ない・・・
消費者庁に訴えてやる・・・と思ったけど、それも忘れて
先週送り付けられてきた

あ・・・・９０００円ほどクレジット決済
また、やられてしまった・・・（笑）

私は騙されないぞ！　と思ってて、またやられてしまったと言うお話しでした（笑）




人気ブログランキング



" allowfullscreen>

昨日、週初めのミーティングで、新人社員が全体研修を終えて
いよいよ、顔を出すと言っていたので
ドキドキしながら、出社しました(笑)

いやーーー！
昭和の時代ではなんでもあり（笑）やったのに
今では、〇〇ハラとかで身動きが取れない・・・かも

午前９時・・・新入社員の方が出社しているかな？と思いつつ
部屋に入ると・・・居ない

そっか！　午前は検収場所から移動して、勤務地での勤務は昼からかー
そう、思ってドキドキしながら（今度は別のドキドキ（笑））待ってたけど
退勤時に真実が判明しました(笑)

そうなんです
今週の木曜日からでした
なので、もうしばらくの辛抱（？）です





人気ブログランキング



" 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 の優れたデータベース機能は
簡単な命令で使用できるようになります

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

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

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

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

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






人気ブログランキング



すみません。　補足です

今日はとても暖かくなって気持ちのいい 天気
なので 昼休みにお散歩しようと ブラブラ と出かけたけど
喪中でどのぐらいかと Google マップを開く

に歩いていた！ Google マップ よありがとう
もし気づいてなければおそらく 1時間は遅刻していたであろう
（笑）（笑）（笑）（笑）（笑）

とんでもなく ハイレベルの方向音痴だったみたいだ
まさか 会社の近所で迷うなんて そんな馬鹿なことか
起こってしまった〜〜〜〜





人気ブログランキング



" allowfullscreen>

今、私が作り、私が使い、効率は良くなったと自負している
実際には、５時間かかっていた処理が１５分程度にまでなった
しかし・・・

実際に使える人は私だけ
他の人が使う時は私がサポートに入っている
それでは、誰もが一人で使えるシステム・・・・とは言えない

システムを作らなければならない
それは分かっていても、使う人が様々なレベルの場合
インターフェースについてはとても複雑に作成する必要がある

なぜなら、スキルの高い人が使う場合は何も考えなくてもいいだろう
でも、スキルの底辺の人が使う場合・・・何から何までサポートする必要がある

まずは、語句について
そして、ワークフローについて
また、法令が改正された時の対応など

私が凄いと思った使ったことのあるシステムは
やっぱり e-Tax かなと思う

なんせ、２００８年にはじめてつかった時、
税の知識も何もなく、寡婦って何？　扶養控除って何？
そんな状態なのに、一応確定申告が出来たりして

これは凄いって思いました

でも、会社の基幹システムでは、使用者が限定されていて
運用のプロフェッショナルだから
そこまで、緻密に精細に作りこまなくても良かった

教会の会計処理システムは、使う人が
素人に『ど』が付くような人も・・・
そんなレベルの使用者がたじたじしないで使えるように

かなりハイレベルなアプリ仕様になりそうです





人気ブログランキング



" allowfullscreen>

今日は３月３０日
２０２３年度も明日で終わり
年度の切り替わりはとかくバタバタしがち

会社では、決算処理や棚卸し
在庫処分なんかも（笑）

宗教法人格を持っている私が通っている教会でも
予算案策定、年次総会、決算準備
やはり、バタバタしています

週に１回（ほとんどね）しか活動しない教会でも
こんなですから

大変な感じなんでしょう
私が担当させてもらっているお客様のところでも
システム改修は一時中断しています

だって、変な改修で（もちろん意図してやってるわけはなく（笑））
ただでさえ忙しいのに不具合対応などさせてしまえば
不興を被るのは火を見るよりも明らかです

なので、バタバタが通り過ぎるのをまって
改修を再開しようと思っています
営業さんも同じ考えですね

あっ！　ちなみに私はクリスチャンなので
『触らぬ神に祟りなし』っていう概念は
まったく信じていないので誤解なきよう（笑）




人気ブログランキング



" allowfullscreen>