例 – UPDATE - MultiLoad

以下の例では、14バイトの一連のレコードを含む入力データ ソースを示しています。Employee表の行のうち、PhoneNo列にフィールドFoneから新しい電話番号を割り当てる行の、基本索引列(EmpNo)の値が各レコードに格納されています。 現在のデフォルト データベースは、Employee表が格納されているデータベースPersonnelです。

.LAYOUT Layoutname;
.FIELD EmpNum 1 INTEGER;
.FIELD Fone * (CHAR (10));
.DML LABEL DMLlabelname;
UPDATE Employee SET PhoneNo = :Fone WHERE EmpNo = :EmpNum;