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

１６日（水曜日）は、朝からびっちりとＶＢＡでの開発にはまっていました
結構な量のＶＢＡコードになっていますが
割と(笑)　オブジェクティブプログラミングをしているので

急な仕様変更にも簡単に耐えれるようにしています

おボケが発生しやすいのもこのあたり
例えば、文字列 "ABCDEFG"の中に"D"が何文字目にあるかは
Excel関数では、FIND
VBA関数では、INSTR
を使用します。

でも、目的の 4 を得るためには
FIND("D", "ABCDEFG")としなければならない Excel関数に対し
INSTR("ABCDEFG", "D")としなければならない VBA関数

ややこしやー！　ややこしや！

なんで、統一してくれなかったの？
おかげで、
INSTR("D", "ABCDEFG") としてて、ソースコードエラーにはならないけど

きちんとコーディングしていたら見つかるものも
引数をテレコ（逆）順にしていたら見つかるはずもない＿|￣|○

まぁ、自分がどんなボケをしているか想像がつくので
デバッグは比較的簡単な部類になるけど
それでも、無いに越したことはないですよねー(笑)





人気ブログランキング

Excelを使ってて思う事
計算するには便利だ
集計するのも便利だ

見つけるのも使い勝手がいい
それでも制限があるのはちょっと・・・
そこで、こんな記事をVLOOKUPは不便だから・・・

でも、VLOOKUPは不便だからって、自分で関数を作りましたよーって
今から思えば・・・・恥ずかしい

だって、関数を作るために時間をかけているより
ネットを検索していた方が
はるかに解決に導かれる事が多いから

自分が困るぐらいなら、世間でも同じように多くの人が困っていて
その中の誰かが同じように解決策を導いている
それに思いが至らない時点で、私ってバカ

って言葉があるけど、私が私自身を使いこなしていなかった
ひょんなことから、VLOOKUPより私の利用方法に合致した関数があった

XLOOKUP・・・・Excel 365とExcel 2019 以降から使用可能 ☚ ClickでMicrosoftのページへ

ちゃんと、私と言うバカを使いこなさなくては（笑）

で、使いようによって便利になるのはバカとハサミだけではなくて
ＶＢＡも追加しなきゃー

Excel だけでもなかなか使えますが
VBAを組み合わせることで可能性は何倍にも広がります
もちろん、限界はあるのでＴＰＯに応じて、その範囲で





人気ブログランキング

なんで、虜になったのか
それを共感してもらえるように書かなきゃ！
11月の発表のリハーサル（おそらく１０月下旬）までに

その前にＶＢ≪ＲＰＧ３を説明して
その後に、ＲＰＧ３≪ＦＦ−ＲＰＧかな？

しかし同じ不等号でもその比較基準が違うしなぁ
単純じゃないけど、それを複雑に言っても分かってもらえないだろうし

食わず嫌いの人に食べさせるのは並大抵のことではない
かつての私がそうだったように（笑）
私がしたくてもできない………わけではなかった

なので、ＦＦ−ＲＰＧが登場したとき試していれば良かった
と、いまでは大きな後悔をしている
２０年も無駄にしてしまった！

もし、ＦＦ−ＲＰＧがでた時にチャレンジしていれば
もしかしたら私の人生も缶っていたかもしれない
そう思えるほどＲＰＧ３とＦＦ−ＲＰＧは違う

ただ、ＲＰＧ３ができる人ならＦＦ−ＲＰＧなんて
ほんの少し足を半歩先に伸ばしたらいいだけ




人気ブログランキング

IBM AS/400での主要な開発言語ＲＰＧ
なぜか転職サイトではスキルの中になかなか登場しない言語
つまりマイナーな言語

でも、これを知った人は・・・・えらい事になってるみたい
かつての私がそうだったみたいに

今年の11月、IBM Power Salonにて、ＦＦ−ＲＰＧの信奉者として参加します(笑)
かつての私＝ＲＰＧ３の崇拝者が
どうして、ＦＦ−ＲＰＧの信奉者に変わったか

私の経験を共有してもらおうと言う企画

ＲＰＧって、元々は印刷帳票出力プログラムをコーディングをほとんどせずに作れる
Report Program Generator が発祥

これは、事務分野において、種々の印刷物をホストコンピューターから出力する必要がありました
これをいちいちプログラムを組んでいたら大変なので
プログラムコードをほとんど書かなくてもそういったプログラムが出来ちゃう

そんな始まりをもつ言語でした

ただ、それは５０年以上前の話
ＲＰＧは単なる印刷ブログラム簡易生成器ではなくて
今やレッキとしてオブジェクト指向のブログラミング言語になってます

これは、３８年前になるでしょうか
１９８６年の事でした
その時は、それまでコーディングしてきた Visual Basic と異なり
ソースコードのインデントが出来ない
変数名が６桁まで
全てグローバル変数
と、まぁこれでもかって言うぐらい貧弱な仕様でした

ただ、それは裏に隠されている機能を知らない場合にそう思ってしまうだけ
さすがに事務系コンピュータだけあって
データベースアクセスについてはとんでもなく効率よくプログラミングできました

そのＲＰＧ言語も、どんどん進化してきました
世間の進歩以上に先進的な機能を取り入れてきたりしていました
あとから知ったんですが・・・・関数呼び出しの標準は Byref でした

今では、ＦＦ−ＲＰＧは他のオープン系の言語に比べても遜色ないほど充実し
しかも、データベースアクセス機能は、エグイぐらい早くて簡単
これを使わないなんて、新大阪から東京へ自転車で向かってるみたいなもんですよ


セキュリティーについては・・・個人情報保護外部監査なんかへっちゃらでした（笑）
だって、監査員にＩＢＭ　ＡＳ／４００を使っていますって答えるだけで
それじゃあ、大丈夫だねとフルパス(笑)・・・めっちゃ楽でした(*^▽^*)




人気ブログランキング

一昨日ぐらい(笑)に投稿した記事の最後
ＡＳ／４００ってそんなにマイナーなの？で
ＡＳ／４００の凄い所を列挙したけど

それがどんなに凄いのか、詳しくお伝えしよーってことで
お約束通り、述べてみますね

５０年前って言ったら・・・・１９７４年
あれっ？　計算間違えたかな？

私が、出会ったのは１９８６年だから・・・
私の計算上では、３８年前の(笑)コードで作られたプログラムが
まだ動く（笑）

Windowsの事を考えてみてください
2000年ぐらいに入手したゲームソフトなんて
起動できますか？

私がお金を出して購入した『電車でＧＯ　山陽新幹線版』
Windows11で久しぶりに遊んでみようかなって思ったら
全く(;O;)(;O;)(;O;)

購入代金って、いったいなーに？悔しい・・・

まぁ、そんなことはどうでも良くて(笑)

ＩＢＭ　ＡＳ／４００のブログラムの場合
動いているプログラムが古すぎて
開発した人も作ったことを忘れてたりして（笑）

もう一つ、ＡＳ／４００の利用できるデータベースには
ＳＱＬもバリバリ使えるリレーショナルデータベースＤＢ２が
ＯＳに標準でついてくる

Windows系ならば、まずＯＳのWindowsを購入し
次いで、データベースエンジンを入手しなければならない
これが、また費用がかなりかかるんだよね

まぁ、好き好きだけど

で、おまけでついてくるＤＢ２、安かろう悪かろうではなくて
安かろう、凄かろうって感じなんだよね
まずは、そのアクセス速度・・・これは筆舌に尽くしがたいね

前の職場で利用していたＤＢＦの中でレコード数の最多の物では１０億を超えてたなぁ
論理ファイル（一般的な呼び方では外部インデックスファイル）が５０本以上
それでも、言い方悪いけど、あっという間に結果が得られる・・・ほど(笑)

そして、もう一つ大切な凄い所は

Windowsでは・・・その使用状況でも変わって来るけど
毎日１回、もしくは毎週、毎月、、再起動した方がいいと言われる

けど、ＡＳ／４００のＯＳでは、３６５日２４時間無停止が可能
停めなくてもWindowsのようにおかしなことが起こらない（笑）

計画外の停止をしてしまったのは、私が在籍している３７年の間
３回しか・・・・
その３回・・・・ＡＳ／４００が原因では無くて、全て外部要因
�@誤ってＬＡＮケーブルを抜いてしまった
�A部下が足元のコンセントを蹴飛ばしたら、スパーク電流が無停電装置を無力化し、ＡＳ／４００が落ちた
�B１時間以上に渡る停電

それ以外は計画停止だけ！　しかも数年に１回程度
リプレースの時とか・・・・

そう言えば、リプレースは全部自分でしたなぁ！
って、言ってもコンピュータハードウェアのキッティングと、ＯＳの導入は
ＩＢＭとか代理店にしてもらったけど・・・（というよりさせてくれない）

そして、ＯＳ以外のユーザーのオブジェクトについては
全て自分らで移行しましたー

それと、消費電力が少ないのと、それが為に排出熱量も少ないこと
これって、環境に優しいって書いたけど、ストレートに言うと
電気代が安い！　に尽きるよね

こんな事からＡＳ／４００の事振り返ってみると
私のようなシステムエンジニアにかなり優遇してくれるなぁって思える
だって、面倒見なくて良い！　自分が１流エンジニアになった気分になれるもん！

そして、開発したアプリが爆速で動くので、利用するエンドユーザーにも喜ばれる
一部のユーザーには少し不満があったかも(笑)
（時間が２〜３分ほどかかるアプリが有ったら、実行させてて一服できるのにね(笑)）

言い始めたら終わらなくなりそうなのでこの辺で（笑）




人気ブログランキング

今日は久しぶりにＩＢＭ　ＡＳ／４００のＲＰＧでプログラミング
もちろん、ＲＰＧ４（ＩＬＥ−ＲＰＧ）なんだけど
ちょっと、配列と文字列を同じメモリに割り付けるコーディングを忘れて・・・

前職でＲＰＧ３でコーディングする時に利用した手を使おうと
それは・・・・
�@ＲＰＧ３でコーディングする（ＲＰＧ４ではどう書けばいいか？）
�AＣＶＴＲＰＧＳＲＣコマンドで、ＲＰＧ３からＲＰＧ４に変更させる
�B変換されたＲＰＧ４コードを見る

簡単に言うと、カンニングみたいなもんだけど(笑)
急いでいる時には（調べるのめんどくさい時には）結構早く結果が分る

さて、ＲＰＧ３で、１桁で要素数が１３２個の文字配列と、１３２桁の文字変数を
同一メモリ領域に割り付ける（Ｃで言うところの共用体）方法で
データ構造を使うんだけど、意気揚々とコーディングを始めたところ

配列の定義ってどうするんだったっけ？
こんな所で躓くなんて（笑）

配列の定義はＲＰＧ４ではＤ仕様書で行うから
ＲＰＧ３でＤ仕様書で・・・・って言ってもあるわけがない（笑）
なんだったっけー！って二息、三息ほど考えて・・・

そだ！　Ｉ（アイ）仕様書の方だったーって思い出して

いやーーー！　３７年間ＲＰＧ３をどっぷりと使いまくっていたのに
わずか１年ちょっと遠ざかっていただけで（笑）

とはいうものの、ＦＦ−ＲＰＧの魅力に取りつかれてからは
ＲＰＧ４はＲＰＧ４でも、全く別種のＲＰＧだからねー

今、マイブームのＦＦ−ＲＰＧ（フリーフォームＲＰＧ）
何がＦＦ−ＲＰＧの良い所かと言うと、

あっ！　そういえば、前回・・・約束したような・・・
次回（つまり今回）に話しますねーって
それは・・・・次回に(^_-)-☆




人気ブログランキング

少ないんだなぁー
もしくは、転職サイトを開発する人間が
転職サイトの人間が良く知らないのか・・・

いや、ＡＳ／４００を知らない転職サイトに引っかかった私が悪いのか(笑)

ネットでＡＳ／４００とかで検索すると
転職サイトが出てくるので、登録してみると
ＡＳ／４００やＲＰＧとは関係のないような求人情報ばかり

見るのも嫌になってくるぐらいねー

登録させて、求人情報とのスキルマッチを
単純なロジックで検索して、メールで送るだけ・・・かも

そして、求職者が一生懸命見て、ここだっと思ったら応募
そして、応募したら、片っ端から企業に送る・・・のか？

それじゃ、転職サイトの手数料ぼったくりビジネスやん

そう思いたくのも仕方がない・・・
現在の収入額よりかなり低いのが
ハイクラス転職ってタイトルでメールが来る・・・・

舐めとんかー！

もちろん、希望額は登録している
その１／３ぐらいの収入でも平気で送って来る
そして、開いてみるまで求人企業の提示額が分らない

この数秒が勿体ないと感じるのは私だけ？

っていいつつぐちぐち言ってしまった

ちなみにねー！　ＡＳ／４００を古臭いとか言う業者は
大ウソつきだからねー！
そんなのって、HONDAを古臭いって言うのと変わらないからねー

逆に、ＡＳ／４００とそのＯＳは常に最新の技術を搭載してるんだからー
こないだ、転職サイトの担当者にＡＳ／４００の凄さをトクトクと説明してしまったー
その中で、ビックリさせたのが

• ５０年前にコンパイルしたプログラムオブジェクトがそのまま使える
• データベースアクセスがべらぼうに早い
• ＯＳは放置プレイ対応（笑）
• リプレースも面倒くさいと思わなければ自分でできる（笑）
• 環境に優しい（電気の小食、少排熱量など）
• システムエンジニア優遇

このそれぞれは次回に説明するねー




人気ブログランキング

今日は第一日曜日
礼拝のあと、午後から執事会っていう会議が持たれます
午後1時過ぎにスタートして、午後4時前に終了

いろいろな事を話し合うけど、とうとう
教会でもペーパーレス化をしようと
執事会のトップが言い出した

そこで、執事がどうのこうのをするのではなくて
教会会員の中から興味のありそうな人にお願いしようと
そして、その名もＩＴ委員会

まずは、皮きりとして週報のペーパーレス化・・・だそうだ
でも・・・昔からペーパーレス化ペーパーレス化って
いろいろな企業で言われてきたけど、結局

紙は減らない（笑）

でも、しないよりはした方がいいかも知れない

ただ、教会には企業と違って
老若男女が居る

若いと小学生（？）　高齢者なら８０歳代(笑)
そして、生活環境も様々

そのような多くの種類の人々すべてで
利用しやすいようにアプリを設計するんだって

ハードルが高い

だって、委員会のメンバーは20代ぐらいまで
２０代の人に７０代や８０代の方のＩＴスキルに合わせて
システム設計をしろと・・・・

これは、かなりハードルが高い・・・
いや雲の上みたいな感じに思える

そして、最後に・・・その委員会と執事会のパイプ役が私に

口出ししてはいけない！　そう執事会で主張したのが私
だから？　いやいや、力不足過ぎて大変・・・




人気ブログランキング

なーんだか、方向性が違ってきているような（笑）

忘れてたけど、私は『ＲＰＧプログラム開発支援』を受注していたのだった

９月分に働いた分の、請求書を作成せねばならず
案件名として何かなと・・・すると
『ＲＰＧプログラム開発支援』

いや！違うだろ！
なんだか、最初の１週間はそれをしていたような
でも、

それをやってしまって、次に何をしたらよいか聞いてみたり
かくかくしかじかで手伝って欲しいと
その内容を吟味すると

Excelマクロで出来るやなーい？
ってことだったので、許可をもらって開発し始めた
まぁ、私も嫌いな方ではないし

Excelマクロを組んでしまった
それで、十分動いている
いや、もうすぐ動きそうだ

何故？
それは途中で聴いた仕様が・・・後だしじゃんけんのように・・・
まぁ、それも一興(*^▽^*)

ただ・・・バグが出やすいんだよなぁ




人気ブログランキング

一応、プログラムは出来るけど、
変数定義もできるし、関数もある程度使えるし
構造化もできるけど
データベースファイルへのアクセスが今一つ

ＲＰＧならあっという間に、データベースにアクセスし
必要なデータを作り出すことはたやすいんだけど
ちょっとこだわりが・・・・

それは、ＣＬからＲＰＧを呼び出すのがめんどくさい
って訳じゃなくて、
新規にオブジェクトを増やすと、工賃が・・・・

文書化作業も加わるから、本当のところはこちらがめんどくさい
しかし、ＣＬでデータベースにアクセスするコードを考える方がもっと・・・
とか言いながら、どうにかこうにか

でも、単一のデータベースを順次読み取りするのはＣＬでも簡単
ＤＣＬＦコマンドで使うデータベースを指定し、
レコードを読むときはＲＣＶＦコマンド・・・これだけ(笑)

終了判定はＭＯＮＭＳＧで
それだけで出来上がりー

ＣＬにＷＲＴＦみたいなのが用意されていない
ＳＮＤＦはあったけど、これは画面ファイル専用Σ(￣ロ￣lll)ｶﾞｰﾝ
なので、すこしトリッキーな！

それは、ＩＮＳＥＲＴ　ＩＮＴＯ文を使って・・・・
なので、これで始まるＳＱＬ文を作り出して
ＲＵＮＳＱＬコマンドで実行すると・・・書き出せる

ちょっとめんどくさかったけど、
これで、オブジェクトを増やさなくて済んだからＯｋ〜〜〜




人気ブログランキング