READVAR()

Propósito

Retornar o nome da variável associada ao último comando GET.

Sintaxe

READVAR ()

Utilização

Retorna uma cadeia de caracteres minúsculos representando o nome da variável associada ao último comando GET.

Esta função é útil para construção de HELPs de contexto e funciona somente para comandos GETs.

Útil em rotinas de auxílio pelo comando SET KEY ou cláusulas WHEN, VALID ou CASE, para que seja possível saber qual o GET está sendo editado.

Exemplos

O exemplo a seguir mostra-nos a utilização desta função para criação de uma rotina de auxílio para cada passo da entrada de dados.

SET KEY 28 TO auxilio

@ 01,01 SAY "Contrato " GET num_contr PIC "999999"

@ 02,01 SAY "Assunto " GET num_assum PIC "999999"

READ

PROC auxilio

SET KEY 28 OFF

USE *

arq_help I LEN (100)

var_get U20 KEY

texto_help U80

ENDUSE

FIND READVAR()

IF EOF()

  MESSAGE "Nao existe auxilio para este campo"

ELSE

  MESSAGE texto_help

ENDIF

SET KEY 28 ON

Consulte

@ ... GET, SET KEY e LASTKEY().