1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
* Способ печати сообщений в окне результатов.
* Код предложен: rlevesque@videotron.ca, 04.07.2001.

SET MPRINT=no.
*/////////////////////////.
DEFINE !message (!POS=!CMDEND)
TEMPORARY.
N OF CASE 1.
STRING dummi9a(A80).
VARIABLE LABELS dummi9a !QUOTE(!1).
Report  /FORMAT= LIST  /VARIABLES dummi9a (LABEL).
!ENDDEFINE.
*/////////////////////////.

SET MPRINT=yes.
!message Это сообщение передано из синтаксиса.