FRAME-FIELD function

FRAME-FIELD function

During a data entry statement, returns the name of the input field the cursor is in. At other times, returns the name of the input field the cursor was last in.

The FRAME-FIELD function is particularly useful if you want to provide the user with help for the input field being used.

Note: Does not apply to SpeedScript programming.

Syntax
FRAME-FIELD 
Example

For each field the user is updating, this procedure displays the name of the field, the table the field belongs to, and the value currently in the field. The EDITING phrase is part of the UPDATE statement; it displays information on the field as the user updates the record, and then reads each of the keystrokes entered (READKEY) and applies those keystrokes (APPLY LASTKEY).
r-frfld.p
FOR EACH Customer: 
  UPDATE Customer.CustNum Customer.Name Customer.Address Customer.Address2 
    Customer.City Customer.State Customer.PostalCode 
    WITH 1 DOWN 1 COLUMN CENTERED EDITING: 
    DISPLAY "You are editing field:" FRAME-FIELD SKIP 
      "of file:" FRAME-FILE SKIP 
      "Its value is:" FRAME-VALUE FORMAT "x(20)" 
      WITH FRAME a ROW 15 NO-LABELS CENTERED. 
    READKEY. 
    APPLY LASTKEY. 
  END. /* EDITING */ 
END. 
Notes

If the current or last input field is an array, FRAME-FIELD returns the name of the field but does not indicate the array element that the input field represents. To display the array element, use the FRAME-INDEX function.

If the cursor was not in an enabled input field when the last input statement ended, FRAME-FIELD returns an empty string.

See also

FRAME-FILE function, FRAME-INDEX function, FRAME-VALUE function, PROGRAM-NAME function

FRAME-FIELD

r-frfld.p
FOR EACH Customer: UPDATE Customer.CustNum Customer.Name Customer.Address Customer.Address2 Customer.City Customer.State Customer.PostalCode WITH 1 DOWN 1 COLUMN CENTERED EDITING: DISPLAY "You are editing field:" FRAME-FIELD SKIP "of file:" FRAME-FILE SKIP "Its value is:" FRAME-VALUE FORMAT "x(20)" WITH FRAME a ROW 15 NO-LABELS CENTERED. READKEY. APPLY LASTKEY. END. /* EDITING */ END.

OpenEdge Release 10.2B