9.131 ISSUEINQUIRY
メッセージ待ち行列に照会メッセージを出力します。
各製品の対応
|
LANSA/AD |
使用可 |
|
|
Visual LANSA for Windows |
使用可 |
ISSUEINQUIRYでは、20文字までの英数字の応答値しか許されません。 |
|
Visual LANSA for Linux |
未対応 |
引数
|
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
|---|---|---|---|---|---|---|---|
|
1 |
A |
必須 |
照会が送信されるメッセージ待ち行列 |
1 |
10 |
||
|
2 |
A |
必須 |
メッセージのタイプ(T = テキスト、M = メッセージ・ファイルより) |
1 |
1 |
||
|
3 |
A |
必須 |
メッセージ・テキスト(T)、またはメッセージ番号(M) |
1 |
132 |
||
|
4 |
A |
任意 |
メッセージ・ファイル名(Mのみ) デフォルトQUSRMSG |
1 |
10 |
||
|
5 |
A |
任意 |
メッセージ・ファイル・ライブラリ(Mのみ) デフォルト*LIBL |
1 |
10 |
||
|
6 |
A |
任意 |
メッセージ・データのデフォルト：*BLANKS |
1 |
132 |
戻り値
|
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
|---|---|---|---|---|---|---|---|
|
1 |
A |
必須 |
メッセージの受け取り人が入力したメッセージに対する応答 |
1 |
132 |
例
誰が端末にサイン・オンしているかを問うメッセージを送信します。
USE BUILTIN(ISSUEINQUIRY) WITH_ARGS(DSP16 T 'Who are you ?')
TO_GET(#REPLY)
現時点でMYJOBをサブミットしてもよいかどうかをオペレータに問うメッセージを送信します。
CHANGE FIELD(#MSGID) TO(MSG0120)
CHANGE FIELD(#MSGF) TO(OPRMSGF)
CHANGE FIELD(#SUB) TO('MYJOB')
USE BUILTIN(ISSUEINQUIRY) WITH_ARGS(DSP01 M #MSGID #MSGF
'*LIBL' #SUB) TO_GET(#REPLY)
IF COND('#REPLY *EQ Y')
SUBMIT PROCESS(BTCHJOB) FUNCTION(UPDATE)
ELSE
MESSAGE MSGTXT('Job not submitted')
ENDIF
MSG0120 = &1を現時点でサブミットしてもよいですか。
注:メッセージ・データ・パラメータはCLコマンドのSNDUSRMSGのMSGDTAパラメータと直接対応します。このパラメータで渡す情報はユーザーに責任があります。渡す値の詳細については、適切なIBMのマニュアルを参照してください。