質問: rpgでメッセージファイル利用 as400初心者です。 rpgのプログラムにてメッセージファイルを利用するにはどのようにしたら良いのでしょうか? たとえば・・・ (rpg) 'メッセージid’chain メッセージファイル 'メッセージファイルのfield?' movel ’画面のfield?’ あるいは rpgからclを呼び出して・・ (cl) sndmsg メッセージid メッセージファイル 取得したメッセージを何らかの方法でrpgに返す? 初心者で質問の仕方も悪いかもしれませんが、よろしくお願いします。
回答: パラメータを渡すというのは、「○件データが更新 されました」の○の部分の数値をその都度変化 させたいという事でしょうか。 現在取り扱っているシステムではメッセージがすべて 固定になっていてそこまでの事はしていないです。 できるかどうかもわかりません。 少し考えてみたのですが次の方法はいかがでしょう。 画面ファイル wsmsg1 4a o 24 2dspatr(hi bl) wsmsg 68a o 24 9dspatr(hi bl) 配列 e tb1 1 2 4 e tb2 1 2 68 変数部分設定 c move aaaa wsmsg1 キー取得 c move '1003' msgkey メッセージ表示 c msgkey lokuptb1,m 88 c *in88ifeq '1' c move tb2,m wsmsg c endif ** tb1 err1 1003 ** tb2 err1 得意先マスタに登録されていません。 1003 更新完了 ※メッセージファイルを使用せず、rpgの中で 直接メッセージを指定する方法です。