Definir opções para mensagens e/ou erros de execução.
SET MESSAGE on [SHORT] | OFF
SET MESSAGE TO <exp.C1> [<atrib>]
SET MESSAGE TO <exp.N1> [,{<exp.N2> | <exp.C2>}] [<atrib>]
|
SHORT |
indica que deve ser exibida uma mensagem curta (Erro <num>:) sem versão, data da versão e rotina. |
|
<exp.C1> |
representa uma mensagem que será exibida na linha de mensagem. |
|
<exp.N1> |
representa o número da linha de mensagem. |
|
<exp.N2> |
representa a coluna para início da exibição da mensagem. |
|
<exp.C2> |
representa o alinhamento da mensagem na linha. |
|
<atrib> |
representa o atributo de vídeo. |
SET MESSAGE ON determina que na ocorrência de algum erro, uma mensagem correspondente ao erro seja enviada ao terminal.
SET MESSAGE OFF desliga esta característica. Este comando deve ser declarado depois do comando DATABASE.
SET MESSAGE TO <exp.C> quando executado envia uma mensagem para a linha de mensagem, idêntico ao comando MESSAGE.
SET MESSAGE TO <exp.N1> determina a linha onde serão exibidas as mensagens. Pode, opcionalmente, definir uma coluna (<exp.N2>) ou o alinhamento, que pode ser: "C" para centralizar, "R" alinhar direita ou "L" alinhar a esquerda. Qualquer outro caractere representa alinhamento a esquerda.
O DEFAULT é SET MESSAGE TO 23,"L".
Se <exp.C2>, tiver mais de um caractere, somente o primeiro é considerado.
O exemplo a seguir mostra-nos como determinar que todas mensagens enviadas para o terminal sejam exibidas e centralizadas na linha 0.
PROG
SET MESSAGE TO 0,"CENTER"
MESSAGE "Mensagem do comando MESSAGE"
WAIT "Bata uma Tecla" TO k
SET MESSAGE TO "Mensagem do comando SET MESSAGE TO <exp.C>" bold
WAIT "Bata uma Tecla" TO k
CLEAR MESSAGE
@ ... GET, @ ... PROMPT,CLEAR MESSAGE,DATABASE,MESSAGE, DBERR( ) e DBMESS( ).