9.118 ISSUEINQUIRY
注意: 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のマニュアルを参照してください。