Page History

[ Image Added |../../index.htm#lansa/get_message_desc.htm]
現在地:

Anchor
_Toc130907315 _Toc130907315

9.96 GET_MESSAGE_DESC

注意: 9.1 組み込み関数の規則      &<a href="bifcat2_03.htm"&>利用オプション&</a&>利用オプション
メッセージ・ファイルのメッセージ番号に関連付けられた記述を取得します。
通常、戻されたメッセージの詳細は、RDMLファンクションにより処理または印刷されます。
 
引数

...

例
サブルーチンを実行してエラー/例外レポートを印刷します。サブルーチンにエラー・メッセージ番号を渡します。
DEFINE     FIELD(#ERRTXT) TYPE(*CHAR) LENGTH(132)             LABEL('Error :') DEFINE     FIELD(#TEXT) TYPE(*CHAR) LENGTH(132) DEFINE     FIELD(#MSGID) TYPE(*CHAR) LENGTH(7) DEFINE     FIELD(#MSGT) TYPE(*CHAR) LENGTH(132) DEF_LINE   NAME(#NAME)  FIELDS(#CUSTNO #ADDRESS1 #ADDRESS2 #ZIPCODE) DEF_LINE   NAME(#ERROR) FIELDS(#ERRTXT) IDENTIFY(*LABEL)   '  '  Some processing  '   '   '  '                   '   ' INSERT     FIELDS(#NAME) TO_FILE(NAMES) VAL_ERROR(*NEXT) IF_STATUS  IS_NOT(*OKAY) PRINT      LINE(#NAME) CHANGE     FIELD(#TEXT) TO('xxxxxxx') EXECUTE    SUBROUTINE(ERRPRT) WITH_PARMS(ERR0003 #TEXT) ENDIF   '  '  More processing  '   '   '  '                   '   ' SUBROUTINE NAME(ERRPRT) PARMS(#MSGID) USE        BUILTIN(GET_MESSAGE_DESC) WITH_ARGS(#MSGID #ERRFILE            '''*LIBL''' #TEXT) TO_GET(#MSGT) PRINT      LINE(#ERROR) ENDROUTINE
[ Image Added |../../index.htm#lansa/get_message_desc.htm]