No.3ベストアンサー
- 回答日時:
パラメータを渡すというのは、「○件データが更新
されました」の○の部分の数値をその都度変化
させたいという事でしょうか。
現在取り扱っているシステムではメッセージがすべて
固定になっていてそこまでの事はしていないです。
できるかどうかもわかりません。
少し考えてみたのですが次の方法はいかがでしょう。
画面ファイル
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の中で
直接メッセージを指定する方法です。
早速のレスありがとうございます。
しばらく試すことができないかもしれませんが
結果を後ほどご報告いたします。
以前はLANSAを使って開発してたものですからRPGになると
結構わずらわしさを感じたりもします。
No.2
- 回答日時:
画面ファイルがRPGにある場合はこれで大丈夫です
画面ファイルがCLにある場合はエラーフラグを
作成し、RPGにフラグを渡しエラーの時に
メッセージを出す(パラメータの指定はCLでする)
DCL VAR(&EFLG) TYPE(*CHAR) LEN(1) VALUE('0')
IF COND(&IN01 *EQ '1') THEN(DO)
CALL PGM(ライブラリ/プログラム) PARM(&EFLG &WSHAID)
IF COND(&EFLG *EQ '1') THEN(DO)
CHGVAR VAR(&CMIC) VALUE('E004')
CHGVAR VAR(&IN30) VALUE('1')
GOTO START
ENDDO 以上の方法と直接RPGからIDを取得する為の
パラメータを渡す方法があります。
DCL VAR(&PACMIC) TYPE(*CHAR) LEN(4) VALUE(' ')
CALL PGM(プログラム) PARM(&PAERR &PACMIC)
IF COND(&PAERR = '1') THEN(DO)
CHGVAR VAR(&CMIC) VALUE(&PACMIC)
GOTO START
ENDDO
一応、上はエラーフラグも渡し、エラーの時のみ
パラメータで渡したIDを取得する方法です。
この回答への補足
返事遅れてすみません。
>画面ファイルがRPGにある場合はこれで大丈夫です。
のこれは何処にあたるでしょうか?
当方、画面はRPG側に存在し、処理後、画面下に
&1 件のデータが更新されました。
と出したいですが上記拝見して理解できなかったです。
すみません。
現在は、taranko のNO1の回答のおかげで
’ ’件のデータが更新されました。
まで表示可能です。
No.1
- 回答日時:
1つの例ですが
画面ファイル
WSMSG 79A O 24 1MSGID(USR &CMIC OHAIMSGF)
RPGの場合
MOVEL'E004' CMIC
CLの場合
CHGVAR VAR(&CMIC) VALUE('E004')
このようにしてメッセージファイルのメッセージを
取得して表示しています。
ありがとうございます。
上記のように試したところできました。
そこでつづけて質問したいのですが、
RPGからメッセージIDの指定方法はわかったのですが
メッセージファイルパラメータはどのようにして渡せば
よいのでしょうか??
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
RPG(AS400)の本、サイトってあるかなあ?(初心者むけ)
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipseで検索ができなくなった
-
C++.NET 2003 「空のドキュメ...
-
VBAで、JPG写真の撮影日時を読...
-
0バイトのテキストファイル
-
ファイルの排他について
-
画像ファイルに拡張子がjpgのフ...
-
リンク先がjspファイルなのです...
-
【Excel VBA】取り込んだファイ...
-
リソースファイルを認識してく...
-
VBSで、日本語文字列の抽出が、...
-
\\記号が入った数値の処理につ...
-
Javaのファイルダウンロードに...
-
PHPからベーシック認証のかかっ...
-
C++によるファイル送受信プログ...
-
vbaの構文の修正相談(xmlファ...
-
Perl5でFTP一括転送する方法を...
-
includeで別サイトを読み込む
-
【VBA】複数CSVの特定範囲を1つ...
-
CSVファイルの時刻の形式について
-
accessでクエリをExcelにエクス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Excel VBA】取り込んだファイ...
-
0バイトのテキストファイル
-
VBAで、JPG写真の撮影日時を読...
-
Eclipseで検索ができなくなった
-
サイトマップにサブドメインを...
-
HTMLテキストリンクでExcelファ...
-
ファイル作成日時と更新日時を...
-
msgget()で指定するkey値について
-
ディレクトリのサイズの取得
-
VB2008 iniファイルの全セクシ...
-
【VBA】複数CSVの特定範囲を1つ...
-
CSV名と同じシートを選択して取...
-
main関数のコマンドライン引数...
-
C++.NET 2003 「空のドキュメ...
-
ファイル更新日取得
-
VB6.0のメモリリークについて
-
VBS ファイルマージ処理
-
2GB以上のファイルを扱う方法
-
<input type="file" で初期値...
-
JavaでPDFファイルに変換するに...
おすすめ情報