Terminar uma função do usuário ou uma PROCEDURE.
RETURN [ (<exp>) ] [ TO MASTER ]
(<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) ignorando os retornos intermediários. Essa opção só e utilizada em PROCEDURES.
Encerra uma PROCEDURE ou FUNCTION 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 FUNCTION.
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
$LIBRARY, FUNCTION, PARAMETERS, PROCEDURE, PROGRAM e QUIT.