9 140 ISSUEINQUIRY

LANSA Technical

previous page next page

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.

previous page start next page