_msg.utl Utility- Print Message in Message Window
Syntax
call "_msg.utl",message${,flag$,{row}}
Description
The _msg.utl utility displays a one-line message in the message window created with _crmsg.utl.
|
Parameter |
Description |
|
message$ |
Message to be displayed. If the MESSAGE$ string contains any backslash "\" characters, they are interpreted as linefeeds, and the message is displayed on the last several lines of the currently selected window, rather than in the message window. |
|
flag$ |
Message flags, as follows: |
|
|
"M" Use the message window (single line). |
|
|
"K" Append message "Press any key to continue." to the message, then wait for the user to press a key. |
|
|
"B" Cause message to blink. |
|
|
"F" Flush input typeahead buffer. |
|
row |
Message row to use, if not the message window. |
Examples
The following creates the "Language code is: am" message and centers it in the message window. If the message window does not exist, it is automatically created.
LET BBEXT$=STBL("BBEXT")
LET TRASH$=STBL("LANGUAGE","am")
LET MESSAGE$="Language code is: (LANGUAGE) "
CALL BBEXT$+"_crmsg.utl" ; rem " create the window
CALL BBEXT$+"_msg.utl",MESSAGE$
The following flushes the input buffer and displays the "Customer not on file. Press any key to continue." message:
LET MESSAGE$="Customer not on file."
LET ARG$="KF"
CALL BBEXT$+"_msg.utl",MESSAGE$,ARG$
In both examples, the message will remain until the application calls _rmmsg.utl to drop the window or a null message is passed to _msg.utl, which clears the message but leaves the message window. In the second example, the input processor waits for the user to press any key and then returns to the application.