9 140 ISSUEINQUIRY

9.140 ISSUEINQUIRY

Þ Note: Built-In Function Rules.

Issues an inquiry message to a message queue.

For use with

LANSA for i YES   Visual LANSA for Windows YES ISSUEINQUIRY will only allow an alphanumeric reply value up to 20 characters in length Visual LANSA for Linux NO

 

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.