Page History
[ 
|../../index.htm#lansa/issueinquiry.htm]
現在地:
...
9.118 ISSUEINQUIRY
| Note |
|---|
注意 |
...
： 9.1 |
...
メッセージ待ち行列に照会メッセージを出力します。 メッセージ待ち行列に照会メッセージを出力します。
引数
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
|---|---|---|---|---|---|---|---|
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のマニュアルを参照してください。
[ |../../index.htm#lansa/issueinquiry.htm]1を現時点でサブミットしてもよいですか。
| Note |
|---|
注意：メッセージ・データ・パラメータはCLコマンドのSNDUSRMSGのMSGDTAパラメータと直接対応します。このパラメータで渡す情報はユーザーに責任があります。渡す値の詳細については、適切なIBMのマニュアルを参照してください。 |