READVAR()

Purpose

Function to name the @...GET variable being processed by a READ

Syntax

READVAR([<expN>])

See Also

@...GET, DEFINE TABLE, GETNO(), PARAMETERS, READ, RECNO(), SET FIELDVAL, SET VALIDATE, VARREAD()

Description

The READVAR() function returns the name of the current @...GET variable being processed by a READ command. The name of the variable is returned as an uppercase string. When used with table fields, the READVAR() function returns a blank when the table field is displayed, and the table name when it is activated. The READVAR() function can also be used to return the <variable> of the current MENU TO <variable> command.

If the optional <expN> is specified and is greater than zero (0) and if the current @...GET being processed is an object property, then the name of that object will be returned.

Example

// Pop-up choice list called from a field validation
procedure choices
  parameters m_input
  // If the help key is pressed
  if lastkey()=ctrl('c')
      m_exp = iif(readvar()="ACC_NO","account","supplier")
      select codes
      save screen
      set message to "Select code, press  ^C to abandon."
      menu browse &m_exp at 5,30 to 15,40;
        quit;
        clear
      restore screen
      // If a selection was made
      if not empty(menuitem()) 
          set fieldval to left(menuitem(),3)
          set validate on
      endif
      select accounts
  endif
return

Products

Recital