FUNCTION EXPBLOCK()

  Short:
  ------
  EXPBLOCK() Returns a codeblock to evaluate an expresson

  Returns:
  --------
  <bBlock> => codeblock to evaluate an expression

  Syntax:
  -------
  EXPBLOCK(cExpress)

  Description:
  ------------
  Returns a codeblock built around the expression in
  cExpress.

  Using EVAL() on the codeblock will return the current
  value of the expression.

  Examples:
  ---------
   cExp := "UPPER(LEFT(CUSTOMER->LNAME,5))"
   bExp := EXPBLOCK(cExp)

   ?eval(bExp)
     // displays current value of customer->lname, upper,left 5

  Notes:
  -------
  See also WORKBLOCK()

  Source:
  -------
  S_FIELDS.PRG