Page History
9.95 GET_MESSAGE
| Note |
|---|
RDMLファンクションのプログラム待ち行列から、この次のメッセージの詳細を取得します。
...
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
|---|---|---|---|---|---|---|---|
1 | A | 必須 | メッセージ戻りコード OK = メッセージが戻された | 2 | 2 | ||
2 | A | 任意 | メッセージ・テキスト | 1 | 132 | ||
3 | A | 任意 | メッセージ番号 | 1 | 7 | ||
4 | A | 任意 | メッセージ・ファイル名 | 1 | 10 | ||
5 | A | 任意 | メッセージ・ファイル・ライブラリ | 1 | 10 | ||
6 | A | 任意 | メッセージ代替変数 | 1 | 132 |
例
バッチ・プログラムでNAMESファイルに新しい名前と住所を挿入します。エラーが発生した場合、例外レポートに名前や住所の詳細と共に関連のエラー・メッセージをすべて印刷します。 バッチ・プログラムでNAMESファイルに新しい名前と住所を挿入します。エラーが発生した場合、例外レポートに名前や住所の詳細と共に関連のエラー・メッセージをすべて印刷します。
DEFINE FIELD(#ERRTXT) TYPE(*CHAR) LENGTH(100)
LABEL('Error :')
DEF_LINE NAME(#NAME) FIELDS(#CUSTNO #ADDRESS1
#ADDRESS2 #ZIPCODE)
DEF_LINE NAME(#ERROR) FIELDS(#ERRTXT) IDENTIFY(*LABEL)
INSERT FIELDS(#NAME) TO_FILE(NAMES) VAL_ERROR(*NEXT)
IF_STATUS IS_NOT(*OKAY)
PRINT LINE(#NAME)
USE BUILTIN(GET_MESSAGE) TO_GET(#RETCODE #ERRTXT)
DOWHILE COND('#RETCODE = OK')
PRINT LINE(#ERROR)
USE BUILTIN(GET_MESSAGE)
TO_GET(#RETCODE #ERRTXT)
ENDWHILE
ENDIF
...