Example 1: CONSTRUCT with binding by field position

Form definition file "form1.per":

SCHEMA office

LAYOUT
GRID
{
  Customer id: [f001    ]
  First Name : [f002                    ]
  Last Name  : [f003                    ]
} 
END
END

TABLES
  customer
END

ATTRIBUTES
  f001 = customer.id;
  f002 = customer.fname;
  f003 = customer.lname, UPSHIFT;
END

INSTRUCTIONS
  SCREEN RECORD sr_cust(customer.*);
END

Program source code:

MAIN
  DEFINE condition STRING
  DATABASE office 
  OPEN FORM f1 FROM "form1"
  DISPLAY FORM f1
  CONSTRUCT condition 
        ON id, fname, lname
        FROM sr_cust.*
  DISPLAY condition 
END MAIN