9.118 ISSUEINQUIRY

Note: Built-In Function Rules     Usage Options

Issues an inquiry message to a message queue.

Arguments

No Type Req/ Opt Description Min Len Max Len Min Dec Max Dec 1 A Req Message queue to which inquiry is to be sent 1 10     2 A Req Type of message (T = text, M = from message file) 1 1     3 A Req Text of message (T) or message number (M) 1 132     4 A Opt Message file name (M only) Default: QUSRMSG 1 10     5 A Opt Message file library (M only) Default: *LIBL 1 10     6 A Opt Message data Default: *BLANKS 1 132

Return Values

No Type Req/ Opt Description Min Len Max Len Min Dec Max Dec 1 A Req Reply to message input by message receiver 1 132

Examples

Issue a message to ask who is signed on to a terminal:

USE  BUILTIN(ISSUEINQUIRY) WITH_ARGS(DSP16 T 'Who are you ?')

     TO_GET(#REPLY)

Issue a message to ask operator if MYJOB can be submitted at this time:

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 = Can &1 be submitted at this time ?

Note: The message data parameter corresponds directly to the MSGDTA parameter in the CL command SNDUSRMSG. The passing of information through this parameter is your responsibility. For more information on passing substitution variables see the appropriate IBM manuals.