Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

SET Trace

Propósito

Mostrar as linhas do programa que está sendo executado.

Sintaxe

SET TRACE ON| off

Utilização

Para depurar o programa, uma vez que, cada linha do programa que for executada, será impressa na linha 23 coluna 0 do terminal.

Este comando é útil para corrigir erros de lógica no programa.

SET TRACE ON determina que todas as linhas da fonte serão exibidas até que seja executado SET TRACE OFF ou até o fim da fonte.

Exemplo

O exemplo a seguir mostra-nos a utilização do comando SET TRACE para apresentar as linhas compreendidas entre SET TRACE ON e SET TRACE OFF, durante a execução do programa.

$NOLIB

PROG

SET KEY 28 TO proc_cod     && Associa a tecla F1 a PROCEDURE proc_cod

SET CONFIRM ON

cod = 0

MESSAGE "Em caso de duvida pressione F1" BLINK

@ 10,10 SAY "Codigo do Produto " GET cod PIC "99" VALID cod >=1 .AND. cod <=5

READ

QUIT(0)

PROCEDURE proc_cod

SET KEY 28 OFF     && Desabilita a tecla F1

SET TRACE ON

DECLARE vet_cod[04] = SPACE(30)

vet_cod[01] = "01 - Parafuso 01"

vet_cod[02] = "02 - Parafuso 02"

vet_cod[03] = "03 - Parafuso 03"

vet_cod[04] = "04 - Parafuso 04"

SET TRACE OFF

opt = ACHOICE(01, 01, 07, 31, vet_cod)

@ 01,01 CLEAR TO 07,31

opt = IIF(opt = -1, opt + 2, opt + 1)

KEYBOARD LEFT(vet_cod[opt], 2)

SET KEY 28 ON     && Habilita a tecla F1

RETURN

Consulte

SET MESSAGE.

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!