The following example depicts an input data source that contains a series of 14-byte records. Each record contains the value of the primary index column (EmpNo) of a row of the Employee table whose PhoneNo column is to be assigned a new phone number from field Fone. The example assumes that the current default database is Personnel, the database containing the Employee table.
.LAYOUT Layoutname; .FIELD EmpNum 1 INTEGER; .FIELD Fone * (CHAR (10)); .DML LABEL DMLlabelname; UPDATE Employee SET PhoneNo = :Fone WHERE EmpNo = :EmpNum;