簡単なマスタ保守プログラムなら３０分: ＩＢＭＡＳ４００とパソコンを愛するＳＥのブログ

2024年11月07日

●会計ソフト

教会会計の処理システムをＡＳ／４００で作っちゃおう
そんな思いを抱きながら、最近ある程度の大きさまでなら無料で使用できる
フリーのＡＳ／４００、ＰＵＢ４００を教えてもらい、使い始めました

●使い始めとは言っても

当然のことながら、データベース記述ソースの作成をし、
入出力画面を作成し、入出力プログラムを開発し・・・と
する事は一杯

でも、千里の道も一歩から（笑）

●さて一本

と、言う事で準備運動ってことで、
会計種別マスタ保守プログラムを一本作ってみよう

って、言ったって、大した仕様でもないので
３０分程度で作れてしまった・・・

●それよりも

来週の水曜日の IBM Power Salonの方が気になるー
と、言う事で、RPG3と、RPG4と、FF-RPGの三種類で
サンプルプログラムを二種類、計６個を作った

流石に、RPG3は・・・・めんどくさい（笑）
FF-RPGは抜群だよねー！

【このカテゴリーの最新記事】

この記事へのコメント

わぁお！　経験則ですかー！

それは素晴らしいです。
とてもいいお話しを聞かせて頂いて嬉しいです。

リアルなら是非名刺交換をさせていただきたいところです😊

Posted by Y.Taki@AS400 at 2024年11月16日 11:51

出典は.....私の経験ですね。
私はあまり参考書とかは見ない派ですから。

Posted by at 2024年11月16日 09:50

おぉーーー！　ＲＰＧ歴４０年目にして初めて知りました(笑)

テストしたところ、きちんと動きました。
この情報ってどこでお知りになったんでしょうか？
出典など教えて頂ければとても嬉しく思います。

とはいうものの、この事を教えて頂いてて大変感謝いたします。

Posted by Y.Taki@AS400 at 2024年11月16日 05:43

先頭の1 DOWEQ 1、最後のENDDOの2行を消しても同じ動きになると思います。

Posted by at 2024年11月14日 09:14

そうでしたっけ？

RPG Cycle programming ならプライマリーファイルを読み終わるまでループするって覚えてますが・・・

どんな書き方すると無限ループするんでしょうか？
教えてもらえると、私の経験が増えるので嬉しいです😊

Posted by Y.Taki@AS400 at 2024年11月13日 02:52

RPGってそんなことしなくても勝手にループします.....よね？

Posted by at 2024年11月12日 14:29

GOTO文を使わずに無限ループをコードしようとしたら、いろいろと方法は有るんでしょうけど、1と1が等しい間だけdo～enddo を繰り返す・・・って意味になります。
もちろん、ループの途中で終了条件を設定しますが(^_-)-☆

Posted by Y.Taki@AS400 at 2024年11月08日 12:49

1 DOWEQ 1ってどんな意味あるんでしょうか？

Posted by at 2024年11月07日 10:03

コメントを書く

この記事へのトラックバックURL
https://fanblogs.jp/tb/12772717

この記事へのトラックバック