Click above to get retro games delivered to your door ever month!

FIELDWBLOCK()

Return a sets/gets code block for field in a given work area
---------------------------------------------------------------------------------

 Syntax

        FIELDWBLOCK( <cFieldName>, <nWorkArea> ) --> bFieldBlock  

 Arguments

        <cFieldName>   is a string that contain the field name.      

        <nWorkArea>   is the work area number in which <cFieldName> 
                  exist.

 Returns

        FIELDWBLOCK()   return a code block that when evaluate could 
                  retrieve field value or assigning a new value for a
                  field in a given work  area. If <cFieldName> is not
                  specified or from type other than  character, or if
                  <nWorkArea> is not specified or is not numeric
                  FIELDWBLOCK() return NIL.

 Description

      FIELDWBLOCK() return a code block that sets/gets the value of field
      from a given work area. When this code block is evaluated without
      any parameters passed then it returns the current value of the given
      field. If the code block is evaluated with a parameter, than its
      value is used to set a new value to the field, this value is also
      return by the block. If the block is evaluate and there is no field
      with the name <cFieldName> in work area number <nWorkArea>, the code
      block return NIL.

 Examples

      LOCAL bField
      // this block work on the field "name" that exist on work area 2
      bFiled := FIELDBLOCK( "name", 2 )
      // open a file named One in work area 1
      // that have a field named "name"
      SELECT 1
      USE One
      // open a file named Two in work area 2
      // it also have a field named "name"
      SELECT 2
      USE Two
      SELECT 1
      ? "Original names: ", One->name, Two->name
      ? "Name value for file Two :", EVAL( bField )
      EVAL( bField, "Two has new name" )
      ? "and now: ", One->name, Two->name
  

Status

      Ready

 Compliance

      If the block is evaluate and there is no field with the name
      <cFieldName> in the given work area, the code block return NIL.

      CA-Clipper would raise BASE/1003 error if the field does not exist.

 Files

      Library is rtl