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

2023年9月から先月末（2024年８月末）までは、AS/400でRPGばかりでExcelVBAなんか使っていなかった
と思い、今月から働き始めたところでExcelVBAを使い始めたことを書こうと思った（笑）

でも。よく考えたら、前のどこでも使ってたことを思い出したよ〜（笑）
いやいや、なぜ忘れてたかと言うと、頼まれて使ったわけでなく
仕方なく使ったから………

まぁ、４０年近く勤めた前々職ではメインはAS/400のRPGだけど
AS/400だけで作るととてつもなく大変になるところは
ExcelVBAで作ったりしてました！

残念ながら、前々職では、ＲＰＧ３しか使っていなくて
文字列処理がめっちゃ鬱陶しかったんです(笑)
なので、文字列処理を多用しなければならないところはVBとかExcelVBAの方に

元々,Basicは、知る人ぞ知るN-Basicから始めました
これは、日本電気（ＮＥＣ）が日本で初めて発売した（１９７９年）パーソナルコンピュータ
ＰＣ−８００１が搭載したＢａｓｉｃ言語です

それがどんどん改良され今に至っているってわけです
元の面影なんて全然ありません（笑）
そんなことはどうても良くて( ´∀｀ )、その後のVisualBasicにはまっていったのでBasicになじみがあります

ただ、Excelに搭載されたVBA(Visual Basic for Applications)は
オブジェクト指向の考え（現在の言語では当たり前の考え方）が取り入れられ
それになれるのが大変でした

でも、必要に迫られて、習得しました！　それはもう血のにじむような努力をして・・・・
ません
楽しみながら学びました

この９月から働き始めたところ
RPG エンジニアとして………でしたが、今では
VBAが８割以上になってます（笑）

いや、もちろんRPGでプログラムを作るべきなんですが
そのプログラムソースを作るためにExcelVBAを多用して
結果として８割以上VBAプログラマになってまーす

でも、心の底には僕はRPGプログラマだ〜
って炎が燃えていますよ〜〜〜！

そうそう！　教会では会計処理ソフトを全てExcelVBAで開発しました
でも、今になって教会にもAS/400を導入したいなぁって想いが強くなってきて
だれか献品してくれないかなぁ（笑）




人気ブログランキング

昔々、あるところにシステムを構築するＳＥさんがいたとな
そのＳＥさんは、曲がりなりにも企業グループシステム部門の長だそうな
（ちなみに、Ａさんと呼んでおこう）
なので、システム全体の事は知っている・・・・はず

でも、時は流れて２０１８年
グループ全体の統合システムを開発しようと考えたＡさん
自分では作れないので、外部のインテグレーターにお願いした

詳しい話は省いて・・・・

やっぱり、統合システムを開発しようとするときは
既存のシステムで出来ることは、統合システムで出来て当たり前
既存のシステムで出来なくて困っている事もやりましょう

そんなノリで作り始めたらしいんだけど
どんなものを作ればよいか、そのシステム設計も委託
（おいおい！　Ａさんの役割は稟議を通すことだけかよ！）

なので、インテグレーターからいろいろな質問が来る
その中で、耳にしていて面白いかったのが
インテグレーターが、『このフィールドがヌルの場合はどう処理しますか？』

オープン化に伴って、フィールドの内容も利用しやすいように機能が変化してきている
昔々はヌル値という概念はあったけど、それを物理的に表すようなことはなく
運用でカバーしていた・・・

ヌル値・・・何も入力されていない値

聞かれて答えるＡさんの答え
どんな答えをしたかは忘れたけど、その答えで大爆笑したのは覚えてる
Ａさん、ヌル値の意味を分かっていなかった

いやいや、あなた一国一城の主でしょ？
そういえばＲＤＰも知らなかったなぁ

総務からＲＤＰで私の居た会社のＰＣにアクセスしたいって頼まれたそうな
私は、Ａさんに呼ばれた往復５時間かかる出張をしたけど
総務部長と会わせられて聞いたのは上記の事

私の答えは『可能です。　これこれをあーしてこーするとすぐにできます。　所要時間は１０分程度です』
だったけど、それを答えて、会議（出張の目的）が５分で終了

さすがに、その時にＡさんに『ＲＤＰも知らなかったんですか？』と詰問した
さらに、『なんで、傍にいる部下にまず聞いてみなかったんですか？』

だって、そんな些細な事の為に新幹線で片道２時間かけて往復って
バカらしい

そうそう、そのヌル値なんだけど、
ＩＢＭ　ＡＳ／４００に標準で搭載されている超強力なＤＢ／４００（今じゃＤＢ２って言うのかな？）
これもヌル値の設定が可能になっているんだなー

私も昔の人間だから、基幹システムを構築してきたとき
構築当初はヌル値なんて無かったので、同じような概念を運用で作り出してきた
なので、ヌル値なんてできたとは言え、あえて組み込もうとはしなかった

現在は、私の作ったのではない、第三者企業のシステムを担当している
それにはヌル値可能フィールドが存在する
このようなＤＢを扱うＲＰＧプログラムはそれなりのコーディングが必要
（まぁ、ちょっぴりだけど、無かったらコンパイルが通らなかったり、プログラムがこけたりする）

なので、Excel VBAで RPGソースを作り出すとき、扱うフィールドがヌル値可能か否かを考慮する必要が
やばいなー
めんどーやなー

と、言いつつマクロを作り上げ、テストとして実行したら
ＲＰＧソースが出来上がったけど

一瞬とは言えず（多分３０秒ぐらい）
行数も１６０００行を超えている・・・・

これはシェイプアップしなければ
美しいソースとは言えない・・・・
金曜日に改良しよう(*^▽^*)





人気ブログランキング

朝の８：５０、第一次リモートワーク開始
契約では９：００からだけど、早めに開始
だって・・・・面白いから(笑)

昨日は、ExcelVBA（いやゆるマクロ）を使って
データベースチェック用のＲＰＧソースを生成しました
ＲＰＧソースとは、AS/400上で動作するRPGプログラムを作成するためのソーステキスト

最初は、コンパイルが通らない（通らない＝失敗した）んですが
その原因は…単純な文法エラー（笑）　こんなのはちょちょいのちょい

そして、文法エラーが取れた（取れた＝修正した）ところで、再度コンパイル
今度は、当たり前のエラーが発生
使おうとしたファイルが存在しないって（当たり前・・・まだ無いんだから(笑)）

Excel上の仕様書には作成するデータベースが、AS/400上にはまだ存在していないだけ
このようなコンパイルエラーは、データベースファイルが作られれば自然に直ります

でも、コンパイルが出来て、そのプログラムを動かした後に発生する論理エラーや
出力した帳票を実際に見て確認したので、そのために修正
存在しないファイルに関するコードを出力しない様に修正しました

そして、コンパイルして・・・・通った(*^▽^*)
いやー！よくもまあ、２日足らずで自動作成したＲＰＧソースでコンパイルが通るって
ロジックも単純だからかも知れないけど、めっちゃ感激（笑）

だって、４０００行オーバーのプログラムソースが
２秒もかからないで出来ちゃうんだもん(^_-)-☆
（マクロを組むのに２日かかったけど、そんなの大したことじゃない

実際にＲＰＧソースを手入力したら
２日で済まないだろうし、仮にできたとしても
入力ミスを完全に無くすなんて不可能に近い（笑）

って、感激している間に、午後６時が到来して
いろいろと報告文とかを送ったりしていたら６時半ぐらい
でも、なかなかいい仕事が出来たー

ただ、深夜にちらっとチームビューワーを確認したら
午後９時台に、これもしてほしいなぁってメッセージが
いやいや、なかなか楽しいお仕事じゃん（笑）

で、夕食を済ませて、次の仕事に・・・
それは、前職のお客さんのシステム改修案件
まだ、終わってなくてね・・・・

なので、昨日の第二次リモートワークは、午後１１時前まで
さすがにつかれて、やり残したことは翌日に持ち越すことに

もう、当然のことながら、大好きな異世界アニメを見て
現実逃避に走りました

ただ、気が付いたら午前６時
そうです！　朝になっていました
リビングのソファに横になりながら見てて
そのまま寝てしまったー

Netflixの履歴を見ると、３０分もの（実質２０分ぐらい）のアニメ
１０話ぐらい見たことになっていました(笑)
いや！実質２５分かな(笑)





人気ブログランキング

現在、リモートワークで仕事を進めています
でも、３人のチームであり、１人はＰＭみたいな立場
もう１人と私が実働部隊

もう１人が現案件に長く携わっているので
９月から始めた新米の私は、聞くことが多い

作業をしていたら、不思議な設定に出くわしたので
そのもう１人に確認しないと・・・

連絡手段はMicrosoft Teamsなので、メッセージを送りました
でも、普段はどんなに遅くても・・・１時間ほどで返事が

なかなか返事がきませんでしたので
ＰＭ役に聞いてみました
（もしかしてＹさんはお休み？）
って

ＰＭから返信があり、休んでいるって
明日には出社するからって

と、いうことは待ちぼうけの時間が・・・悲しい

私は、欠勤ならば、聞かなくても良い他の事を勧めたいから

だれが出勤か欠勤かスケジュール表があればアクセスしたいと尋ねました
すると・・・
そのようなスケジュール表は存在するけれど
私にはアクセス権が無いと・・・・

これはこれで寂しいなー
そんな気がした一日でした





人気ブログランキング

前職の時の顧客システムの改修（保守という名目の改修）を行おうと
久々にゆったりした日を送れる敬老の日の振替休日
９月１６日に行おうとしました

使用するのはチームビューワー
長らくＳＥをやってきて、チームビューワーを使い始めたのは今年
やっぱり、リモートソフトで少しずつ癖があり、助けられたり面倒だったり（笑）

チームビューワーにも面倒な点があるけれど
現地に行くよりは全然マシ（笑）

ただ、本日接続しようとしたら
お客さんがわのチームビューワーパソコンの電源が入っていないのか
接続不可

これでは、どうあがいても無理
と、言う事で残念ながら断念した

まぁ、こればっかりは仕方ない
この日は、お客様は休業しているので、触り放題
（ロックしているオブジェクトが無い・・・という意味で）

そのような好条件だったのに・・・
日曜日があるじゃないかって言われるかもしれないけど
クリスチャンである私にとって日曜日は神様に捧げる日・・・100% 無理

でも、幸か不幸か来週月曜日も祝日Σ(￣ロ￣lll)ｶﾞｰﾝ
いやだなぁ、つぶしたくないなぁ
だって、作業をしても収入がいくらになるか決まってない

お支払いしますって口約束だけ！　いくらって聞いていない
まぁ、私も喜んでもらえるのは嬉しいんだけど
家族を守るために働いているから、あまりにも安いと今後はお断り！って選択もあり得るなぁ





人気ブログランキング

以前・・・KAITO V3 っていう音楽ソフトを使用していました
2013年2月12日にアマゾンで購入した履歴が残っています
と、言うのもしばらく使用していなかったのでパッケージさえ見当たらず

そこで、新しく購入しようかとVOCALOIDソフトを検索してみると

ひぇぇぇぇー！　もう、３つもヴァージョンが上がってるー(笑)
まぁ、そりゃ今は２０２４年
あれから１１年も経ってたら仕方がないよね

価格が・・・・＿|￣|○
KAITO V3は、￥１４，６１５でした
なので、少し高くても￥１７，０００ぐらいかなと思っていたら

なんと、￥２３，３７５（価格ドットコム調べ）
いやーーー買おうかどうしようか迷う金額

待てよ！　無料体験版というのがあるではないか！
早速、ダウンロードして使用してみる

機能的には全ての機能が使用できるようになっている
ただし、複数人のボイスバンクのうち一人だけが使えるという制限はあるが
試用するには全然問題ない！

いやいや、なかなか使いやすい
これは、もうそのまま買ってしまおうかと思ってしまうぐらい
でも・・・

買うための目的であるヘンデルのハレルヤコーラス練習用音源
作るには作ったけれど、現在の賛美チームには荷が重すぎると言う事で
無期限延期になってしまった・・・

これでは、購入する意味が無くなる
無料体験版にしておいてよかったー！
もし購入していたら、２万円以上が丸々無駄になったところ

ただ、使わせてもらったお返しと言ってはなんだけど
とっても使いやすいソフトだったことをここで述べておきますm(__)m

ちなみに、今朝作成した
ヘンデル　ハレルヤコーラス　テナーパート　ピアノ伴奏つき
ハモリチャレンジ版
をここで紹介しておきますね！
よかったらご覧ください（笑）






人気ブログランキング

２０２３年８月末日で退職した職場
退職した理由はブラックすぎたからだが
それも退職前の６年間

それ以前は純白だった( ´艸｀)
経営者が変わると色が変わる
ホワイト　⇒　ブラック　（てきめん）

そんなホワイト時代のお話しを一つ

業務を遂行する上で必要なのが書類
コンピューター化をしていると、その中間の情報伝達手段として
紙媒体を使ってしまう

ペーパーレス化を図ろうとしていても
常に紙媒体を無くせるわけではない
そんな紙媒体、　当然のことながら文字を手書きする

人はミスの塊
どうしても、文字を書く時に書き間違いをしてしまう
これを防ぐためにはどうすればよいかと考えても、思いつかなかった（笑）

これは、もう書く時間に余裕を持たせるしかないと・・・
しかし、忙しい業務中になかなか文字を書くのに時間を割ける人はいない
まぁ、書く文字のうち十中八九が数字なので、書き間違いは致命的だから

そのような致命的なミスをした職員には厳し〜〜いバツが与えられる・・・始末書
なので、書き間違いは発生しにくくなってきた

ただ、書き間違いをしていなくても、それをコンピューターに入力する者が
読み間違いをする・・・ことは往々にして起こり得る

特に手書き数字の場合、急いで書くと
１と７
２と７
０と６
０と９
７と９
など、多彩な読み間違い・・・というよりか読み間違うのも当たり前のような
汚い文字で書かれていたこともある

もちろん、読み間違いやすいと言う事は読む人も分かっているから
他の情報と総合的に判断して、正しい読み方を選択することは出来る
しかし、綺麗に数字を書けば、そんな読み方を選択するような時間は不要となる

その汚い字、読み間違いが避けられないような数字を書くものに、綺麗に書け！と
行ったところで、その人の意識はそうそう変わらない
はてさて、どうしたものか？

そこで、考えに考え、解決策を役員会に上申し、承認をもらい
１週間程度で実施可能な状態にした
それは・・・・

数字書き取りテスト（笑）

実は半分冗談で統括本部長に相談したところ
それは面白いとなって・・・役員会でも承認されてしまった(笑)

どのような方法かというと
全社員（役員会メンバーも含めて（笑））対象に
１か月に一回、数字書き取りテストを行う

そして、テスト結果が９０点未満の者は９０点以上になるまで再テストを行い
かつ、業務から外される・・・・という厳しいお仕置きであった
（当然、人手が不足するから、他の職員からは白い目で見られる（笑））

数字書き取りテストの採点方法は単純で
�@数字書き取りシート（これには年月［ＹＹＹＹＭＭ］と職員番号［９９９９］と、数字書き取り用枠（１０種類２０個ずつ）に綺麗に数字を書く
�AそれをＯＣＲ装置のある受付依頼入力部門に送り、ＯＣＲで読ませる
�BＯＣＲで呼んだ情報をホストコンピューターであるＡＳ／４００にアップロード
�CＡＳ／４００上で作成したプログラムで、きちんと読めた数の割合（％）を点数とする

効果抜群（笑）
だって、綺麗に読み取ってもらえなかったら
何度も書き直さないといけないから、真剣になる

その効果で、業務上作成書類に記入される数字もきちんと読める
読み間違いなど起こり得ない様に綺麗に書かれているようになった

書く方はほんの少しだけ時間がかかるかも知れないが
読む方の時間短縮が著しく
また読み間違えた場合に工程を戻す時間が必要だったが、これがゼロ

で、面白いのがいったん習得された数字を綺麗に書くスキルは
時間が経っても衰えないらしく、
その後は新入社員に対してだけ行われるように（笑）

システムエンジニアとして楽しいイベントだった





人気ブログランキング

プログラミングとは言えないけれど
こんな事もやってみました(笑)



もう、知らない人はいない（かもしれない）
ヘンデルのオラトリオ『メサイヤ』から
『ハレルヤ・コーラス』

素人の集団である教会聖歌隊の方々には
ちょっと敷居が高いかも知れない・・・・
でも、２００３年頃に一度チャレンジしたことがある（笑）

その時は無謀かもと言われたけど
やってみたら、言い感じに仕上がりました

聖歌隊の一員として合唱に参加したんだけど
最後の方では、感極まってウルウルしちゃって
歌うどころでは無くなってりして

そういえば、家内から聞いたんだけど
練習に明け暮れていたから、
寝ている間も歌ってたらしい（笑）

今年のクリスマスに、歌えたらなぁって思いながら練習
でも、やっぱり素人の集団には荷が重くて（重すぎるかな（笑））
今年中に本番として歌うのはキツイってことに

なので、練習期間は伸びたものの、練習材料が
と、言う事で冒頭のYoutube みたいなのを作ってみました

でも、これじゃ各パートごとに分かれて無いので
各パートごとに練習できるように、４タイプ作りました

ヘンデル　ハレルヤコーラス　ソプラノ練習用　ピアノ伴奏つき

ヘンデル　ハレルヤコーラス　アルト練習用　ピアノ伴奏つき

ヘンデル　ハレルヤコーラス　テナー練習用　ピアノ伴奏は無いですm(__)m　後日公開予定

ヘンデル　ハレルヤコーラス　バス練習用　こちらもピアノ伴奏つきバージョンは後日公開予定





人気ブログランキング

昨日も朝から夕方までリモートワーク
ExcelVBAと、IBM RPG4, CLP, CMD駆使して
移行データツールを開発

脳みそをフル活用して開発

午後6時に切り上げて、さぁ休憩と思いきや
前の会社のお客様のシステム改修の仕事が・・・

またまたリモートだけど

これって何でか分かる？

いつもは美味しくいただけるコーヒー
甘くておいしいリンゴジュース
香りのよい紅茶

鼻を塞いで飲んで、元の美味しさを追い求める
それがどれだけ大変か

リモートでリアルと同じようにしようとしたら
得られない情報を補うために脳みそフル活用

だから疲れる！
分かってもらえるかしら？





人気ブログランキング




続きを読む...

９月１日に転職したけど
扱っているのはＩＢＭ　ＡＳ／４００のシステム
でも、微妙に使い勝手が違う

なので、キーアサインを変えさせてもらった

去年１年間勤めたところでは
そこの標準的なキーアサインが決まっていて
それ以前で慣れていたキーアサインに変更するのは避けた

ＡＳ／４００にアクセスし、入力する時
そこまでは同じだけれども
微妙に違うのは、ミス入力リスクが大きい

なので、今回は出来るだけ慣れ親しんだ
キーアサインにして楽しんでいるが

カスタマイズがどんどんできるのもいいかもしれないが
十人十色の使い方があって、
そんなところに転職すると・・・面喰うなー(笑)





人気ブログランキング