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

RETURN

Propósito

Terminar uma função do usuário ou uma PROCEDURE.

Sintaxe

RETURN [(<exp>)|TO MASTER]

Argumentos

(<exp>)     representa o valor de retorno de uma função do usuário.

TO MASTER     determina que o retorno será para o programa principal (mestre) ou programa chamador . Essa opção só e utilizada em PROCEDURES.

Utilização

Encerra uma PROCEDURE ou função definida pelo usuário.

No caso de funções um valor deve ser retornado, em PROCEDURES seu uso é opcional exceto em arquivos de procedimentos, para determinar o fim da declaração de uma PROCEDURE.

O usuário deverá declarar <exp> com tipo compatível ao da função definida.

O comando RETURN ao ser executado devolve o controle ao comando seguinte da chamada da PROCEDURE ou da função.

Exemplo

O exemplo a seguir mostra-nos o comando RETURN num caso opcional.

PROCEDURE hora     && Declaração da PROCEDURE

? time()     && Exibe data e hora no dispositivo corrente

RETURN     && Opcional

O exemplo a seguir mostra-nos o comando RETURN utilizado em um arquivo de PROCEDUREs e funções.

PROCEDURE data

@ 01,01 SAY date() REV

RETURN     && Determina o fim da PROCEDURE data

PROCEDURE hora

@ 01,70 SAY time() BOLD

RETURN     && Determina o fim da PROCEDURE hora

FUNCTION simnao

@ 23,01 SAY "SIM ou NAO ?? " GET sn PIC "!!!" ;

VALID sn ="SIM" .or. sn = "NAO"

READ

IF sn = "SIM"

RETURN (.T.)     && Retorna um valor logico (verdadeiro)

ELSE

RETURN (.F.)     && Retorna um valor logico (falso)

ENDIF

Consulte

$LIBRARY, FUNCTION, PARAMETERS, PROCEDURE, PROGRAM e QUIT.

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